Changeset 33 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 10, 2016, 9:34:28 PM (7 years ago)

Author:

chronos

Message:

• Added: About form which show version information and link to project homepage.

Location:

trunk/Forms

Files:

• . (moved) (moved from trunk/Form )
• UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -15 +15 @@
 
   TFormMain = class(TForm)
+    AShowAbout: TAction;
     AOperationAdd: TAction;
     AOperationRemove: TAction;
@@ -77 +78 @@
     MenuItem18: TMenuItem;
     MenuItem19: TMenuItem;
+    MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -115 +118 @@
     procedure AScanStartExecute(Sender: TObject);
     procedure AScanStopExecute(Sender: TObject);
+    procedure AShowAboutExecute(Sender: TObject);
     procedure AViewToolbarExecute(Sender: TObject);
     procedure ComboBoxDriveChange(Sender: TObject);
@@ -152 +156 @@
   FormMain: TFormMain;
 
+
 implementation
 
@@ -157 +162 @@
 
 uses
-  UCore, UFormProject, UFormOperation;
+  UCore, UFormProject, UFormOperation, UFormAbout;
 
 resourcestring
@@ -225 +230 @@
     Core.Project.CurrentScan.Stop;
     UpdateInterface;
+  end;
+end;
+
+procedure TFormMain.AShowAboutExecute(Sender: TObject);
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := Core.ApplicationInfo1;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
   end;
 end;