Changeset 12

Timestamp:

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

Author:

chronos

Message:

• Modified: Some base project manager actions handling.

Location:

trunk/StudioModules

Files:

• LDModuleDebug/ULDModuleDebug.pas (modified) (1 diff)
• LDModulePascal/ULDModulePascal.pas (modified) (1 diff)
• LDModuleProject/ULDModuleProject.lfm (modified) (4 diffs)
• LDModuleProject/ULDModuleProject.pas (modified) (4 diffs)

trunk/StudioModules/LDModuleDebug/ULDModuleDebug.pas

@@ -47 +47 @@
   Identification := 'Debug';
   Title := SDebug;
+  Version := '0.1';
+  License := 'GNU/LGPLv3';
 end;
 

trunk/StudioModules/LDModulePascal/ULDModulePascal.pas

@@ -38 +38 @@
   Title := SPascal;
   Version := '0.1';
+  License := 'GNU/LGPLv3';
 end;
 

trunk/StudioModules/LDModuleProject/ULDModuleProject.lfm

@@ -1 +1 @@
 object DataModuleProject: TDataModuleProject
+  OnDestroy = DataModuleDestroy
   OldCreateOrder = False
   Height = 328
@@ -7 +8 @@
   object ActionList1: TActionList
     left = 208
-    top = 176
+    top = 171
     object ANew: TAction
       Caption = 'New'
+      OnExecute = ANewExecute
     end
     object AOpen: TAction
       Caption = 'Open...'
+      OnExecute = AOpenExecute
     end
     object AOpenRecent: TAction
@@ -19 +22 @@
     object ASave: TAction
       Caption = 'Save'
+      OnExecute = ASaveExecute
     end
     object ASaveAs: TAction
       Caption = 'Save as...'
+      OnExecute = ASaveAsExecute
     end
     object AClose: TAction
       Caption = 'Close'
+      OnExecute = ACloseExecute
     end
     object AProjectManager: TAction
       Caption = 'Project manager'
+      OnExecute = AProjectManagerExecute
     end
   end
@@ -58 +65 @@
     end
   end
+  object OpenDialog1: TOpenDialog
+    left = 125
+    top = 120
+  end
+  object SaveDialog1: TSaveDialog
+    left = 208
+    top = 120
+  end
 end

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