Changeset 221 for trunk/Forms/UFormClient.pas

Timestamp:

Jun 12, 2018, 11:04:18 AM (7 years ago)

Author:

chronos

Message:

• Fixed: OnKeyUp event is not fired if FormClient is docked onto FormMain. Pass this event from FormMain.
• Modified: Hide Game mode in New game dialog if DEBUG mode is not active. The feature is not finished yet.

File:

• trunk/Forms/UFormClient.pas (modified) (1 diff)

trunk/Forms/UFormClient.pas

@@ -416 +416 @@
 procedure TFormClient.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
   );
-begin
-  if (Key = 27) or (Key = 17) then
+const
+  ControlKey = 17;
+  EscapeKey = 27;
+begin
+  if (Key = EscapeKey) or (Key = ControlKey) then
   if Assigned(Core.Game.CurrentPlayer) then begin
     Client.View.SelectedCell := nil;