Changeset 77 for trunk/Forms/UFormMain.pas

Timestamp:

May 19, 2021, 11:30:41 AM (3 years ago)

Author:

chronos

Message:

• Added: Control icons for Pause, Play and Fast forward.
• Modified: Image buttons changed to custom TImage control with Enabled property supported.

File:

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

trunk/Forms/UFormMain.pas

@@ -46 +46 @@
     procedure LoadGraphicAssets;
     procedure DarkModeChange(Sender: TObject);
+    procedure CopyImage(DestBmp: TBitmap; SourceBmp: TBitmap; Grayed: Boolean = False);
   public
     FullScreen: Boolean;
@@ -85 +86 @@
 begin
   SaveConfig;
-  Engine.Free;
+  FreeAndNil(Engine);
 end;
 
@@ -216 +217 @@
 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);
+  CopyImage(Engine.ImagePassenger.Bitmap, FormImages.ImagePassenger.Picture.Bitmap);
+  CopyImage(Engine.ImagePassenger.BitmapDisabled, FormImages.ImagePassenger.Picture.Bitmap, True);
+  CopyImage(Engine.ImageLocomotive.Bitmap, FormImages.ImageLocomotive.Picture.Bitmap);
+  CopyImage(Engine.ImageLocomotive.BitmapDisabled, FormImages.ImageLocomotive.Picture.Bitmap, True);
+  CopyImage(Engine.ButtonBack.Bitmap, FormImages.ImageLeftArrow.Picture.Bitmap);
+  CopyImage(Engine.ButtonBack.BitmapDisabled, FormImages.ImageLeftArrow.Picture.Bitmap, True);
+  CopyImage(Engine.ImagePlay.Bitmap, FormImages.ImagePlay.Picture.Bitmap);
+  CopyImage(Engine.ImagePlay.BitmapDisabled, FormImages.ImagePlay.Picture.Bitmap, True);
+  CopyImage(Engine.ImagePause.Bitmap, FormImages.ImagePause.Picture.Bitmap);
+  CopyImage(Engine.ImagePause.BitmapDisabled, FormImages.ImagePause.Picture.Bitmap, True);
+  CopyImage(Engine.ImageFastForward.Bitmap, FormImages.ImageFastForward.Picture.Bitmap);
+  CopyImage(Engine.ImageFastForward.BitmapDisabled, FormImages.ImageFastForward.Picture.Bitmap, True);
   if Engine.DarkMode then begin
-    BitmapInvert(Engine.ImagePassenger.Picture.Bitmap);
-    BitmapInvert(Engine.ImageLocomotive.Picture.Bitmap);
+    BitmapInvert(Engine.ImagePassenger.Bitmap);
+    BitmapInvert(Engine.ImagePassenger.BitmapDisabled);
+    BitmapInvert(Engine.ImageLocomotive.Bitmap);
+    BitmapInvert(Engine.ImageLocomotive.BitmapDisabled);
     BitmapInvert(Engine.ButtonBack.Bitmap);
+    BitmapInvert(Engine.ButtonBack.BitmapDisabled);
+    BitmapInvert(Engine.ImagePlay.Bitmap);
+    BitmapInvert(Engine.ImagePlay.BitmapDisabled);
+    BitmapInvert(Engine.ImagePause.Bitmap);
+    BitmapInvert(Engine.ImagePause.BitmapDisabled);
+    BitmapInvert(Engine.ImageFastForward.Bitmap);
+    BitmapInvert(Engine.ImageFastForward.BitmapDisabled);
   end;
 end;
@@ -231 +250 @@
 end;
 
+procedure TFormMain.CopyImage(DestBmp: TBitmap; SourceBmp: TBitmap;
+  Grayed: Boolean);
+begin
+  DestBmp.PixelFormat := SourceBmp.PixelFormat;
+  DestBmp.SetSize(0, 0);
+  DestBmp.SetSize(SourceBmp.Width, SourceBmp.Height);
+  BitmapCopyRect(DestBmp, Bounds(0, 0, DestBmp.Width, DestBmp.Height), SourceBmp,
+    Point(0, 0));
+  if Grayed then BitmapBlendColor(DestBmp, $ffffffff);
+end;
+
 
 end.