source: platform/trunk/LDPlatform.Core.pas

unit LDPlatform.Core;

interface

uses
  System.SysUtils, System.Classes, Vcl.Forms, LDPlatform.FormMain, LDPlatform.FormOptions,
  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;
    ImageList1: TImageList;
    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;
  end;

var
  Core: TCore;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$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);
begin
  try
    FormOptions := TFormOptions.Create(nil);
    FormOptions.Load;
    if FormOptions.ShowModal = mrOk then begin
      FormOptions.Save;
    end;
  finally
    FreeAndNil(FormOptions);
  end;
end;

procedure TCore.AQuitExecute(Sender: TObject);
begin
  Application.Terminate;
end;

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.