Changeset 14 for trunk/UCore.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/UCore.pas (modified) (8 diffs)

trunk/UCore.pas

@@ -113 +113 @@
   end;
 
+  { TKeyboard }
+
+  TKeyboard = class
+    KeyState: array[0..High(Word)] of Boolean;
+    procedure ClearAll;
+  end;
+
   { TEngine }
 
@@ -127 +134 @@
     function IsInsideHouses(Pos: TPoint): Boolean;
   public
-    KeyState: array[0..High(Word)] of Boolean;
+    Keyboard: TKeyboard;
     World: TWorld;
     Players: TObjectList; // <TPlayer>
@@ -166 +173 @@
   TFastBitmapPixelComponents(Result).R := TFastBitmapPixelComponents(Value).B;
   TFastBitmapPixelComponents(Result).B := TFastBitmapPixelComponents(Value).R;
+end;
+
+{ TKeyboard }
+
+procedure TKeyboard.ClearAll;
+var
+  I: Integer;
+begin
+  for I := 0 to High(KeyState) do
+    KeyState[I] := False;
 end;
 
@@ -318 +335 @@
   Delta.X := 0;
   Delta.Y := 0;
-  if Engine.KeyState[Ord(Keys.Down)] then Delta.Y := Delta.Y + 1;
-  if Engine.KeyState[Ord(Keys.Up)] then Delta.Y := Delta.Y - 1;
-  if Engine.KeyState[Ord(Keys.Right)] then Delta.X := Delta.X + 1;
-  if Engine.KeyState[Ord(Keys.Left)] then Delta.X := Delta.X - 1;
+  if Engine.KeyBoard.KeyState[Ord(Keys.Down)] then Delta.Y := Delta.Y + 1;
+  if Engine.KeyBoard.KeyState[Ord(Keys.Up)] then Delta.Y := Delta.Y - 1;
+  if Engine.KeyBoard.KeyState[Ord(Keys.Right)] then Delta.X := Delta.X + 1;
+  if Engine.KeyBoard.KeyState[Ord(Keys.Left)] then Delta.X := Delta.X - 1;
 
   NewDirection := Direction;
@@ -348 +365 @@
   end;
 
-  if Engine.KeyState[Ord(Keys.Shoot)] then
+  if Engine.KeyBoard.KeyState[Ord(Keys.Shoot)] then
     if Bullets.Count < MaxBulletCount then begin
       NewBullet := TBullet.Create;
@@ -533 +550 @@
   Shield := 1;
   PlaceHouse;
+  ShowTank;
 end;
 
@@ -756 +774 @@
   IntfImage := TLazIntfImage.Create(1, 1);
   Players := TObjectList.Create;
+  Keyboard := TKeyboard.Create;
   World := TWorld.Create;
   World.Engine := Self;
@@ -766 +785 @@
   IntfImage.Free;
   Players.Free;
+  Keyboard.Free;
   World.Free;
   inherited Destroy;