Changeset 16 for trunk/UFormMain.pas

Timestamp:

Mar 27, 2015, 10:26:05 PM (9 years ago)

Author:

chronos

Message:

• Added: Space bar key have a pause function now to stop train movement and time flow.

File:

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

trunk/UFormMain.pas

@@ -18 +18 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: char);
     procedure FormShow(Sender: TObject);
     procedure PaintBox1Click(Sender: TObject);
@@ -52 +53 @@
 begin
   Engine.Free;
+end;
+
+procedure TFormMain.FormKeyPress(Sender: TObject; var Key: char);
+begin
+  if (Key = #32) then begin
+    if Engine.State = gsRunning then Engine.State := gsPaused
+    else if Engine.State = gsPaused then Engine.State := gsRunning;
+  end;
 end;