Changeset 93 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 26, 2022, 10:39:03 PM (20 months ago)

Author:

chronos

Message:

• Added: Support for train carriages.
• Added: City support implementation preparation.

File:

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

trunk/Forms/UFormMain.pas

@@ -196 +196 @@
       Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
     end else Translator1.Language := Translator1.Languages.SearchByCode('');
-    Engine.DarkMode := ReadBoolWithDefault('DarkMode', False);
-    Engine.HighestServedPassengerCount := ReadIntegerWithDefault('HighestPassengers', 0);
-    Engine.HighestServedDaysCount := ReadIntegerWithDefault('HighestDays', 0);
+    Engine.LoadFromRegistry(CurrentContext);
   finally
     Free;
@@ -213 +211 @@
       WriteString('LanguageCode', Translator1.Language.Code)
       else DeleteValue('LanguageCode');
-    WriteBool('DarkMode', Engine.DarkMode);
-    WriteInteger('HighestPassengers', Engine.HighestServedPassengerCount);
-    WriteInteger('HighestDays', Engine.HighestServedDaysCount);
+    Engine.SaveToRegistry(CurrentContext);
   finally
     Free;
@@ -227 +223 @@
   CopyImage(Engine.ImageLocomotive.Bitmap, FormImages.ImageLocomotive.Picture.Bitmap);
   CopyImage(Engine.ImageLocomotive.BitmapDisabled, FormImages.ImageLocomotive.Picture.Bitmap, True);
+  CopyImage(Engine.ImageCarriage.Bitmap, FormImages.ImageCarriage.Picture.Bitmap);
+  CopyImage(Engine.ImageCarriage.BitmapDisabled, FormImages.ImageCarriage.Picture.Bitmap, True);
   CopyImage(Engine.ButtonBack.Bitmap, FormImages.ImageLeftArrow.Picture.Bitmap);
   CopyImage(Engine.ButtonBack.BitmapDisabled, FormImages.ImageLeftArrow.Picture.Bitmap, True);
@@ -240 +238 @@
     BitmapInvert(Engine.ImageLocomotive.Bitmap);
     BitmapInvert(Engine.ImageLocomotive.BitmapDisabled);
+    BitmapInvert(Engine.ImageCarriage.Bitmap);
+    BitmapInvert(Engine.ImageCarriage.BitmapDisabled);
     BitmapInvert(Engine.ButtonBack.Bitmap);
     BitmapInvert(Engine.ButtonBack.BitmapDisabled);