Changeset 3 for trunk/StudioPackage/Forms/UFormMain.pas

Timestamp:

Aug 1, 2012, 4:49:33 PM (12 years ago)

Author:

chronos

Message:

• Added: Icons for actions.

File:

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

trunk/StudioPackage/Forms/UFormMain.pas

@@ -16 +16 @@
     AClipboardCopy: TAction;
     AClipboardPaste: TAction;
+    AViewProjectManager: TAction;
     AExit: TAction;
     ASelectAll: TAction;
@@ -34 +35 @@
     MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
+    MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -45 +50 @@
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
     procedure AExitExecute(Sender: TObject);
+    procedure AViewProjectManagerExecute(Sender: TObject);
   private
     { private declarations }
@@ -59 +68 @@
 {$R *.lfm}
 
+uses
+  UFormProject;
+
 { TFormMain }
 
@@ -66 +78 @@
 end;
 
+procedure TFormMain.AViewProjectManagerExecute(Sender: TObject);
+begin
+  FormProject.Show;
+end;
+
 end.