Changeset 68 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 28, 2020, 12:17:21 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Canvas width and height is not updated correctly on Windows. Use additional CanvasSize parameter in drawing methods.
• Fixed: Fullscreen was not working on Windows. Form border was not hidden.

File:

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

trunk/Forms/UFormMain.pas

@@ -75 +75 @@
   if not Initialized then begin
     Initialized := True;
+    PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
+    PersistentForm1.Load(Self, False, True);
+    FullScreen := PersistentForm1.FormFullScreen;
+    Randomize;
+    Engine.InitMenus;
+    Engine.ImagePassenger.Picture.Assign(FormImages.ImagePassenger.Picture);
+    Engine.ImageLocomotive.Picture.Assign(FormImages.ImageLocomotive.Picture);
+    Engine.Map.Size := Point(PaintBox1.Width, PaintBox1.Height);
+    Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
+    Engine.MainMenu;
   end;
 end;
@@ -111 +121 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
-  PersistentForm1.Load(Self, False, True);
-  FullScreen := PersistentForm1.FormFullScreen;
-  Randomize;
-  Engine.InitMenus;
-  Engine.ImagePassenger.Picture.Assign(FormImages.ImagePassenger.Picture);
-  Engine.ImageLocomotive.Picture.Assign(FormImages.ImageLocomotive.Picture);
-  Engine.Map.Size := Point(PaintBox1.Width, PaintBox1.Height);
-  Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
-  Engine.MainMenu;
 end;
 
@@ -156 +156 @@
 begin
   Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
-  Engine.Paint(PaintBox1.Canvas);
+  Engine.Paint(PaintBox1.Canvas, Point(PaintBox1.Width, PaintBox1.Height));
 end;