Changeset 28 for trunk/UFormMain.pas

Timestamp:

Apr 12, 2015, 2:32:33 PM (9 years ago)

Author:

chronos

Message:

• Added: Now user can place additional trains on line and move trains between lines and different places on line.

File:

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

trunk/UFormMain.pas

@@ -20 +20 @@
     procedure FormKeyPress(Sender: TObject; var Key: char);
     procedure FormShow(Sender: TObject);
-    procedure PaintBox1Click(Sender: TObject);
     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
@@ -68 +67 @@
 begin
   Randomize;
-  Engine.View.Size := Point(PaintBox1.Width, PaintBox1.Height);
-  Engine.Map.Size := Engine.View.Size;
+  Engine.Map.Size := Point(PaintBox1.Width, PaintBox1.Height);
   Engine.Reset;
-end;
-
-procedure TFormMain.PaintBox1Click(Sender: TObject);
-begin
-
 end;
 
@@ -98 +91 @@
 procedure TFormMain.PaintBox1Paint(Sender: TObject);
 begin
+  Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
   Engine.Paint(PaintBox1.Canvas);
 end;
@@ -103 +97 @@
 procedure TFormMain.PaintBox1Resize(Sender: TObject);
 begin
-  //Engine.
 end;