Changeset 95 for trunk/UColors.pas

Timestamp:

Sep 28, 2022, 12:23:17 AM (20 months ago)

Author:

chronos

Message:

• Added: Show dialog about new train every start of new week.

File:

• trunk/UColors.pas (modified) (3 diffs)

trunk/UColors.pas

@@ -12 +12 @@
   TColors = record
     Background: TColor;
+    Background2: TColor;
     Text: TColor;
     ShapeBackground: TColor;
@@ -29 +30 @@
   if DarkMode then begin
     Background := $2f3020;
+    Background2 := $4f5040;
     Text := clWhite;
     ShapeBackground := clBlack;
@@ -36 +38 @@
   end else begin
     Background := $eff0e0;
+    Background2 := $cfd0c0;
     Text := clBlack;
     ShapeBackground := clWhite;