Changeset 220 for trunk/Forms/FormMain.pas

Timestamp:

Jan 17, 2025, 9:39:06 PM (4 days ago)

Author:

chronos

Message:

• Added: Key shortcuts form.
• Added: Action to switch to fullscreen mode.

File:

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

trunk/Forms/FormMain.pas

@@ -7 +7 @@
   ComCtrls, StdCtrls, ExtCtrls, ActnList, Grids, Acronym, PersistentForm,
   RegistryEx, LastOpenedList, ListViewSort, JobProgressView, FormAbout,
-  Registry, Generics.Collections, LazUTF8, LazFileUtils, FormEx;
+  Registry, Generics.Collections, LazUTF8, LazFileUtils, FormEx,
+  FormKeyShortcuts;
 
 type
@@ -14 +15 @@
 
   TFormMain = class(TFormEx)
+    AFullScreen: TAction;
+    AShowKeyShortCuts: TAction;
     AFilterShowItemsWithoutFilter: TAction;
     ADocumentCheck: TAction;
@@ -53 +56 @@
     MenuItem26: TMenuItem;
     MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
+    MenuItem29: TMenuItem;
     N1: TMenuItem;
     MenuItem3: TMenuItem;
@@ -117 +122 @@
     procedure AFilterSameLengthExecute(Sender: TObject);
     procedure AFilterShowItemsWithoutFilterExecute(Sender: TObject);
+    procedure AFullScreenExecute(Sender: TObject);
     procedure AHideExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
@@ -129 +135 @@
     procedure AShowImportSourcesExecute(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormHide(Sender: TObject);
     procedure FormResize(Sender: TObject);
@@ -147 +154 @@
     procedure MenuItemStatusBarClick(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
+    procedure AShowKeyShortcutsExecute(Sender: TObject);
   private
+    FullScreen: Boolean;
     RegistryContext: TRegistryContext;
     ProjectClosed: Boolean;
     ImportTotalItemCount: Integer;
+    FormKeyShortcuts: TFormKeyShortcuts;
     procedure AcronymDbUpdate(Sender: TObject);
     function FilterCell(Text1, Text2: string): Boolean;
@@ -165 +175 @@
   end;
 
+const
+  ProjectExt = '.adp';
+
 resourcestring
   SAddedCount = 'Imported %d acronyms. Added %d new.';
@@ -170 +183 @@
   SAcronymsCount = 'Acronyms count: %d';
   SMeaningsCount = 'Meanings count: %d';
-  SFileFilter = 'Acronym Decoder project (.adp)|*.adp|All files|*.*';
+  SFileFilter = 'Acronym Decoder project (' + ProjectExt + ')|*' + ProjectExt + '|All files|*.*';
 
 
@@ -187 +200 @@
 
 const
-  ProjectExt = '.adp';
   DefaultFileName = 'Acronyms' + ProjectExt;
   RegistryRunKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
@@ -220 +232 @@
 begin
   UpdateAcronymsList;
+end;
+
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  if Assigned(FormKeyShortcuts) then FreeAndNil(FormKeyShortcuts);
 end;
 
@@ -371 +388 @@
 end;
 
+procedure TFormMain.AFullScreenExecute(Sender: TObject);
+begin
+  FullScreen := not FullScreen;
+  TFormEx.PersistentForm.Form := Self;
+  TFormEx.PersistentForm.SetFullScreen(FullScreen);
+  UpdateInterface;
+end;
+
 procedure TFormMain.AHideExecute(Sender: TObject);
 begin
@@ -530 +555 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  FullScreen := Core.Core.PersistentForm1.FormFullScreen;
   Core.Core.Initialize;
 
@@ -594 +620 @@
     if ListViewSort1.Order = soDown then Result := -Result;
   end else Result := 0;
+end;
+
+procedure TFormMain.AShowKeyShortcutsExecute(Sender: TObject);
+begin
+  if not Assigned(FormKeyShortcuts) then
+    FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
+  with FormKeyShortcuts do begin
+    Images := Core.Core.ImageListSmall;
+    SourceComponents.Clear;
+    SourceComponents.Add(Self);
+    Show;
+  end;
 end;
 
@@ -708 +746 @@
   Title: string;
 begin
+  AFullscreen.Checked := FullScreen;
   ListViewAcronyms.Enabled := Assigned(Core.Core.AcronymDb);
   AFileClose.Enabled := Assigned(Core.Core.AcronymDb);