Changeset 115 for trunk/Game.pas

Timestamp:

Dec 11, 2024, 10:26:02 AM (11 days ago)

Author:

chronos

Message:

• Modified: Automatically detect and use dark mode on Windows.
• Modified: Use dark mode title bar on Windows 10.

File:

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

trunk/Game.pas

@@ -409 +409 @@
   // Clear background
   MetaCanvas.Brush.Style := bsSolid;
-  MetaCanvas.Brush.Color := Core.Core.ThemeManager1.Theme.ColorControl;
+  MetaCanvas.Brush.Color := Core.Core.ThemeManager1.ActualTheme.ColorControl;
   MetaCanvas.FillRect(0, 0, MetaCanvas.Width, MetaCanvas.Height);
 
@@ -663 +663 @@
 begin
   with Canvas do begin
-    Font.Color := Core.Core.ThemeManager1.Theme.ColorControlText;
+    Font.Color := Core.Core.ThemeManager1.ActualTheme.ColorControlText;
     Font.Size := Trunc(ScaleX(BoxFontSize, 96));
 
@@ -671 +671 @@
 
     Brush.Style := bsSolid;
-    Brush.Color := Core.Core.ThemeManager1.Theme.ColorWindow;
+    Brush.Color := Core.Core.ThemeManager1.ActualTheme.ColorWindow;
     FillRect(Pos.X, Pos.Y, Pos.X + BoxSize.Width, Pos.Y + BoxSize.Height);
 
@@ -678 +678 @@
 
     Brush.Style := bsClear;
-    Font.Color := Core.Core.ThemeManager1.Theme.ColorControlText;
+    Font.Color := Core.Core.ThemeManager1.ActualTheme.ColorControlText;
     Font.Size := Trunc(ScaleX(BoxFontSize, 96));
     TextOut(Pos.X + (BoxSize.Width - TextWidth(Value)) div 2,
@@ -1146 +1146 @@
   Color: TPixel32;
 begin
-  if (Core.Core.ThemeManager1.Theme.Name = ThemeNameDark) or
-  ((Core.Core.ThemeManager1.Theme.Name = ThemeNameSystem) and
+  if (Core.Core.ThemeManager1.ActualTheme.Name = ThemeNameDark) or
+  ((Core.Core.ThemeManager1.ActualTheme.Name = ThemeNameSystem) and
   Core.Core.ThemeManager1.IsDarkTheme)
   then begin