IDE.CompileForm -> IDE.MainForm.

Projects/Compil32.dpr

@@ -15,7 +15,7 @@ uses
   SysUtils,
   Forms,
   PathFunc in '..\Components\PathFunc.pas',
-  IDE.CompileForm in 'Src\IDE.CompileForm.pas' {CompileForm},
+  IDE.MainForm in 'Src\IDE.MainForm.pas' {MainForm},
   Shared.CommonFunc.Vcl in 'Src\Shared.CommonFunc.Vcl.pas',
   Shared.CommonFunc in 'Src\Shared.CommonFunc.pas',
   IDE.HelperFunc in 'Src\IDE.HelperFunc.pas',
@@ -217,6 +217,6 @@ begin
       Title := SCompilerFormCaption;
   end;
 
-  Application.CreateForm(TCompileForm, CompileForm);
+  Application.CreateForm(TMainForm, MainForm);
   Application.Run;
 end.

Projects/Compil32.dproj

@@ -77,8 +77,8 @@
         </DelphiCompile>
         <DCCReference Include="..\Components\SafeDLLPath.pas"/>
         <DCCReference Include="..\Components\PathFunc.pas"/>
-        <DCCReference Include="Src\IDE.CompileForm.pas">
-            <Form>CompileForm</Form>
+        <DCCReference Include="Src\IDE.MainForm.pas">
+            <Form>MainForm</Form>
         </DCCReference>
         <DCCReference Include="Src\Shared.CommonFunc.Vcl.pas"/>
         <DCCReference Include="Src\Shared.CommonFunc.pas"/>

Projects/Src/Compiler.Compile.pas

@@ -13,7 +13,7 @@ unit Compiler.Compile;
 { For debugging purposes, remove the 'x' to have it link the ISPP code into this
   program and not depend on ISPP.dll. You will also need to add the Src
   folder to the Delphi Compiler Search path in the project options. Most useful
-  when combine with IDE.CompileForm's STATICCOMPILER. }
+  when combine with IDE.MainForm's STATICCOMPILER. }
 
 interface
 

Projects/Src/IDE.HelperFunc.pas

@@ -87,7 +87,7 @@ uses
   ActiveX, ShlObj, ShellApi, CommDlg, SysUtils, IOUtils, StrUtils,
   Messages, DwmApi, Consts,
   Shared.CommonFunc, PathFunc, Shared.FileClass, NewUxTheme,
-  IDE.CompileForm, IDE.Messages, Shared.ConfigIniFile;
+  IDE.MainForm, IDE.Messages, Shared.ConfigIniFile;
 
 procedure InitFormFont(Form: TForm);
 var
@@ -148,7 +148,7 @@ procedure InitFormTheme(Form: TForm);
   end;
 
 begin
-  if (Form = CompileForm) or FormTheme.Dark then begin
+  if (Form = MainForm) or FormTheme.Dark then begin
     Form.Color := FormTheme.Colors[tcBack];
   
     { Based on https://learn.microsoft.com/en-us/windows/apps/desktop/modernize/apply-windows-themes

Projects/Src/IDE.CompileForm.dfm → Projects/Src/IDE.MainForm.dfm

@@ -1,4 +1,4 @@
-object CompileForm: TCompileForm
+object MainForm: TMainForm
   Left = 206
   Top = 97
   Caption = '*'

Projects/Src/IDE.StartupForm.pas

@@ -59,7 +59,7 @@ type
 implementation
 
 uses
-  IDE.Messages, Shared.CommonFunc.Vcl, Shared.CommonFunc, IDE.HelperFunc, IDE.CompileForm, ComCtrls;
+  IDE.Messages, Shared.CommonFunc.Vcl, Shared.CommonFunc, IDE.HelperFunc, IDE.MainForm, ComCtrls;
 
 {$R *.DFM}
 
@@ -73,14 +73,14 @@ procedure TStartupForm.UpdateImages;
 
   function GetImage(const Button: TToolButton; const WH: Integer): TWICImage;
   begin
-    Result := CompileForm.LightToolBarImageCollection.GetSourceImage(Button.ImageIndex, WH, WH)
+    Result := MainForm.LightToolBarImageCollection.GetSourceImage(Button.ImageIndex, WH, WH)
   end;
 
 begin
  { After a DPI change the button's Width and Height isn't yet updated, so calculate it ourselves }
   var WH := MulDiv(16, CurrentPPI, 96);
-  NewImage.Picture.Graphic:= GetImage(CompileForm.NewMainFileButton, WH);
-  OpenImage.Picture.Graphic := GetImage(CompileForm.OpenMainFileButton, WH);
+  NewImage.Picture.Graphic:= GetImage(MainForm.NewMainFileButton, WH);
+  OpenImage.Picture.Graphic := GetImage(MainForm.OpenMainFileButton, WH);
 end;
 
 procedure TStartupForm.FormAfterMonitorDpiChanged(Sender: TObject; OldDPI,

Projects/Src/IDE.Wizard.WizardFormRegistryHelper.pas

@@ -47,7 +47,7 @@ implementation
 uses
   Windows, Classes, SysUtils, StrUtils, TypInfo, Graphics, UITypes,
   ComCtrls,
-  IDE.CompileForm, IDE.HelperFunc, IDE.Messages, BrowseFunc, Shared.CommonFunc, IDE.HtmlHelpFunc;
+  IDE.MainForm, IDE.HelperFunc, IDE.Messages, BrowseFunc, Shared.CommonFunc, IDE.HtmlHelpFunc;
 
 { TWizardFormRegistryHelper }
 
@@ -61,13 +61,13 @@ procedure TWizardFormRegistryHelper.UpdateImages;
 
   function GetImage(const Button: TToolButton; const WH: Integer): TWICImage;
   begin
-    Result := CompileForm.LightToolBarImageCollection.GetSourceImage(Button.ImageIndex, WH, WH)
+    Result := MainForm.LightToolBarImageCollection.GetSourceImage(Button.ImageIndex, WH, WH)
   end;
 
 begin
  { After a DPI change the button's Width and Height isn't yet updated, so calculate it ourselves }
   var WH := MulDiv(16, FForm.CurrentPPI, 96);
-  FMinVerDocImage.Picture.Graphic:= GetImage(CompileForm.HelpButton, WH);
+  FMinVerDocImage.Picture.Graphic:= GetImage(MainForm.HelpButton, WH);
 end;
 
 constructor TWizardFormRegistryHelper.Create(const Form: TForm;

Projects/Src/Setup.MainForm.pas

@@ -3024,7 +3024,7 @@ begin
     end else if CompareText(ParamName, '/DebugSpawnServer') = 0 then  { for debugging }
       EnterSpawnServerDebugMode  { does not return }
     else if CompareText(ParamName, '/DEBUGWND=') = 0 then begin
-      ParamIsAutomaticInternal := True; { sent by TCompileForm.StartProcess }
+      ParamIsAutomaticInternal := True; { sent by IDE.MainForm's StartProcess }
       DebugServerWnd := StrToInt(ParamValue);
     end else if CompareText(ParamName, '/ALLUSERS') = 0 then begin
       InitPrivilegesRequired := prAdmin;