Changeset 96 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 28, 2022, 1:54:11 AM (20 months ago)

Author:

chronos

Message:

• Added: Improvement selection dialog after new train dialog.

File:

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

trunk/Forms/UFormMain.pas

@@ -244 +244 @@
   CopyImage(Engine.ImageLocomotive.Bitmap, FormImages.ImageLocomotive.Picture.Bitmap);
   CopyImage(Engine.ImageLocomotive.BitmapDisabled, FormImages.ImageLocomotive.Picture.Bitmap, True);
-  CopyImage(Engine.ImageNewTrain.Bitmap, FormImages.ImageLocomotive.Picture.Bitmap);
-  CopyImage(Engine.ImageNewTrain.BitmapDisabled, FormImages.ImageLocomotive.Picture.Bitmap, True);
+  CopyImage(Engine.ImageLine.Bitmap, FormImages.ImageLine.Picture.Bitmap);
+  CopyImage(Engine.ImageLine.BitmapDisabled, FormImages.ImageLine.Picture.Bitmap, True);
+  CopyImage(Engine.ImageTerminal.Bitmap, FormImages.ImageTerminal.Picture.Bitmap);
+  CopyImage(Engine.ImageTerminal.BitmapDisabled, FormImages.ImageTerminal.Picture.Bitmap, True);
+  CopyImage(Engine.ImageTunnel.Bitmap, FormImages.ImageTunnel.Picture.Bitmap);
+  CopyImage(Engine.ImageTunnel.BitmapDisabled, FormImages.ImageTunnel.Picture.Bitmap, True);
   CopyImage(Engine.ImageCarriage.Bitmap, FormImages.ImageCarriage.Picture.Bitmap);
   CopyImage(Engine.ImageCarriage.BitmapDisabled, FormImages.ImageCarriage.Picture.Bitmap, True);
@@ -261 +265 @@
     BitmapInvert(Engine.ImageLocomotive.Bitmap);
     BitmapInvert(Engine.ImageLocomotive.BitmapDisabled);
-    BitmapInvert(Engine.ImageNewTrain.Bitmap);
-    BitmapInvert(Engine.ImageNewTrain.BitmapDisabled);
+    BitmapInvert(Engine.ImageLine.Bitmap);
+    BitmapInvert(Engine.ImageLine.BitmapDisabled);
+    BitmapInvert(Engine.ImageTerminal.Bitmap);
+    BitmapInvert(Engine.ImageTerminal.BitmapDisabled);
+    BitmapInvert(Engine.ImageTunnel.Bitmap);
+    BitmapInvert(Engine.ImageTunnel.BitmapDisabled);
     BitmapInvert(Engine.ImageCarriage.Bitmap);
     BitmapInvert(Engine.ImageCarriage.BitmapDisabled);
@@ -274 +282 @@
     BitmapInvert(Engine.ImageFastForward.BitmapDisabled);
   end;
+  Engine.ImageNewTrain.Bitmap.Assign(Engine.ImageLocomotive.Bitmap);
+  Engine.ImageNewTrain.BitmapDisabled.Assign(Engine.ImageLocomotive.BitmapDisabled);
 end;