Changeset 33 for trunk/Forms

Timestamp:

Dec 10, 2016, 9:34:28 PM (8 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 )
• UFormAbout.lfm (added)
• UFormAbout.lrt (added)
• UFormAbout.pas (added)
• UFormMain.lfm (modified) (3 diffs)
• UFormMain.lrt (added)
• UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.lfm

@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.7'
+  LCLVersion = '1.6.0.4'
   object ToolBar1: TToolBar
     Left = 0
@@ -478 +478 @@
       OnExecute = AOperationAddExecute
     end
+    object AShowAbout: TAction
+      Caption = 'About'
+      OnExecute = AShowAboutExecute
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -545 +549 @@
       end
     end
+    object MenuItem20: TMenuItem
+      Caption = 'Help'
+      object MenuItem21: TMenuItem
+        Action = AShowAbout
+      end
+    end
   end
   object LastOpenedList1: TLastOpenedList

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;