Changeset 54 for trunk/Packages/Common/UTheme.pas

Timestamp:

Dec 24, 2022, 7:17:24 PM (18 months ago)

Author:

chronos

Message:

• Modified: Updated Common package to latest version.
• Modified: Build with Lazarus 2.2.4.

Location:

trunk

Files:

• . (modified) (1 prop)
• Packages/Common/UTheme.pas (modified) (7 diffs)

trunk

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+

trunk/Packages/Common/UTheme.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Graphics, ComCtrls, Controls, ExtCtrls, Menus, StdCtrls,
-  Spin, Forms, fgl, Grids;
+  Spin, Forms, Generics.Collections, Grids;
 
 type
@@ -19 +19 @@
   { TThemes }
 
-  TThemes = class(TFPGObjectList<TTheme>)
+  TThemes = class(TObjectList<TTheme>)
     function AddNew(Name: string): TTheme;
     function FindByName(Name: string): TTheme;
@@ -42 +42 @@
   end;
 
+const
+  ThemeNameSystem = 'System';
+  ThemeNameLight = 'Light';
+  ThemeNameDark = 'Dark';
+
 procedure Register;
+
 
 implementation
@@ -105 +111 @@
   inherited;
   Themes := TThemes.Create;
-  with Themes.AddNew('System') do begin
+  with Themes.AddNew(ThemeNameSystem) do begin
     ColorWindow := clWindow;
     ColorWindowText := clWindowText;
@@ -113 +119 @@
   end;
   Theme := TTheme(Themes.First);
-  with Themes.AddNew('Dark') do begin
+  with Themes.AddNew(ThemeNameDark) do begin
     ColorWindow := RGBToColor($20, $20, $20);
     ColorWindowText := clWhite;
@@ -120 +126 @@
     ColorControlSelected := RGBToColor(96, 125, 155);
   end;
-  with Themes.AddNew('Light') do begin
+  with Themes.AddNew(ThemeNameLight) do begin
     ColorWindow := clWhite;
     ColorWindowText := clBlack;
@@ -175 +181 @@
 procedure TThemeManager.UseTheme(Form: TForm);
 begin
-  if not Used and (FTheme.Name = 'System') then Exit;
+  if not Used and (FTheme.Name = ThemeNameSystem) then Exit;
   ApplyTheme(Form);
   Used := True;

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+