Changeset 21 for trunk/Forms

Timestamp:

May 4, 2016, 9:51:49 PM (9 years ago)

Author:

chronos

Message:

• Added: About application information form.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (added)
• UFormAbout.lrt (added)
• UFormAbout.pas (added)
• UFormMain.lfm (modified) (7 diffs)
• UFormMain.lrt (modified) (2 diffs)
• UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 631
   Caption = 'Acronym Decoder'
-  ClientHeight = 421
+  ClientHeight = 414
   ClientWidth = 631
   Menu = MainMenu1
@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.7'
   object ListViewAcronyms: TListView
     Left = 8
-    Height = 340
-    Top = 72
+    Height = 333
+    Top = 64
     Width = 613
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -51 +51 @@
   object CheckBoxExactMath: TCheckBox
     Left = 8
-    Height = 24
+    Height = 28
     Top = 3
-    Width = 104
+    Width = 129
     Caption = 'Exact match'
     OnChange = CheckBoxExactMathChange
@@ -4420 +4420 @@
       OnExecute = AShowImportSourcesExecute
     end
+    object AShowAbout: TAction
+      Caption = 'About'
+      OnExecute = AShowAboutExecute
+    end
   end
   object PersistentForm1: TPersistentForm
@@ -4430 +4434 @@
     Images = ImageList1
     left = 464
-    top = 80
+    top = 96
     object MenuItem8: TMenuItem
       Caption = 'File'
@@ -4479 +4483 @@
       end
     end
+    object MenuItem5: TMenuItem
+      Caption = 'Help'
+      object MenuItem6: TMenuItem
+        Action = AShowAbout
+      end
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -4503 +4513 @@
     OnCompareItem = ListViewSort1CompareItem
     OnFilter = ListViewSort1Filter
-    Column = 0
-    Order = soDown
+    Column = 2
+    Order = soUp
     left = 464
     top = 208

trunk/Forms/UFormMain.lrt

@@ -16 +16 @@
 TFORMMAIN.ASHOWACRONYMS.CAPTION=Acronyms
 TFORMMAIN.ASHOWIMPORTSOURCES.CAPTION=Import sources
+TFORMMAIN.ASHOWABOUT.CAPTION=About
 TFORMMAIN.MENUITEM8.CAPTION=File
 TFORMMAIN.MENUITEMOPENRECENT.CAPTION=Open recent
@@ -21 +22 @@
 TFORMMAIN.MENUITEM20.CAPTION=View
 TFORMMAIN.MENUITEM16.CAPTION=Tools
+TFORMMAIN.MENUITEM5.CAPTION=Help

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    AShowAbout: TAction;
     AShowImportSources: TAction;
     AShowAcronyms: TAction;
@@ -52 +53 @@
     MenuItem22: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -70 +73 @@
     procedure AImportExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
+    procedure AShowAboutExecute(Sender: TObject);
     procedure AShowAcronymsExecute(Sender: TObject);
     procedure AShowCategoriesExecute(Sender: TObject);
@@ -115 +119 @@
 uses
   UFormImport, UFormAcronym, UFormSettings, UFormCategories, UFormAcronyms,
-  UFormImportSource, UFormImportSources;
+  UFormImportSource, UFormImportSources, UFormAbout;
 
 resourcestring
@@ -244 +248 @@
   if FormSettings.ShowModal = mrOk then
     FormSettings.Save;
+end;
+
+procedure TFormMain.AShowAboutExecute(Sender: TObject);
+begin
+  FormAbout.ShowModal;
 end;