From e93e0f49a0a71e2e7f542170d50c4e6df3b2bc64 Mon Sep 17 00:00:00 2001
From: Bruno Lopes <brunolopesdsilv@outlook.com>
Date: Sat, 25 May 2024 11:06:28 -0300
Subject: [PATCH] build/windows: Move Inno installer to 'modern' style

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)
---
 build/windows/installer/base_gimp3264.iss | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/build/windows/installer/base_gimp3264.iss b/build/windows/installer/base_gimp3264.iss
index 3a616ba684..e5e28359bf 100644
--- a/build/windows/installer/base_gimp3264.iss
+++ b/build/windows/installer/base_gimp3264.iss
@@ -138,6 +138,9 @@ ChangesAssociations=true
 ChangesEnvironment=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
 WizardImageFile=windows-installer-intro-big.bmp
 WizardImageStretch=yes
@@ -875,6 +878,7 @@ begin
 		Parent := WizardForm.ComponentsList.Parent;
 		Left := WizardForm.ComponentsList.Left + WizardForm.ComponentsList.Width + ScaleX(8);
 		Width := WizardForm.TypesCombo.Width - WizardForm.ComponentsList.Width - ScaleX(8);
+		ParentColor := True;
 		BevelOuter := bvLowered;
 		BevelInner := bvRaised;
 		Top := WizardForm.ComponentsList.Top + Round(lblDescription.Height * 0.4);
@@ -910,6 +914,8 @@ begin
 		Parent := WizardForm.ReadyMemo.Parent;
 		Scrollbars := ssVertical;
 		Color := WizardForm.Color;
+		BevelKind := bkFlat;
+		BorderStyle := bsNone;
 		UseRichEdit := True;
 		RTFText := ReadyMemoRichText;
 		ReadOnly := True;
@@ -954,7 +960,7 @@ var lblMessage1,lblURL,lblMessage2: TLabel; //TNewStaticText doesn't support ali
 begin
 	with WizardForm.ProgressGauge do
 	begin
-		Height := ScaleY(16);
+		Height := ScaleY(21);
 		Top := WizardForm.InstallingPage.ClientHeight - Top - Height;
 
 		WizardForm.StatusLabel.Top := Top - WizardForm.FilenameLabel.Height - ScaleY(4);