Changeset 41 for trunk/UFormMain.pas

Timestamp:

Dec 18, 2016, 12:49:59 PM (7 years ago)

Author:

chronos

Message:

• Modified: Avoid loading images from files by putting them to hidden form as component.

File:

• trunk/UFormMain.pas (modified) (2 diffs)

trunk/UFormMain.pas

@@ -46 +46 @@
 {$R *.lfm}
 
+uses
+  UFormImages;
+
 { TFormMain }
 
@@ -70 +73 @@
 begin
   Randomize;
+  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);