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

Timestamp:

Aug 3, 2012, 1:34:09 PM (12 years ago)

Author:

chronos

Message:

• Added: Form for application runtime module management.

File:

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

trunk/StudioPackage/Forms/UFormMain.pas

@@ -18 +18 @@
     ABuild: TAction;
     ABuildClean: TAction;
+    AViewModules: TAction;
+    ADelete: TAction;
+    AFindNext: TAction;
+    AFindPrevious: TAction;
+    AReplaceInFiles: TAction;
+    AGoToLineNumber: TAction;
+    ASearchInFiles: TAction;
+    ASearch: TAction;
+    AReplace: TAction;
+    AUndo: TAction;
+    ARedo: TAction;
     AFileOpenRecent: TAction;
     AFileNew: TAction;
@@ -50 +61 @@
     MenuItem16: TMenuItem;
     MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
     MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
@@ -68 +80 @@
     MenuItem33: TMenuItem;
     MenuItem34: TMenuItem;
+    MenuItem35: TMenuItem;
+    MenuItem36: TMenuItem;
+    MenuItem37: TMenuItem;
+    MenuItem38: TMenuItem;
+    MenuItem39: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem40: TMenuItem;
+    MenuItem41: TMenuItem;
+    MenuItem42: TMenuItem;
+    MenuItem43: TMenuItem;
+    MenuItem44: TMenuItem;
+    MenuItem45: TMenuItem;
+    MenuItem46: TMenuItem;
+    MenuItem47: TMenuItem;
+    MenuItem48: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
@@ -93 +119 @@
     ToolButton4: TToolButton;
     procedure AExitExecute(Sender: TObject);
+    procedure AFileCloseExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
+    procedure AViewModulesExecute(Sender: TObject);
     procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
@@ -112 +140 @@
 
 uses
-  UFormProject, UFormSourceCode, UFormSettings;
+  UFormProject, UFormSourceCode, UFormSettings, UFormModuleList;
 
 { TFormMain }
@@ -119 +147 @@
 begin
   Application.Terminate;
+end;
+
+procedure TFormMain.AFileCloseExecute(Sender: TObject);
+begin
+//  DataModule1.OpenedFiles.Close(DataModule1.OpenedFiles.Selected);
 end;
 
@@ -127 +160 @@
     DataModule1.OpenedFiles.OpenFile(OpenDialogFile.FileName);
   end;
+end;
+
+procedure TFormMain.AViewModulesExecute(Sender: TObject);
+begin
+  FormModuleList.ModuleManager := DataModule1.ModuleManager;
+  FormModuleList.Show;
 end;