Cleanup.

Projects/CompForm.dfm

@@ -151,7 +151,7 @@ object CompileForm: TCompileForm
     Margins.Left = 7
     Margins.Top = 4
     Margins.Bottom = 0
-    Images = ToolbarVirtualImageList
+    Images = ToolBarVirtualImageList
     ParentShowHint = False
     ShowHint = True
     TabOrder = 2
@@ -940,7 +940,7 @@ object CompileForm: TCompileForm
       0000000000000000000000000000000000000000000000000000000000000000
       00000000000000000000000000000000000000000000}
   end
-  object ToolbarImageCollection: TImageCollection
+  object ToolBarImageCollection: TImageCollection
     Images = <
       item
         Name = 'NewFile'
@@ -1472,7 +1472,7 @@ object CompileForm: TCompileForm
     Left = 272
     Top = 48
   end
-  object ToolbarVirtualImageList: TVirtualImageList
+  object ToolBarVirtualImageList: TVirtualImageList
     AutoFill = True
     DisabledGrayscale = False
     DisabledSuffix = '_Disabled'
@@ -1543,7 +1543,7 @@ object CompileForm: TCompileForm
         Disabled = False
         Name = 'Stop'
       end>
-    ImageCollection = ToolbarImageCollection
+    ImageCollection = ToolBarImageCollection
     Left = 272
     Top = 80
   end

Projects/CompForm.pas

@@ -25,8 +25,8 @@ uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   UIStateForm, StdCtrls, ExtCtrls, Menus, Buttons, ComCtrls, CommCtrl,
   ScintInt, ScintEdit, ScintStylerInnoSetup, NewTabSet,
-  DebugStruct, CompInt, UxThemeISX, System.ImageList, Vcl.ImgList, Vcl.ToolWin,
-  Vcl.VirtualImageList, Vcl.BaseImageCollection, Vcl.ImageCollection;
+  DebugStruct, CompInt, UxThemeISX, System.ImageList, ImgList, ToolWin,
+  VirtualImageList, BaseImageCollection, ImageCollection;
 
 const
   WM_StartCommandLineCompile = WM_USER + $1000;
@@ -171,8 +171,8 @@ type
     Bevel1: TBevel;
     BuildImageList: TImageList;
     TerminateButton: TToolButton;
-    ToolbarImageCollection: TImageCollection;
-    ToolbarVirtualImageList: TVirtualImageList;
+    ToolBarImageCollection: TImageCollection;
+    ToolBarVirtualImageList: TVirtualImageList;
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure FExitClick(Sender: TObject);
     procedure FOpenClick(Sender: TObject);

Projects/CompStartup.pas

@@ -71,7 +71,7 @@ procedure TStartupForm.UpdateImages;
 
   function GetBitmap(const Button: TToolButton; const WH: Integer): TBitmap;
   begin
-    Result := CompileForm.ToolbarImageCollection.GetBitmap(Button.ImageIndex, WH, WH)
+    Result := CompileForm.ToolBarImageCollection.GetBitmap(Button.ImageIndex, WH, WH)
   end;
 
 var