Changeset 220 for trunk/Forms/FormMain.lfm

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.lfm (modified) (28 diffs)

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 417
-  Height = 713
+  Height = 679
   Top = 453
   Width = 1106
   Caption = 'Acronym Decoder'
-  ClientHeight = 713
+  ClientHeight = 679
   ClientWidth = 1106
   DesignTimePPI = 144
@@ -12 +12 @@
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnHide = FormHide
   OnResize = FormResize
@@ -18 +19 @@
   object PanelMain: TPanel
     Left = 0
-    Height = 604
+    Height = 570
     Top = 81
     Width = 1106
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 604
+    ClientHeight = 570
     ClientWidth = 1106
     ParentFont = False
@@ -37 +38 @@
     object ListViewAcronyms: TListView
       Left = 5
-      Height = 548
+      Height = 514
       Top = 50
       Width = 1095
@@ -157 +158 @@
         Width = 120
       end>
-    Images = Core.ImageList1
+    Images = Core.ImageListSmall
     ParentFont = False
     object ToolBarFile: TToolBar
@@ -173 +174 @@
       EdgeInner = esNone
       EdgeOuter = esNone
-      Images = Core.ImageList1
+      Images = Core.ImageListSmall
       ParentFont = False
       ParentShowHint = False
@@ -216 +217 @@
       EdgeInner = esNone
       EdgeOuter = esNone
-      Images = Core.ImageList1
+      Images = Core.ImageListSmall
       ParentFont = False
       ParentShowHint = False
@@ -257 +258 @@
       EdgeInner = esNone
       EdgeOuter = esNone
-      Images = Core.ImageList1
+      Images = Core.ImageListSmall
       ParentFont = False
       ParentShowHint = False
@@ -288 +289 @@
       EdgeInner = esNone
       EdgeOuter = esNone
-      Images = Core.ImageList1
+      Images = Core.ImageListSmall
       ParentFont = False
       ParentShowHint = False
@@ -317 +318 @@
     Left = 0
     Height = 28
-    Top = 685
+    Top = 651
     Width = 1106
     Panels = <    
@@ -330 +331 @@
   end
   object ActionList1: TActionList
-    Images = Core.ImageList1
+    Images = Core.ImageListSmall
     Left = 708
     Top = 288
     object AExit: TAction
+      Category = 'File'
       Caption = 'Exit'
       ImageIndex = 2
@@ -347 +349 @@
     end
     object AImport: TAction
+      Category = 'Tools'
       Caption = 'Import'
       OnExecute = AImportExecute
     end
     object AFileOpen: TAction
+      Category = 'File'
       Caption = 'Open'
       ImageIndex = 8
@@ -357 +361 @@
     end
     object AFileNew: TAction
+      Category = 'File'
       Caption = 'New'
       ImageIndex = 16
@@ -363 +368 @@
     end
     object AFileSave: TAction
+      Category = 'File'
       Caption = 'Save'
       ImageIndex = 10
@@ -369 +375 @@
     end
     object AFileClose: TAction
+      Category = 'File'
       Caption = 'Close'
       ImageIndex = 12
@@ -374 +381 @@
     end
     object AFileSaveAs: TAction
+      Category = 'File'
       Caption = 'Save as...'
       ImageIndex = 10
@@ -380 +388 @@
     end
     object ASettings: TAction
+      Category = 'Tools'
       Caption = 'Settings'
       ImageIndex = 6
@@ -386 +395 @@
     end
     object AShowCategories: TAction
+      Category = 'View'
       Caption = 'Categories'
       ImageIndex = 11
@@ -392 +402 @@
     end
     object AShowAcronyms: TAction
+      Category = 'View'
       Caption = 'Acronyms'
       ImageIndex = 15
@@ -398 +409 @@
     end
     object AShowImportSources: TAction
+      Category = 'View'
       Caption = 'Import sources'
       ImageIndex = 13
@@ -404 +416 @@
     end
     object AShowAbout: TAction
+      Category = 'Help'
       Caption = 'About'
       ImageIndex = 7
@@ -409 +422 @@
     end
     object AShowImportFormats: TAction
+      Category = 'View'
       Caption = 'Import formats'
       ImageIndex = 14
@@ -415 +429 @@
     end
     object AProcessImports: TAction
+      Category = 'Tools'
       Caption = 'Process imports'
       ImageIndex = 5
@@ -421 +436 @@
     end
     object AExport: TAction
+      Category = 'Tools'
       Caption = 'Export'
       OnExecute = AExportExecute
@@ -452 +468 @@
     end
     object ADocumentCheck: TAction
+      Category = 'Tools'
       Caption = 'Document check'
       ImageIndex = 20
       OnExecute = ADocumentCheckExecute
     end
+    object AShowKeyShortCuts: TAction
+      Category = 'Help'
+      Caption = 'Key shortcuts'
+      ImageIndex = 21
+      OnExecute = AShowKeyShortcutsExecute
+    end
+    object AFullScreen: TAction
+      Category = 'View'
+      Caption = 'Full screen'
+      ImageIndex = 22
+      OnExecute = AFullScreenExecute
+      ShortCut = 122
+    end
   end
   object MainMenu1: TMainMenu
-    Images = Core.ImageList1
+    Images = Core.ImageListSmall
     Left = 712
     Top = 204
@@ -505 +535 @@
         Caption = '-'
       end
+      object MenuItem29: TMenuItem
+        Action = AFullScreen
+      end
       object MenuItemToolbar: TMenuItem
         Caption = 'Toolbar'
@@ -541 +574 @@
     object MenuItem5: TMenuItem
       Caption = 'Help'
+      object MenuItem28: TMenuItem
+        Action = AShowKeyShortCuts
+      end
       object MenuItem6: TMenuItem
         Action = AShowAbout
@@ -574 +610 @@
   end
   object PopupMenuOpenRecent: TPopupMenu
-    Images = Core.ImageList1
+    Images = Core.ImageListSmall
     Left = 120
     Top = 420