Changeset 221 for trunk/Forms/UFormMain.pas

Timestamp:

Jun 12, 2018, 11:04:18 AM (6 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/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -69 +69 @@
     procedure AToolBarBigIconsExecute(Sender: TObject);
     procedure AToolBarVisibleExecute(Sender: TObject);
+    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -172 +173 @@
 end;
 
+procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+  );
+begin
+  // Pass KeyUp event to docked form
+  FormClient.FormKeyUp(Sender, Key, Shift);
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin