Changeset 9 for trunk/StudioPackage/UDataModule.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/UDataModule.pas (modified) (8 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UProject, Forms, SpecializedList, USource;
+  Classes, SysUtils, FileUtil, UProject, Forms, SpecializedList, USource,
+  UModularSystem, ULDStudioAPI;
 
 type
@@ -30 +31 @@
     FOnOpenFile: TOpenFileEvent;
   public
+    Selected: TOpenedFile;
+    procedure CloseFile(OpenedFile: TOpenedFile);
     procedure OpenFile(FileName: string);
     procedure NewFile;
@@ -41 +44 @@
     procedure DataModuleDestroy(Sender: TObject);
   private
-    { private declarations }
+    API: TLDStudioAPI;
   public
+    ModuleManager: TModuleManager;
     Project: TProject;
     FileTypes: TFileTypes;
@@ -57 +61 @@
 
 uses
-  UFormSourceCode, UFormMain, UFormProject, UFormSettings;
+  UFormSourceCode, UFormMain, UFormProject, UFormSettings, UFormModuleList;
 
 procedure TOpenedFile.SetFileName(AValue: string);
@@ -69 +73 @@
 { TOpenedFiles }
 
+procedure TOpenedFiles.CloseFile(OpenedFile: TOpenedFile);
+begin
+  FreeAndNil(OpenedFile.Form);
+end;
+
 procedure TOpenedFiles.OpenFile(FileName: string);
 var
@@ -78 +87 @@
   NewFile.Form.Caption := ExtractFileName(NewFile.FileName);
   NewFile.Form.Visible := True;
+  Selected := NewFile;
   if Assigned(FOnOpenFile) then
     FOnOpenFile(NewFile);
@@ -94 +104 @@
   FileTypes.OwnsObjects := False;
   OpenedFiles := TOpenedFiles.Create;
+  API := TLDStudioAPI.Create;
+  ModuleManager := TModuleManager.Create(nil);
+  ModuleManager.API := API;
 
   Application.CreateForm(TFormMain, FormMain);
@@ -100 +113 @@
   Application.CreateForm(TFormSourceCode, FormSourceCode);
   Application.CreateForm(TFormSettings, FormSettings);
+  Application.CreateForm(TFormModuleList, FormModuleList);
+
+  TLDStudioAPI(ModuleManager.API).MainForm := FormMain;
+  TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu;
+  TLDStudioAPI(ModuleManager.API).FileTypes := FileTypes;
 end;
 
 procedure TDataModule1.DataModuleDestroy(Sender: TObject);
 begin
+  FreeAndNil(ModuleManager);
+  FreeAndNil(API);
   FreeAndNil(OpenedFiles);
   FreeAndNil(FileTypes);