procyberian/gimp
2
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp.git synced 2025-07-04 17:59:37 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity Actions

build/windows: Move Inno installer to 'modern' style

Browse source 
This style mimics the color scheme used by Win32 applications since Vista (and
still used in Win11). The all grey scheme ended in XP. Let's move on.

But we will keep the actual window size and without being able to resize since
these two Inno features (WizardSizePercent and WizardResizable) are broken.

(The progress bar was changed too to conform with the defaults and uninstaller)
This commit is contained in:
Bruno Lopes 2024-05-25 11:06:28 -03:00 • committed by Bruno
parent a28b1bad14
commit e93e0f49a0
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
build/windows/installer/base_gimp3264.iss
View file

@ -138,6 +138,9 @@ ChangesAssociations=true
ChangesEnvironment=yes ChangesEnvironment=yes
AlwaysShowDirOnReadyPage=yes AlwaysShowDirOnReadyPage=yes
WizardStyle=modern
WizardSizePercent=100
WizardResizable=no
WizardSmallImageFile=gimp.scale-100.bmp,gimp.scale-125.bmp,gimp.scale-150.bmp,gimp.scale-175.bmp,gimp.scale-200.bmp,gimp.scale-225.bmp,gimp.scale-250.bmp WizardSmallImageFile=gimp.scale-100.bmp,gimp.scale-125.bmp,gimp.scale-150.bmp,gimp.scale-175.bmp,gimp.scale-200.bmp,gimp.scale-225.bmp,gimp.scale-250.bmp
WizardImageFile=windows-installer-intro-big.bmp WizardImageFile=windows-installer-intro-big.bmp
WizardImageStretch=yes WizardImageStretch=yes
@ -875,6 +878,7 @@ begin
Parent := WizardForm.ComponentsList.Parent; Parent := WizardForm.ComponentsList.Parent;
Left := WizardForm.ComponentsList.Left + WizardForm.ComponentsList.Width + ScaleX(8); Left := WizardForm.ComponentsList.Left + WizardForm.ComponentsList.Width + ScaleX(8);
Width := WizardForm.TypesCombo.Width - WizardForm.ComponentsList.Width - ScaleX(8); Width := WizardForm.TypesCombo.Width - WizardForm.ComponentsList.Width - ScaleX(8);
ParentColor := True;
BevelOuter := bvLowered; BevelOuter := bvLowered;
BevelInner := bvRaised; BevelInner := bvRaised;
Top := WizardForm.ComponentsList.Top + Round(lblDescription.Height * 0.4); Top := WizardForm.ComponentsList.Top + Round(lblDescription.Height * 0.4);
@ -910,6 +914,8 @@ begin
Parent := WizardForm.ReadyMemo.Parent; Parent := WizardForm.ReadyMemo.Parent;
Scrollbars := ssVertical; Scrollbars := ssVertical;
Color := WizardForm.Color; Color := WizardForm.Color;
BevelKind := bkFlat;
BorderStyle := bsNone;
UseRichEdit := True; UseRichEdit := True;
RTFText := ReadyMemoRichText; RTFText := ReadyMemoRichText;
ReadOnly := True; ReadOnly := True;
@ -954,7 +960,7 @@ var lblMessage1,lblURL,lblMessage2: TLabel; //TNewStaticText doesn't support ali
begin begin
with WizardForm.ProgressGauge do with WizardForm.ProgressGauge do
begin begin
Height := ScaleY(16); Height := ScaleY(21);
Top := WizardForm.InstallingPage.ClientHeight - Top - Height; Top := WizardForm.InstallingPage.ClientHeight - Top - Height;
WizardForm.StatusLabel.Top := Top - WizardForm.FilenameLabel.Height - ScaleY(4); WizardForm.StatusLabel.Top := Top - WizardForm.FilenameLabel.Height - ScaleY(4);