Changeset 340 for trunk/Start.pas

Timestamp:

Apr 2, 2021, 9:09:49 PM (4 years ago)

Author:

chronos

Message:

• Added: Support for F11 full screen switch key in Start dialog.
• Fixed: Allow F1 and F11 key in Start dialog even if listbox is focused.
• Modified: Code cleanup.

File:

• trunk/Start.pas (modified) (2 diffs)

trunk/Start.pas

@@ -143 +143 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Settings;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UKeyBindings;
 
 {$R *.lfm}
@@ -1742 +1742 @@
 procedure TStartDlg.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
-begin
-  if KeyToShortCut(Key, Shift) = VK_F1 then
+var
+  ShortCut: TShortCut;
+begin
+  ShortCut := KeyToShortCut(Key, Shift);
+  if BFullScreen.Test(ShortCut) then begin
+    FullScreen := not FullScreen;
+    UpdateInterface;
+    Background.UpdateInterface;
+  end else
+  if BHelp.Test(ShortCut) then
     DirectHelp(cStartHelp);
 end;