Changeset 10 for trunk/StudioModules/LDModuleDebug/ULDModuleDebug.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/StudioModules/LDModuleDebug/ULDModuleDebug.pas (modified) (3 diffs)

trunk/StudioModules/LDModuleDebug/ULDModuleDebug.pas

@@ -72 +72 @@
     AViewFormMemory.Caption := SViewFormMemory;
     RegisterAction(AViewFormMemory);
+    // Menu
     MenuItemViewDebug := TMenuItem.Create(nil);
     MenuItemViewDebug.Caption := SDebug;
@@ -78 +79 @@
     MenuItemViewFormOutput.Action := AViewFormOutput;
     RegisterMainMenuItem(MenuItemViewFormOutput, MenuItemViewDebug, 0);
+    MenuItemViewFormInput := TMenuItem.Create(nil);
+    MenuItemViewFormInput.Action := AViewFormInput;
+    RegisterMainMenuItem(MenuItemViewFormInput, MenuItemViewDebug, 1);
+    MenuItemViewFormMemory := TMenuItem.Create(nil);
+    MenuItemViewFormMemory.Action := AViewFormMemory;
+    RegisterMainMenuItem(MenuItemViewFormMemory, MenuItemViewDebug, 2);
+    MenuItemViewFormCPU := TMenuItem.Create(nil);
+    MenuItemViewFormCPU.Action := AViewFormCPU;
+    RegisterMainMenuItem(MenuItemViewFormCPU, MenuItemViewDebug, 3);
   end;
   inherited;
@@ -86 +96 @@
   inherited;
   with TLDStudioAPI(API) do begin
+    UnregisterMainMenuItem(MenuItemViewFormOutput);
+    FreeAndNil(MenuItemViewFormOutput);
+    UnregisterMainMenuItem(MenuItemViewFormInput);
+    FreeAndNil(MenuItemViewFormInput);
+    UnregisterMainMenuItem(MenuItemViewFormMemory);
+    FreeAndNil(MenuItemViewFormMemory);
+    UnregisterMainMenuItem(MenuItemViewFormCPU);
+    FreeAndNil(MenuItemViewFormCPU);
+    UnregisterMainMenuItem(MenuItemViewDebug);
+    FreeAndNil(MenuItemViewDebug);
     UnregisterForm(FormOutput);
     UnregisterForm(FormInput);