Changeset 177 for trunk/Core.pas

Timestamp:

Aug 23, 2024, 9:59:54 PM (3 months ago)

Author:

chronos

Message:

• Added: Keyboard shortcuts form accessible from Help menu.

File:

• trunk/Core.pas (modified) (7 diffs)

trunk/Core.pas

@@ -7 +7 @@
   LastOpenedList, ApplicationInfo, PersistentForm, ScaleDPI, Common,
   Translator, DataFile, VCard, Menus, RegistryEx, Theme, FormMain,
-  Registry, VCardFile;
+  Registry, VCardFile, FormKeyShortcuts;
 
 type
@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AKeyShortcuts: TAction;
     AFullScreen: TAction;
     AFileImport: TAction;
@@ -66 +67 @@
     procedure AGenerateExecute(Sender: TObject);
     procedure AHomePageExecute(Sender: TObject);
+    procedure AKeyShortcutsExecute(Sender: TObject);
     procedure ANormalizeExecute(Sender: TObject);
     procedure ARemoveExactDuplicatesExecute(Sender: TObject);
@@ -86 +88 @@
     RecentFileRegistryContext: TRegistryContext;
     FormMain: TFormMain;
+    FormKeyShortcuts: TFormKeyShortcuts;
     procedure FileModified(Sender: TObject);
     function FindFirstNonOption: string;
@@ -277 +280 @@
       {$ENDIF}
       {$IFDEF UNIX}
-      ExecuteProgram('/usr/bin/xdg-open', [SelectDirectoryDialog1.FileName]);
+      ExecuteProgram('/usr/bin/xdg-open', [SelectDirectoryDialog1.FileName], []);
       {$ENDIF}
     end;
@@ -329 +332 @@
 begin
   OpenWebPage(ApplicationInfo1.HomePage);
+end;
+
+procedure TCore.AKeyShortcutsExecute(Sender: TObject);
+begin
+  if not Assigned(FormKeyShortcuts) then
+    FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
+  FormKeyShortcuts.ImageList := ImageList1;
+  FormKeyShortcuts.MainForm := FormMain;
+  FormKeyShortcuts.SourceComponents.Clear;
+  FormKeyShortcuts.SourceComponents.Add(Self);
+  FormKeyShortcuts.Show;
 end;
 
@@ -496 +510 @@
   if Assigned(ProfileImage) then
     FreeAndNil(ProfileImage);
+  if Assigned(FormKeyShortcuts) then
+    FreeAndNil(FormKeyShortcuts);
 end;