Changeset 76 for trunk/Forms/UFormMain.pas

Timestamp:

May 18, 2021, 10:25:20 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Colors inversion of used images if dark mode active.
• Fixed: Back button arrow drawn as image instead of font. Left arrow was not supported under Ubuntu.
• Modified: Allow to start new track from already connected station.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -44 +44 @@
     procedure LoadConfig;
     procedure SaveConfig;
+    procedure LoadGraphicAssets;
+    procedure DarkModeChange(Sender: TObject);
   public
     FullScreen: Boolean;
@@ -59 +61 @@
 
 uses
-  UFormImages;
+  UFormImages, UPixelPointer;
 
 { TFormMain }
@@ -114 +116 @@
     FullScreen := PersistentForm1.FormFullScreen;
     Engine.InitMenus;
-    Engine.ImagePassenger.Picture.Assign(FormImages.ImagePassenger.Picture);
-    Engine.ImageLocomotive.Picture.Assign(FormImages.ImageLocomotive.Picture);
+    Engine.OnDarkModeChange := DarkModeChange;
     Engine.Map.Size := Point(PaintBox1.Width, PaintBox1.Height);
     Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
     Engine.MainMenu;
+    LoadGraphicAssets;
   end;
 end;
@@ -212 +214 @@
 end;
 
+procedure TFormMain.LoadGraphicAssets;
+begin
+  Engine.ImagePassenger.Picture.Assign(FormImages.ImagePassenger.Picture);
+  Engine.ImageLocomotive.Picture.Assign(FormImages.ImageLocomotive.Picture);
+  Engine.ButtonBack.Bitmap.Assign(FormImages.ImageLeftArrow.Picture.Bitmap);
+  if Engine.DarkMode then begin
+    BitmapInvert(Engine.ImagePassenger.Picture.Bitmap);
+    BitmapInvert(Engine.ImageLocomotive.Picture.Bitmap);
+    BitmapInvert(Engine.ButtonBack.Bitmap);
+  end;
+end;
+
+procedure TFormMain.DarkModeChange(Sender: TObject);
+begin
+  LoadGraphicAssets;
+end;
+
 
 end.