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

Timestamp:

Aug 3, 2012, 3:17:28 PM (12 years ago)

Author:

chronos

Message:

• Modified: Some base project manager actions handling.

File:

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

trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ActnList, Menus, UModularSystem;
+  Classes, SysUtils, FileUtil, ActnList, Menus, Dialogs, UModularSystem,
+  UProject;
 
 type
@@ -29 +30 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
+    OpenDialog1: TOpenDialog;
     PopupMenu1: TPopupMenu;
+    SaveDialog1: TSaveDialog;
+    procedure ACloseExecute(Sender: TObject);
+    procedure ANewExecute(Sender: TObject);
+    procedure AOpenExecute(Sender: TObject);
+    procedure AProjectManagerExecute(Sender: TObject);
+    procedure ASaveAsExecute(Sender: TObject);
+    procedure ASaveExecute(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    Project: TProject;
+    procedure UpdateInterface;
   end;
 
@@ -58 +69 @@
   SProject = 'Project';
 
+{ TDataModuleProject }
+
+procedure TDataModuleProject.AProjectManagerExecute(Sender: TObject);
+begin
+  FormProject.Show;
+end;
+
+procedure TDataModuleProject.ASaveAsExecute(Sender: TObject);
+begin
+  SaveDialog1.FileName := Project.FileName;
+  if SaveDialog1.Execute then begin
+    Project.FileName := SaveDialog1.FileName;
+    Project.Save;
+    UpdateInterface;
+  end;
+end;
+
+procedure TDataModuleProject.ASaveExecute(Sender: TObject);
+begin
+  if Project.Modified then ASaveAs.Execute
+    else Project.Save;
+  UpdateInterface;
+end;
+
+procedure TDataModuleProject.DataModuleDestroy(Sender: TObject);
+begin
+  AClose.Execute;
+end;
+
+procedure TDataModuleProject.UpdateInterface;
+begin
+  ASave.Enabled := Assigned(Project) and Project.Modified;
+  ASaveAs.Enabled := Assigned(Project);
+  AClose.Enabled := Assigned(Project);
+end;
+
+procedure TDataModuleProject.ACloseExecute(Sender: TObject);
+begin
+  if Project.Modified then ASaveAs.Execute;
+  FreeAndNil(Project);
+  UpdateInterface;
+end;
+
+procedure TDataModuleProject.ANewExecute(Sender: TObject);
+begin
+  Project := TProject.Create;
+  UpdateInterface;
+end;
+
+procedure TDataModuleProject.AOpenExecute(Sender: TObject);
+begin
+  OpenDialog1.FileName := Project.FileName;
+  if OpenDialog1.Execute then begin
+    Project.FileName := OpenDialog1.FileName;
+    Project.Load;
+    UpdateInterface;
+  end;
+end;
+
 { TLDModuleProject }
 
@@ -74 +144 @@
     DataModuleProject := TDataModuleProject.Create(nil);
     FormProject := TFormProject.Create(nil);
+    FormProject.API := TLDStudioAPI(API);
     DataModuleProject.PopupMenu1.Items.Caption := SProject;
     RegisterMainMenuItem(DataModuleProject.PopupMenu1.Items, nil, 1);