Changeset 14 for trunk/StudioModules

Timestamp:

Aug 6, 2012, 10:49:50 AM (12 years ago)

Author:

chronos

Message:

• Modified: API revised to slave proxy model.
• Added: Modules can control docking of forms.

Location:

trunk/StudioModules

Files:

• LDModuleDebug/ULDModuleDebug.pas (modified) (1 diff)
• LDModuleProject/ULDModuleProject.pas (modified) (2 diffs)

trunk/StudioModules/LDModuleDebug/ULDModuleDebug.pas

@@ -90 +90 @@
     MenuItemViewFormCPU.Action := AViewFormCPU;
     RegisterMainMenuItem(MenuItemViewFormCPU, MenuItemViewDebug, 3);
+    DockForm(FormOutput, dtRight);
+    DockForm(FormInput, dtRight);
+    DockForm(FormCPU, dtRight);
+    DockForm(FormMemory, dtRight);
   end;
   inherited;

trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

@@ -107 +107 @@
 procedure TDataModuleProject.ACloseExecute(Sender: TObject);
 begin
-  if Project.Modified then ASaveAs.Execute;
-  FreeAndNil(Project);
-  UpdateInterface;
+  if Assigned(Project) then begin
+    if Project.Modified then ASaveAs.Execute;
+    FreeAndNil(Project);
+    UpdateInterface;
+  end;
 end;
 
@@ -145 +147 @@
     FormProject := TFormProject.Create(nil);
     FormProject.API := TLDStudioAPI(API);
+    DockForm(FormProject, dtRight);
     DataModuleProject.PopupMenu1.Items.Caption := SProject;
     RegisterMainMenuItem(DataModuleProject.PopupMenu1.Items, nil, 1);