Changeset 154 for trunk/Forms/FormMain.pas

Timestamp:

Aug 14, 2024, 10:51:18 PM (5 weeks ago)

Author:

chronos

Message:

• Added: Key shortcuts form to see all available actions and their key shortcuts.

File:

• trunk/Forms/FormMain.pas (modified) (7 diffs)

trunk/Forms/FormMain.pas

@@ -7 +7 @@
   Graphics, Dialogs, Menus, ActnList, ComCtrls, ExtCtrls, Target, Registry,
   LazFileUtils, FormOptions, FormMessages, FormTargets, FormCompileMultiple,
-  FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx;
+  FormOutput, FormMemory, FormSourceCode, FormTargetCode, FormLog, FormEx,
+  FormKeyShortcuts;
 
 type
@@ -14 +15 @@
 
   TFormMain = class(TFormEx)
+    AKeyShortcuts: TAction;
     AFullScreen: TAction;
     AProgramCompileMultiple: TAction;
@@ -62 +64 @@
     MenuItem27: TMenuItem;
     MenuItem28: TMenuItem;
+    MenuItem29: TMenuItem;
     MenuItem30: TMenuItem;
     MenuItem31: TMenuItem;
@@ -122 +125 @@
     procedure AFullScreenExecute(Sender: TObject);
     procedure AHelpExecute(Sender: TObject);
+    procedure AKeyShortcutsExecute(Sender: TObject);
     procedure AOptionsExecute(Sender: TObject);
     procedure AProgramCompileExecute(Sender: TObject);
@@ -159 +163 @@
     FormSourceCode: TFormSourceCode;
     FormTargetCode: TFormTargetCode;
+    FormKeyShortcuts: TFormKeyShortcuts;
     procedure AProjectOpenRecentExecute(Sender: TObject);
     procedure MenuItemTargetClick(Sender: TObject);
@@ -406 +411 @@
   FreeAndNil(FormOutput);
   FreeAndNil(FormTargetCode);
+  if Assigned(FormKeyShortcuts) then FreeAndNil(FormKeyShortcuts);
 end;
 
@@ -497 +503 @@
 begin
   FormHelp := TFormHelp.Create(nil);
-  FormHelp.ShowModal;
-  FormHelp.Free;
+  try
+    FormHelp.ShowModal;
+  finally
+    FormHelp.Free;
+  end;
+end;
+
+procedure TFormMain.AKeyShortcutsExecute(Sender: TObject);
+begin
+  if not Assigned(FormKeyShortcuts) then FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
+  FormKeyShortcuts.SourceComponents.Clear;
+  FormKeyShortcuts.SourceComponents.Add(Self);
+  FormKeyShortcuts.Show;
 end;