Changeset 14 for trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

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.

File:

• trunk/StudioModules/LDModuleProject/ULDModuleProject.pas (modified) (2 diffs)

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);