Changeset 41 for trunk/UEngine.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/UEngine.pas (modified) (3 diffs)

trunk/UEngine.pas

@@ -274 +274 @@
     LastNewShapeTime: TDateTime;
     LastTickTime: TDateTime;
-    ImagePassenger: TImage;
-    ImageLocomotive: TImage;
     FTime: TDateTime;
     FLastTime: TDateTime;
@@ -310 +308 @@
     State: TGameState;
     RedrawPending: Boolean;
+    ImagePassenger: TImage;
+    ImageLocomotive: TImage;
     procedure MouseMove(Position: TPoint);
     procedure MouseUp(Button: TMouseButton; Position: TPoint);
@@ -2218 +2218 @@
   ImagePassenger := TImage.Create(nil);
   ImageLocomotive := TImage.Create(nil);
-  if FileExists(ImagePassengerName) then
-    ImagePassenger.Picture.LoadFromFile(ImagePassengerName);
-  if FileExists(ImageLocomotiveName) then
-    ImageLocomotive.Picture.LoadFromFile(ImageLocomotiveName);
+  //if FileExists(ImagePassengerName) then
+  //  ImagePassenger.Picture.LoadFromFile(ImagePassengerName);
+  //if FileExists(ImageLocomotiveName) then
+  //  ImageLocomotive.Picture.LoadFromFile(ImageLocomotiveName);
   MetaCanvas := TMetaCanvas.Create;
 end;