Changeset 10 for trunk/StudioPackage/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (3 diffs)

trunk/StudioPackage/Forms/UFormMain.pas

@@ -124 +124 @@
     procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -178 +180 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Application.Terminate;
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
 end;
 
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
@@ -189 +201 @@
 procedure TFormMain.DockInit;
 begin
-  FormSourceCode.ManualDock(TabSheetSource, nil, alClient);
-  FormSourceCode.Align := alClient;
-  FormSourceCode.Show;
   FormProject.ManualDock(TabSheetProject, nil, alClient);
   FormProject.Align := alClient;