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

Timestamp:

Aug 3, 2012, 3:06:51 PM (12 years ago)

Author:

chronos

Message:

• Modified: Project management as separated module.

File:

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

trunk/StudioPackage/Forms/UFormMain.pas

@@ -43 +43 @@
     ASelectAll: TAction;
     AClipboardCut: TAction;
-    AProjectOpenRecent: TAction;
-    AProjectSaveAs: TAction;
-    AProjectSave: TAction;
-    AProjectClose: TAction;
-    AProjectOpen: TAction;
-    AProjectNew: TAction;
     ActionListMain: TActionList;
     ImageListMain: TImageList;
     MainMenu: TMainMenu;
-    MenuItem1: TMenuItem;
-    MenuItem10: TMenuItem;
-    MenuItem11: TMenuItem;
-    MenuItem12: TMenuItem;
-    MenuItem13: TMenuItem;
-    MenuItem14: TMenuItem;
     MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
@@ -74 +62 @@
     MenuItem28: TMenuItem;
     MenuItem29: TMenuItem;
-    MenuItem3: TMenuItem;
     MenuItem30: TMenuItem;
     MenuItem31: TMenuItem;
@@ -98 +85 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
-    MenuItem8: TMenuItem;
-    MenuItem9: TMenuItem;
     OpenDialogFile: TOpenDialog;
     PageControlRight: TPageControl;
@@ -122 +107 @@
     procedure AFileOpenExecute(Sender: TObject);
     procedure AViewModulesExecute(Sender: TObject);
-    procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -142 +126 @@
 
 uses
-  UFormProject, UFormSourceCode, UFormSettings, UFormModuleList;
+  UFormSourceCode, UFormSettings, UFormModuleList;
 
 { TFormMain }
@@ -168 +152 @@
   FormModuleList.ModuleManager := DataModule1.ModuleManager;
   FormModuleList.Show;
-end;
-
-procedure TFormMain.AViewProjectManagerExecute(Sender: TObject);
-begin
-  FormProject.Show;
 end;
 
@@ -201 +180 @@
 procedure TFormMain.DockInit;
 begin
-  FormProject.ManualDock(TabSheetProject, nil, alClient);
+{  FormProject.ManualDock(TabSheetProject, nil, alClient);
   FormProject.Align := alClient;
   FormProject.Show;
-end;
+}end;
 
 procedure TFormMain.OpenFileExecute(OpenedFile: TOpenedFile);