Changeset 113 for trunk/Game.pas

Timestamp:

Dec 10, 2024, 4:51:28 PM (11 days ago)

Author:

chronos

Message:

• Fixed: Dark theme detection for board colors.

File:

• trunk/Game.pas (modified) (2 diffs)

trunk/Game.pas

@@ -151 +151 @@
 
 uses
-  Core, MetaCanvas, PixelPointer;
+  Core, MetaCanvas, PixelPointer, Theme;
 
 procedure Translate;
@@ -1146 +1146 @@
   Color: TPixel32;
 begin
-  if Core.Core.ThemeManager1.Theme.Name = 'Dark' then begin
+  if (Core.Core.ThemeManager1.Theme.Name = ThemeNameDark) or
+  ((Core.Core.ThemeManager1.Theme.Name = ThemeNameSystem) and
+  Core.Core.ThemeManager1.IsDarkTheme)
+  then begin
     case Value of
       0: Result := $222629;