source: trunk/StudioModules/LDModuleProject/ULDModuleProject.pas

unit ULDModuleProject;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, ActnList, Menus, Dialogs, UModularSystem,
  ULastOpenedList, UProject, URegistry, USource;

type

  { TDataModuleProject }

  TDataModuleProject = class(TDataModule)
    AClose: TAction;
    AProjectManager: TAction;
    ASaveAs: TAction;
    ASave: TAction;
    AOpenRecent: TAction;
    AOpen: TAction;
    ANew: TAction;
    ActionList1: TActionList;
    LastOpenedList1: TLastOpenedList;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItemOpenRecent: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    OpenDialog1: TOpenDialog;
    PopupMenu1: TPopupMenu;
    SaveDialog1: TSaveDialog;
    procedure ACloseExecute(Sender: TObject);
    procedure ANewExecute(Sender: TObject);
    procedure AOpenExecute(Sender: TObject);
    procedure AOpenRecentExecute(Sender: TObject);
    procedure AProjectManagerExecute(Sender: TObject);
    procedure ASaveAsExecute(Sender: TObject);
    procedure ASaveExecute(Sender: TObject);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure LastOpenedList1Change(Sender: TObject);
  private
    { private declarations }
  public
    Project: TProject;
    procedure UpdateInterface;
    procedure LoadFromRegistry(Context: TRegistryContext);
    procedure SaveToRegistry(Context: TRegistryContext);
  end;

  { TLDModuleProject }

  TLDModuleProject = class(TModule)
  private
    ProjectFileType: TSourceType;
  public
    constructor Create(Owner: TComponent); override;
    procedure Install; override;
    procedure Uninstall; override;
  end;

var
  DataModuleProject: TDataModuleProject;


implementation

uses
  ULDStudioAPI, UFormProject;

resourcestring
  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.DataModuleCreate(Sender: TObject);
begin

end;

procedure TDataModuleProject.DataModuleDestroy(Sender: TObject);
begin
  AClose.Execute;
end;

procedure TDataModuleProject.LastOpenedList1Change(Sender: TObject);
begin
  LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, AOpenRecentExecute);
end;

procedure TDataModuleProject.UpdateInterface;
begin
  ASave.Enabled := Assigned(Project) and Project.Modified;
  ASaveAs.Enabled := Assigned(Project);
  AClose.Enabled := Assigned(Project);
end;

procedure TDataModuleProject.LoadFromRegistry(Context: TRegistryContext);
begin
  LastOpenedList1.LoadFromRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile'));
end;

procedure TDataModuleProject.SaveToRegistry(Context: TRegistryContext);
begin
  LastOpenedList1.SaveToRegistry(RegContext(Context.RootKey, Context.Key + '\RecentFile'));
end;

procedure TDataModuleProject.ACloseExecute(Sender: TObject);
begin
  if Assigned(Project) then begin
    if Project.Modified then ASaveAs.Execute;
    FreeAndNil(Project);
    UpdateInterface;
  end;
end;

procedure TDataModuleProject.ANewExecute(Sender: TObject);
begin
  Project := TProject.Create;
  UpdateInterface;
end;

procedure TDataModuleProject.AOpenExecute(Sender: TObject);
begin
  if Assigned(Project) then
    OpenDialog1.FileName := Project.FileName;
  if OpenDialog1.Execute then begin
    Project.FileName := OpenDialog1.FileName;
    Project.Load;
    UpdateInterface;
  end;
end;

procedure TDataModuleProject.AOpenRecentExecute(Sender: TObject);
begin

end;

{ TLDModuleProject }

constructor TLDModuleProject.Create(Owner: TComponent);
begin
  inherited;
  Identification := 'Project';
  Title := SProject;
  Version := '0.1';
  License := 'GNU/LGPLv3';
  Dependencies.Add('Basic');
end;

procedure TLDModuleProject.Install;
begin
  with TLDStudioAPI(API) do begin
    DataModuleProject := TDataModuleProject.Create(nil);
    FormProject := TFormProject.Create(nil);
    FormProject.API := TLDStudioAPI(API);
    DockForm(FormProject, dtRight);
    DataModuleProject.PopupMenu1.Items.Caption := SProject;
    RegisterMainMenuItem(DataModuleProject.PopupMenu1.Items, nil, 1);
    DataModuleProject.LoadFromRegistry(RegContext(GetRegistryContext.RootKey,
      GetRegistryContext.Key + '\Project'));
    DataModuleProject.UpdateInterface;
    ProjectFileType := TSourceType.Create;
    ProjectFileType.Extension := '.ldp';
    ProjectFileType.Title := 'LibreDevelop project';
    RegisterFileType(ProjectFileType);
  end;
  inherited;
end;

procedure TLDModuleProject.Uninstall;
begin
  inherited;
  with TLDStudioAPI(API) do begin
    UnregisterFileType(ProjectFileType);
    FreeAndNil(ProjectFileType);
    DataModuleProject.SaveToRegistry(RegContext(GetRegistryContext.RootKey,
      GetRegistryContext.Key + '\Project'));
    UnregisterMainMenuItem(DataModuleProject.PopupMenu1.Items);
    FreeAndNil(DataModuleProject);
    FreeAndNil(FormProject);
  end;
end;

{$R *.lfm}

end.