Changeset 50 for trunk/UGame.pas

Timestamp:

Nov 3, 2019, 12:18:14 PM (5 years ago)

Author:

chronos

Message:

• Added: Support for dark theme.

File:

• trunk/UGame.pas (modified) (4 diffs)

trunk/UGame.pas

@@ -130 +130 @@
     UndoEnabled: Boolean;
     History: THistory;
+    BackgroundColor: TColor;
     function CanUndo: Boolean;
     procedure Undo;
@@ -182 +183 @@
 implementation
 
+uses
+  UCore;
+
 procedure Translate;
 begin
@@ -593 +597 @@
   TileMargin := Round(CanvasSize.X / Board.Size.X * 0.015);
   Canvas.Brush.Style := bsSolid;
-  Canvas.Brush.Color := clBlack;
+  Canvas.Brush.Color := Core.ThemeManager1.Theme.ColorControl;
   Canvas.FillRect(0, 0, Canvas.Width, Canvas.Height);
 
   ValueStr := SScore + ': ' + IntToStr(Score);
-  Canvas.Font.Color := clWhite;
+  Canvas.Font.Color := Core.ThemeManager1.Theme.ColorControlText;
   Canvas.Font.Height := Trunc(TopBarHeight * 0.7);
   Canvas.TextOut(ScaleY(16, 96), (TopBarHeight - Canvas.TextHeight(ValueStr)) div 2, ValueStr);
 
   ValueStr := STopScore + ': ' + IntToStr(TopScore);
-  Canvas.Font.Color := clWhite;
+  Canvas.Font.Color := Core.ThemeManager1.Theme.ColorControlText;
   Canvas.Font.Height := Trunc(TopBarHeight * 0.7);
   Canvas.TextOut(ScaleY(136, 96), (TopBarHeight - Canvas.TextHeight(ValueStr)) div 2, ValueStr);
@@ -1030 +1034 @@
 function TGame.GetTileColor(Value: Integer): TColor;
 begin
-  case Value of
-    0: Result := $f2f6f9;
-    1: Result := $dae4ee;
-    2: Result := $c8e0ed;
-    3: Result := $79b1f2;
-    4: Result := $6395f5;
-    5: Result := $5f7cf6;
-    6: Result := $3b5ef6;
-    7: Result := $72cfed;
-    8: Result := $61cced;
-    9: Result := $50c8ed;
-    10: Result := $3fc5ed;
-    11: Result := $2ec2ed;
-    else Result := $323a3c;
+  if Core.ThemeManager1.Theme.Name = 'Dark' then begin
+    case Value of
+      0: Result := $222629;
+      1: Result := $dae4ee;
+      2: Result := $c8e0ed;
+      3: Result := $79b1f2;
+      4: Result := $6395f5;
+      5: Result := $5f7cf6;
+      6: Result := $3b5ef6;
+      7: Result := $72cfed;
+      8: Result := $61cced;
+      9: Result := $50c8ed;
+      10: Result := $3fc5ed;
+      11: Result := $2ec2ed;
+      else Result := $323a3c;
+    end;
+  end else begin
+    case Value of
+      0: Result := $f2f6f9;
+      1: Result := $dae4ee;
+      2: Result := $c8e0ed;
+      3: Result := $79b1f2;
+      4: Result := $6395f5;
+      5: Result := $5f7cf6;
+      6: Result := $3b5ef6;
+      7: Result := $72cfed;
+      8: Result := $61cced;
+      9: Result := $50c8ed;
+      10: Result := $3fc5ed;
+      11: Result := $2ec2ed;
+      else Result := $323a3c;
+    end;
   end;
 end;