Embarcadero · LuoYunXi0407 · Jul 13, 2025
diff --git a/Source/README.txt b/Source/README.txt
@@ -4,9 +4,17 @@ To build devcpp a recent Delphi version is required (10.4 and onwards).
 
 The main executable devcpp.exe can be built using the following steps:
 
-	1) Install
-		VCL Style - Windows10BlueWhale from GetIt in the IDE.
-		https://getitnow.embarcadero.com/VCLStyle-Windows10BlueWhale-1.0/
+	1) Install VCL Style Files:
+		You need to install the following package(s) by "Tools" - "GetIt Package Manager..." in the IDE.
+		Search them using the search box in the upper right corner:
+		VCL Style - Calypso 2.0
+		VCL Style - FlatUILight 2.0
+		VCL Style - Windows10BlackPearl 2.0
+		VCL Style - Windows10BlueWhale 2.0
+
+		VCL Windows Style - Material Patterns Blue 2.0(https://getitnow.embarcadero.com/vcl-windows-style-material-patterns-blue/), Unfortunately, you can't search and install it in Delphi IDE, so you can only delete the line when compiling errors.
+
+
 	1) Compile and install the following package(s):
 		Source\VCL\DevCpp.dpk
 		Source\VCL\SynEdit\Packages\Sydney\Delphi\SynEditDelphi.groupproj
@@ -15,6 +23,8 @@ The main executable devcpp.exe can be built using the following steps:
 
 	2) Compile resources by running the following script(s):
 		Source\CompileResources.bat
+		Source\VCL\vcl-styles-utils\Common\CompileResources.bat
+		Source\VCL\vcl-styles-utils\Common\CompileResources_zip.bat
 
 	3) Open the project file devcpp.dpr. Your IDE should not produce any 
 	   'Module Not Found' or 'Resource Not Found' errors when opening files, 

diff --git a/Source/VCL/SVGIconImageList/Cairo/cairo.inc b/Source/VCL/SVGIconImageList/Cairo/cairo.inc
@@ -16,7 +16,7 @@
   {$DEFINE CAIRO_HAS_FT_FONT}
 {$ENDIF}
 
-{$ifdef MSWINDOWS}
+{$ifdef WIN32}
   {$define CAIRO_HAS_WIN32_SURFACE}
   {$define CAIRO_HAS_WIN32_FONT}
 {$endif}

diff --git a/Source/VCL/SVGIconImageList/Cairo/cairo.pas b/Source/VCL/SVGIconImageList/Cairo/cairo.pas
@@ -28,7 +28,6 @@
  *)
 
 unit cairo;
-
 {$IFDEF FPC}
   {$MODE OBJFPC}{$H+}
 {$ENDIF}
@@ -37,7 +36,7 @@
 
 interface
 uses sysutils, classes, cairolib
-{$IFDEF MSWINDOWS}
+{$IFDEF WIN32}
 , windows
 {$ENDIF}
 {$IFDEF CAIRO_HAS_RSVG_FUNCTIONS}
@@ -2860,4 +2859,3 @@ function TCairoRegion.XorRegion(other: ICairoRegion): TCairoStatus;
 end;
 
 end.
-

diff --git a/Source/VCL/SVGIconImageList/Cairo/cairolib.pas b/Source/VCL/SVGIconImageList/Cairo/cairolib.pas
@@ -47,9 +47,9 @@
 
 interface
 
-{$IFDEF MSWINDOWS}
+{$ifdef WIN32}
 uses windows;
-{$ENDIF}
+{$endif}
 
 {$ifdef UNIX}
 uses x, xlib, xrender, freetypeh;

diff --git a/Source/VCL/SVGIconImageList/Demo/Benchmark/Benchmark.dpr b/Source/VCL/SVGIconImageList/Demo/Benchmark/Benchmark.dpr
@@ -8,7 +8,6 @@ uses
 
 begin
   Application.Initialize;
-  Application.Title := 'SVG Icons - Factories Benchmark';
   Application.MainFormOnTaskbar := True;
   Application.CreateForm(TfrmBenchmark, frmBenchmark);
   Application.Run;

diff --git a/Source/VCL/SVGIconImageList/Demo/Benchmark/Benchmark_Icon.ico b/Source/VCL/SVGIconImageList/Demo/Benchmark/Benchmark_Icon.ico
diff --git a/Source/VCL/SVGIconImageList/Demo/Benchmark/UBenchmark.dfm b/Source/VCL/SVGIconImageList/Demo/Benchmark/UBenchmark.dfm
@@ -2,227 +2,102 @@ object frmBenchmark: TfrmBenchmark
   Left = 0
   Top = 0
   Caption = 'Benchmark'
-  ClientHeight = 545
-  ClientWidth = 784
+  ClientHeight = 342
+  ClientWidth = 719
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
-  Font.Height = -12
-  Font.Name = 'Segoe UI'
+  Font.Height = -11
+  Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   PixelsPerInch = 96
-  TextHeight = 15
-  object splHorizontal: TSplitter
-    Left = 0
-    Top = 421
-    Width = 784
-    Height = 4
-    Cursor = crVSplit
-    Align = alBottom
-    AutoSnap = False
-    Beveled = True
-    MinSize = 100
-    ExplicitTop = 422
+  TextHeight = 13
+  object lblLoops: TLabel
+    Left = 304
+    Top = 316
+    Width = 28
+    Height = 13
+    Caption = '&Loops'
+    FocusControl = speLoops
   end
   object memOutput: TMemo
-    Left = 0
-    Top = 425
-    Width = 784
-    Height = 120
-    Align = alBottom
+    Left = 24
+    Top = 24
+    Width = 385
+    Height = 281
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -11
     Font.Name = 'Consolas'
     Font.Style = []
     ParentFont = False
