Changeset 11 for platform/trunk/LDPlatform.Core.pas

Timestamp:

Apr 27, 2014, 1:49:43 PM (10 years ago)

Author:

chronos

Message:

• Added: Some new concept forms and actions.

File:

• platform/trunk/LDPlatform.Core.pas (modified) (4 diffs)

platform/trunk/LDPlatform.Core.pas

@@ -5 +5 @@
 uses
   System.SysUtils, System.Classes, Vcl.Forms, LDPlatform.FormMain, LDPlatform.FormOptions,
-  System.Actions, Vcl.ActnList, Vcl.ImgList, Vcl.Controls;
+  System.Actions, Vcl.ActnList, Vcl.ImgList, Vcl.Controls, LDPlatform.FormNew,
+  Generics.Collections, Vcl.Dialogs, UProject;
 
 type
+  TOpenedFile = class
+    FileName: string;
+  end;
+
   TCore = class(TDataModule)
     ActionList1: TActionList;
@@ -13 +18 @@
     AOptions: TAction;
     AQuit: TAction;
+    AFileOpen: TAction;
+    AFileClose: TAction;
+    AFileSave: TAction;
+    AFileSaveAs: TAction;
+    ANew: TAction;
+    AFileCloseAll: TAction;
+    AFileSaveAll: TAction;
+    AHelpAbout: TAction;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
     procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
     procedure AOptionsExecute(Sender: TObject);
     procedure AQuitExecute(Sender: TObject);
+    procedure ANewExecute(Sender: TObject);
+    procedure AFileOpenExecute(Sender: TObject);
+    procedure AFileSaveAsExecute(Sender: TObject);
+    procedure AFileSaveExecute(Sender: TObject);
   private
     { Private declarations }
   public
+    Project: TProject;
+    OpenedFiles: TList<TOpenedFile>;
+    FormNew: TFormNew;
     FormMain: TFormMain;
     FormOptions: TFormOptions;
@@ -31 +54 @@
 
 {$R *.dfm}
+
+procedure TCore.AFileOpenExecute(Sender: TObject);
+begin
+  if OpenDialog1.Execute then begin
+    Project.LoadFromFile(OpenDialog1.FileName);
+  end;
+end;
+
+procedure TCore.AFileSaveAsExecute(Sender: TObject);
+begin
+  SaveDialog1.FileName := Project.FileName;
+  if SaveDialog1.Execute then begin
+    Project.SaveToFile(SaveDialog1.FileName);
+  end;
+end;
+
+procedure TCore.AFileSaveExecute(Sender: TObject);
+begin
+  if Project.Modified then AFileSaveAs.Execute
+    else Project.Save;  
+end;
+
+procedure TCore.ANewExecute(Sender: TObject);
+begin
+  try
+    FormNew := TFormNew.Create(nil);
+    //FormNew.Load;
+    if FormNew.ShowModal = mrOk then begin
+      //FormOptions.Save;
+    end;
+  finally
+    FreeAndNil(FormNew);
+  end;
+end;
 
 procedure TCore.AOptionsExecute(Sender: TObject);
@@ -52 +109 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  Project := TProject.Create;
+  OpenedFiles := TList<TOpenedFile>.Create;
   Application.CreateForm(TFormMain, FormMain);
   FormMain.Show;
 end;
 
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  Project.Free;
+  OpenedFiles.Free;
+end;
+
 end.