Add InitFormTheme to rest of the forms.

Projects/Src/IDE.FilesDesignerForm.pas

@@ -50,6 +50,7 @@ uses
 procedure TFilesDesignerForm.FormCreate(Sender: TObject);
 begin
   InitFormFont(Self);
+  InitFormTheme(Self);
 
   FFilesHelper := TWizardFormFilesHelper.Create(Self,
     NotCreateAppDirCheck, AppFilesListBox, AppFilesAddButton, AppFilesAddDirButton,

Projects/Src/IDE.InputQueryComboForm.pas

@@ -63,6 +63,7 @@ end;
 procedure TInputQueryComboForm.FormCreate(Sender: TObject);
 begin
   InitFormFont(Self);
+  InitFormTheme(Self);
 end;
 
 function TInputQueryComboForm.GetValue: String;

Projects/Src/IDE.InputQueryMemoForm.pas

@@ -77,6 +77,7 @@ end;
 procedure TInputQueryMemoForm.FormCreate(Sender: TObject);
 begin
   InitFormFont(Self);
+  InitFormTheme(Self);
   UpdateImages;
 end;
 

Projects/Src/IDE.MsgBoxDesignerForm.pas

@@ -117,6 +117,7 @@ uses
 procedure TMsgBoxDesignerForm.FormCreate(Sender: TObject);
 begin
   InitFormFont(Self);
+  InitFormTheme(Self);
 
   cb_Suppressible.Checked := True;
   MSGText.Lines[MSGText.CaretPos.Y] := '<Enter your text here...>';

Projects/Src/IDE.RegistryDesignerForm.pas

@@ -69,6 +69,7 @@ end;
 procedure TRegistryDesignerForm.FormCreate(Sender: TObject);
 begin
   InitFormFont(Self);
+  InitFormTheme(Self);
 
   FRegistryHelper := TWizardFormRegistryHelper.Create(Self, AppRegistryFileEdit,
     AppRegistryFileButton, AppRegistryUninsDeleteKeyCheck,

Projects/Src/IDE.SignToolsForm.pas

@@ -80,6 +80,7 @@ procedure TSignToolsForm.FormCreate(Sender: TObject);
 begin
   FSignTools := TStringList.Create();
   InitFormFont(Self);
+  InitFormTheme(Self);
 end;
 
 { This and CreateParams make bsSizeable (which has an unwanted icon) look like bsDialog, see:

Projects/Src/IDE.Wizard.WizardFileForm.pas

@@ -119,6 +119,7 @@ var
   I: Integer;
 begin
   InitFormFont(Self);
+  InitFormTheme(Self);
 
   MakeBold(SourceLabel);
   MakeBold(DestRootDirLabel);

Projects/Src/IDE.Wizard.WizardForm.pas

@@ -298,6 +298,8 @@ begin
   FLanguages.Insert(0, LanguagesDefaultIsl);
 
   InitFormFont(Self);
+  InitFormTheme(Self);
+
   if Font.Name = 'Segoe UI' then begin
     { See Setup.WizardForm.pas }
     for I := 0 to OuterNotebook.PageCount-1 do