Changeset 21 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: About application information form.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

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;