Changeset 100 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 28, 2022, 7:14:22 PM (20 months ago)

Author:

chronos

Message:

• Added: New game mode carrier where user needs to play existing cities and gradually unlock them by reaching exprected transported number of passengers.

File:

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

trunk/Forms/UFormMain.pas

@@ -18 +18 @@
     Timer1: TTimer;
     Translator1: TTranslator;
-    procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -85 +84 @@
 
   Engine := TEngine.Create;
+  Engine.RegistryContext := ApplicationInfo1.GetRegistryContext;
   LoadConfig;
+  // Load cities after language core is loaded to have city names translated
+  Engine.InitCities;
+  Engine.LoadFromRegistry;
   //PaintBox1.ControlStyle := [csOpaque];
   Randomize;
-end;
-
-procedure TFormMain.FormActivate(Sender: TObject);
-begin
 end;
 
@@ -217 +216 @@
       Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
     end else Translator1.Language := Translator1.Languages.SearchByCode('');
-    Engine.LoadFromRegistry(CurrentContext);
+    Engine.LoadFromRegistry;
   finally
     Free;
@@ -232 +231 @@
       WriteString('LanguageCode', Translator1.Language.Code)
       else DeleteValue('LanguageCode');
-    Engine.SaveToRegistry(CurrentContext);
+    Engine.SaveToRegistry;
   finally
     Free;
@@ -260 +259 @@
   CopyImage(Engine.ImageFastForward.Bitmap, FormImages.ImageFastForward.Picture.Bitmap);
   CopyImage(Engine.ImageFastForward.BitmapDisabled, FormImages.ImageFastForward.Picture.Bitmap, True);
+  CopyImage(Engine.ImageAchievement.Bitmap, FormImages.ImageAchievement.Picture.Bitmap);
+  CopyImage(Engine.ImageAchievement.BitmapDisabled, FormImages.ImageAchievement.Picture.Bitmap, True);
   if Engine.DarkMode then begin
     BitmapInvert(Engine.ImagePassenger.Bitmap);
@@ -281 +282 @@
     BitmapInvert(Engine.ImageFastForward.Bitmap);
     BitmapInvert(Engine.ImageFastForward.BitmapDisabled);
+    BitmapInvert(Engine.ImageAchievement.Bitmap);
+    BitmapInvert(Engine.ImageAchievement.BitmapDisabled);
   end;
   Engine.ImageNewTrain.Bitmap.Assign(Engine.ImageLocomotive.Bitmap);