eUgEntOptIc44/gimp
1
1
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp.git synced 2025-10-06 01:12:40 +02:00
Code Issues Releases Activity

build/windows, gimp-data: Prepare to Inno Setup 6.6.0

Browse Source
This commit is contained in:
Bruno Lopes
2025-09-28 16:24:25 -03:00
parent b0689f565b
commit 59a807e784
3 changed files with 30 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
build/windows/installer/base_gimp3264.iss
View File

@@ -140,10 +140,12 @@
;3 INSTALLER SOURCE
#define ASSETS_DIR BUILD_DIR + "\build\windows\installer"
;3.1.1 Icons and other files
#define ASSETS_DIR BUILD_DIR + "\build\windows\installer"
#include ASSETS_DIR + "\splash-dimensions.h"
#define WIZARD_SMALL_IMAGE ASSETS_DIR + "\gimp.scale-100.bmp," + ASSETS_DIR + "\gimp.scale-125.bmp," + ASSETS_DIR + "\gimp.scale-150.bmp," + ASSETS_DIR + "\gimp.scale-175.bmp," + ASSETS_DIR + "\gimp.scale-200.bmp," + ASSETS_DIR + "\gimp.scale-225.bmp," + ASSETS_DIR + "\gimp.scale-250.bmp"
#define WIZARD_IMAGE ASSETS_DIR + "\install-end.scale-100.bmp," + ASSETS_DIR + "\install-end.scale-125.bmp," + ASSETS_DIR + "\install-end.scale-150.bmp," + ASSETS_DIR + "\install-end.scale-175.bmp," + ASSETS_DIR + "\install-end.scale-200.bmp," + ASSETS_DIR + "\install-end.scale-225.bmp," + ASSETS_DIR + "\install-end.scale-250.bmp"
;3.1.2 Installer lang files
[Languages]
@@ -245,10 +247,15 @@ AlwaysShowDirOnReadyPage=yes
;3.4.2 INSTALLER UI: uses modern Win32 "Vista" (still used today) design
WizardStyle=modern
//WizardStyle=modern dynamic
WizardSizePercent=100
WizardResizable=no
WizardSmallImageFile={#ASSETS_DIR}\gimp.scale-100.bmp,{#ASSETS_DIR}\gimp.scale-125.bmp,{#ASSETS_DIR}\gimp.scale-150.bmp,{#ASSETS_DIR}\gimp.scale-175.bmp,{#ASSETS_DIR}\gimp.scale-200.bmp,{#ASSETS_DIR}\gimp.scale-225.bmp,{#ASSETS_DIR}\gimp.scale-250.bmp
WizardImageFile={#ASSETS_DIR}\install-end.scale-100.bmp,{#ASSETS_DIR}\install-end.scale-125.bmp,{#ASSETS_DIR}\install-end.scale-150.bmp,{#ASSETS_DIR}\install-end.scale-175.bmp,{#ASSETS_DIR}\install-end.scale-200.bmp,{#ASSETS_DIR}\install-end.scale-225.bmp,{#ASSETS_DIR}\install-end.scale-250.bmp
WizardImageAlphaFormat=defined
WizardSmallImageFile={#WIZARD_SMALL_IMAGE}
//WizardSmallImageFileDynamicDark={#WIZARD_SMALL_IMAGE}
//WizardSmallImageBackColorDynamicDark=clNone
WizardImageFile={#WIZARD_IMAGE}
//WizardImageFileDynamicDark={#WIZARD_IMAGE}
WizardImageStretch=yes
[LangOptions]
DialogFontName=Segoe UI
@@ -638,6 +645,14 @@ begin
MeasureLabel.Free;
end;
//function GetThemedBgColor: TColor;
//begin
// if IsDarkInstallMode then
// Result := $2b2b2b
// else
// Result := $ffffff;
//end;
#include "util_general.isi"
#include "util_MessageWithURL.isi"
@@ -1034,7 +1049,9 @@ end;
//2. LICENSE
procedure InfoBeforeLikeLicense();
begin
WizardForm.Bevel.Visible := False;
//if not IsDarkInstallMode then begin
WizardForm.Bevel.Visible := False;
//end;
WizardForm.InfoBeforeClickLabel.Visible := False;
WizardForm.InfoBeforeMemo.Height := WizardForm.InfoBeforeMemo.Height + WizardForm.InfoBeforeMemo.Top - WizardForm.InfoBeforeClickLabel.Top;
@@ -1258,7 +1275,9 @@ end;
//7.1 BEFORE INSTALL
procedure PreparingFaceLift();
begin
WizardForm.Bevel.Visible := False;
//if not IsDarkInstallMode then begin
WizardForm.Bevel.Visible := False;
//end;
end;
//Create restore point
@@ -1669,7 +1688,9 @@ end;
procedure InstallingFaceLift();
var lblMessage1,lblURL,lblMessage2: TLabel; //TNewStaticText doesn't support alignment
begin
WizardForm.Bevel.Visible := False;
//if not IsDarkInstallMode then begin
WizardForm.Bevel.Visible := False;
//end;
with WizardForm.ProgressGauge do
begin

2
build/windows/installer/util_MessageWithURL.isi
View File

@@ -227,6 +227,7 @@ begin
Bitmap.Width := GetSystemMetrics(SM_CXICON);
Bitmap.Height := GetSystemMetrics(SM_CYICON);
Bitmap.Canvas.Brush.Color := TPanel(Parent).Color;
//Bitmap.Canvas.Brush.Color := GetThemedBgColor;
Bitmap.Canvas.FillRect(TypRect);
DrawIcon(Bitmap.Canvas.Handle,0,0,Icon); //draws icon scaled
//DrawIconEx(Bitmap.Canvas.Handle,0,0,Icon,0,0,0,0,DI_NORMAL {or DI_DEFAULTSIZE}); //draws icon without scaling
@@ -286,6 +287,7 @@ begin
Blank.Right := Width;
Blank.Bottom := Height;
Bitmap.Canvas.Brush.Color := TPanel(Parent).Color;
//Bitmap.Canvas.Brush.Color := GetThemedBgColor;
Bitmap.Canvas.FillRect(Blank);
end;
end;

2
gimp-data

Submodule gimp-data updated: 9218ec5970...048d766855