Changeset 14 for trunk/UMainForm.pas

Timestamp:

Mar 22, 2011, 6:35:54 PM (14 years ago)

Author:

george

Message:

• Fixed: If application focus is lost clear all pressed keys.

File:

• trunk/UMainForm.pas (modified) (6 diffs)

trunk/UMainForm.pas

@@ -1 +1 @@
 unit UMainForm;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
@@ -35 +35 @@
     procedure AShowMapExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDeactivate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -90 +91 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  Application.OnDeactivate := FormDeactivate;
   Randomize;
   DoubleBuffered := True;
@@ -126 +128 @@
   Engine.NewGame;
   Image1Resize(Self);
+end;
+
+procedure TMainForm.FormDeactivate(Sender: TObject);
+begin
+  Engine.KeyBoard.ClearAll;
 end;
 
@@ -173 +180 @@
   Shift: TShiftState);
 begin
-  Engine.KeyState[Key] := True;
+  Engine.KeyBoard.KeyState[Key] := True;
   StatusBar1.Panels[0].Text := IntToStr(Key);
 end;
@@ -180 +187 @@
   );
 begin
-  Engine.KeyState[Key] := False;
+  Engine.KeyBoard.KeyState[Key] := False;
 end;