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

Timestamp:

Aug 2, 2012, 4:43:10 PM (12 years ago)

Author:

chronos

Message:

• Added: Empty application settings form. Modules will register custom settings subforms.

File:

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

trunk/StudioPackage/Forms/UFormMain.pas

@@ -16 +16 @@
     AClipboardCopy: TAction;
     AClipboardPaste: TAction;
+    ABuild: TAction;
+    ABuildClean: TAction;
+    ARebuild: TAction;
+    AStop: TAction;
+    ARun: TAction;
+    AViewSettings: TAction;
     AViewProjectManager: TAction;
     AExit: TAction;
@@ -26 +32 @@
     AProjectOpen: TAction;
     AProjectNew: TAction;
-    ActionList1: TActionList;
-    ImageList1: TImageList;
-    MainMenu1: TMainMenu;
+    ActionListMain: TActionList;
+    ImageListMain: TImageList;
+    MainMenu: TMainMenu;
     MenuItem1: TMenuItem;
     MenuItem10: TMenuItem;
@@ -39 +45 @@
     MenuItem17: TMenuItem;
     MenuItem18: TMenuItem;
+    MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -65 +78 @@
     procedure AExitExecute(Sender: TObject);
     procedure AViewProjectManagerExecute(Sender: TObject);
+    procedure AViewSettingsExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -80 +94 @@
 
 uses
-  UFormProject, UFormSourceCode;
+  UFormProject, UFormSourceCode, UFormSettings;
 
 { TFormMain }
@@ -92 +106 @@
 begin
   FormProject.Show;
+end;
+
+procedure TFormMain.AViewSettingsExecute(Sender: TObject);
+begin
+  FormSettings.ShowModal;
 end;