Changeset 10 for trunk/StudioPackage/UDataModule.pas

Timestamp:

Aug 3, 2012, 1:55:46 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Module Debug menu items creation and destruction.

File:

• trunk/StudioPackage/UDataModule.pas (modified) (2 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -108 +108 @@
   ModuleManager.API := API;
 
-  Application.CreateForm(TFormMain, FormMain);
+  FormMain := TFormMain.Create(nil);
+  Application.UpdateMainForm(FormMain);
   OpenedFiles.OnOpenFile := FormMain.OpenFileExecute;
-  Application.CreateForm(TFormProject, FormProject);
-  Application.CreateForm(TFormSourceCode, FormSourceCode);
-  Application.CreateForm(TFormSettings, FormSettings);
-  Application.CreateForm(TFormModuleList, FormModuleList);
+  FormProject := TFormProject.Create(nil);
+  FormSourceCode := TFormSourceCode.Create(nil);
+  FormSettings := TFormSettings.Create(nil);
+  FormModuleList := TFormModuleList.Create(nil);
 
   TLDStudioAPI(ModuleManager.API).MainForm := FormMain;
   TLDStudioAPI(ModuleManager.API).MainMenu := FormMain.MainMenu;
   TLDStudioAPI(ModuleManager.API).FileTypes := FileTypes;
+  FormMain.Show;
 end;
 
@@ -124 +126 @@
   FreeAndNil(ModuleManager);
   FreeAndNil(API);
+  FreeAndNil(FormMain);
+  FreeAndNil(FormProject);
+  FreeAndNil(FormSourceCode);
+  FreeAndNil(FormSettings);
+  FreeAndNil(FormModuleList);
   FreeAndNil(OpenedFiles);
   FreeAndNil(FileTypes);