-    ReadOnly = True
-    ScrollBars = ssVertical
     TabOrder = 0
   end
+  object btnClear: TButton
+    Left = 24
+    Top = 311
+    Width = 100
+    Height = 25
+    Caption = '&Clear'
+    TabOrder = 1
+    OnClick = btnClearClick
+  end
+  object btnLoad: TButton
+    Left = 130
+    Top = 311
+    Width = 100
+    Height = 25
+    Caption = 'L&oad Image'
+    TabOrder = 2
+    OnClick = btnLoadClick
+  end
   object SVGIconImage: TSVGIconImage
-    Left = 0
-    Top = 0
-    Width = 634
-    Height = 421
+    Left = 424
+    Top = 24
+    Width = 281
+    Height = 281
     AutoSize = False
-    ParentDoubleBuffered = False
-    DoubleBuffered = True
-    ImageList = SVGIconVirtualImageList
-    Align = alClient
+    ImageList = imlIcons
   end
-  object pnlButtons: TPanel
-    Left = 634
-    Top = 0
-    Width = 150
-    Height = 421
-    Align = alRight
-    BevelOuter = bvNone
-    TabOrder = 2
-    object btnClear: TButton
-      AlignWithMargins = True
-      Left = 10
-      Top = 386
-      Width = 130
-      Height = 30
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alBottom
-      Caption = '&Clear Output'
-      TabOrder = 0
-      OnClick = btnClearClick
-    end
-    object btnLoad: TButton
-      AlignWithMargins = True
-      Left = 10
-      Top = 5
-      Width = 130
-      Height = 30
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alTop
-      Caption = 'L&oad Image'
-      TabOrder = 1
-      OnClick = btnLoadClick
-    end
-    object btnRunBenchmark: TButton
-      AlignWithMargins = True
-      Left = 10
-      Top = 346
-      Width = 130
-      Height = 30
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alBottom
-      Caption = '&Benchmark'
-      TabOrder = 2
-      OnClick = btnRunBenchmarkClick
-    end
-    object chkGrayScale: TCheckBox
-      AlignWithMargins = True
-      Left = 10
-      Top = 256
-      Width = 130
-      Height = 20
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alBottom
-      Caption = '&Grayscale'
-      Checked = True
-      State = cbChecked
-      TabOrder = 3
-    end
-    object chkFixedColor: TCheckBox
-      AlignWithMargins = True
-      Left = 10
-      Top = 286
-      Width = 130
-      Height = 20
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alBottom
-      Caption = '&Fixed Color'
-      Checked = True
-      State = cbChecked
-      TabOrder = 4
-    end
-    object pnlLoops: TPanel
-      Left = 0
-      Top = 311
-      Width = 150
-      Height = 30
-      Align = alBottom
-      BevelOuter = bvNone
-      TabOrder = 5
-      object lblLoops: TLabel
-        AlignWithMargins = True
-        Left = 10
-        Top = 8
-        Width = 32
-        Height = 17
-        Margins.Left = 10
-        Margins.Top = 8
-        Margins.Right = 5
-        Margins.Bottom = 5
-        Align = alLeft
-        Caption = '&Loops'
-        FocusControl = speLoops
-        ExplicitHeight = 15
-      end
-      object speLoops: TSpinEdit
-        AlignWithMargins = True
-        Left = 52
-        Top = 5
-        Width = 88
-        Height = 24
-        Margins.Left = 5
-        Margins.Top = 5
-        Margins.Right = 10
-        Margins.Bottom = 5
-        MaxValue = 999
-        MinValue = 1
-        TabOrder = 0
-        Value = 50
-      end
-    end
-    object grpFactory: TRadioGroup
-      AlignWithMargins = True
-      Left = 10
-      Top = 45
-      Width = 130
-      Height = 105
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alTop
-      Caption = 'SVG Factory'
-      TabOrder = 6
-      OnClick = grpFactoryClick
-    end
-    object chkDrawVisible: TCheckBox
-      AlignWithMargins = True
-      Left = 10
-      Top = 227
-      Width = 130
-      Height = 20
-      Margins.Left = 10
-      Margins.Top = 5
-      Margins.Right = 10
-      Margins.Bottom = 5
-      Align = alBottom
-      Caption = '&Draw visible'
-      Checked = True
-      State = cbChecked
-      TabOrder = 7
-      ExplicitTop = 230
-    end
+  object btnRunBenchmark: TButton
+    Left = 447
+    Top = 309
+    Width = 100
+    Height = 25
+    Caption = '&Benchmark'
+    TabOrder = 4
+    OnClick = btnRunBenchmarkClick
+  end
+  object speLoops: TSpinEdit
+    Left = 360
+    Top = 311
+    Width = 81
+    Height = 22
+    MaxValue = 999
+    MinValue = 10
+    TabOrder = 5
+    Value = 100
   end
   object SVGIconImageCollection: TSVGIconImageCollection
     SVGIconItems = <>
     Left = 48
     Top = 40
   end
+  object imlIcons: TVirtualImageList
+    AutoFill = True
+    DisabledGrayscale = False
+    DisabledSuffix = '_Disabled'
+    Images = <>
+    ImageCollection = SVGIconImageCollection
+    Left = 48
+    Top = 88
+  end
   object OpenDialog: TOpenDialog
     DefaultExt = '*.svg'
     Left = 48
     Top = 136
   end
-  object SVGIconVirtualImageList: TSVGIconVirtualImageList
-    ImageCollection = SVGIconImageCollection
-    Left = 48
-    Top = 88
-  end
 end