Changeset 86 for trunk/Forms

Timestamp:

Nov 5, 2014, 11:02:00 PM (10 years ago)

Author:

chronos

Message:

• Modified: If Ctrl key is released then deselect currently selected player cell.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -12 +12 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnKeyUp = FormKeyUp
   OnShow = FormShow
   LCLVersion = '1.3'

trunk/Forms/UFormMain.pas

@@ -75 +75 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure MenuItem19Click(Sender: TObject);
@@ -305 +306 @@
 end;
 
+procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+  );
+begin
+  if (Key = 27) or (Key = 17) then
+  if Assigned(Core.Game.CurrentPlayer) then begin
+    Core.Game.CurrentPlayer.View.SelectedCell := nil;
+    Redraw;
+  end;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin