source: trunk/Forms/FormMain.pas

unit FormMain;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  Menus, ActnList, ExtCtrls, FormBrowse, FormProjectGroup;

type

  { TFormMain }

  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem17: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem21: TMenuItem;
    MenuItem22: TMenuItem;
    MenuItem26: TMenuItem;
    MenuItemRecentProjectGroup: TMenuItem;
    MenuItem23: TMenuItem;
    MenuItem24: TMenuItem;
    MenuItem25: TMenuItem;
    MenuItemOpenRecent: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItemQuit: TMenuItem;
    MenuItemFile: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBarMain: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MenuItemFileClick(Sender: TObject);
  private
    Initialized: Boolean;
  public
    FormBrowse: TFormBrowse;
    FormProjectGroup: TFormProjectGroup;
    procedure ProjectGroupOpenRecentExecute(Sender: TObject);
    procedure OpenRecentExecute(Sender: TObject);
    procedure UpdateInterface;
    procedure DockInit;
  end;


implementation

{$R *.lfm}

uses
  Core;

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
begin
  DockInit;
end;

procedure TFormMain.MenuItemFileClick(Sender: TObject);
begin

end;

procedure TFormMain.OpenRecentExecute(Sender: TObject);
begin
  Core.Core.ProjectOpen(Core.Core.LastOpenedListProject.Items[TMenuItem(Sender).MenuIndex]);
end;

procedure TFormMain.ProjectGroupOpenRecentExecute(Sender: TObject);
begin
  Core.Core.ProjectGroupOpen(Core.Core.LastOpenedListProjectGroup.Items[TMenuItem(Sender).MenuIndex]);
end;

procedure TFormMain.FormActivate(Sender: TObject);
begin
  if not Initialized then begin
    Initialized := True;
    Core.Core.Init;
  end;
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Core.Core.Done;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  FormBrowse := TFormBrowse.Create(nil);
  FormProjectGroup := TFormProjectGroup.Create(nil);
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FormProjectGroup);
  FreeAndNil(FormBrowse);
end;

procedure TFormMain.UpdateInterface;
const
  AppName = 'VCSCommander';
var
  NewCaption: string;
begin
  NewCaption := '';
  if Assigned(Core.Core.Project) then
    NewCaption := Core.Core.Project.Directory + ' (' + Core.Core.Project.Backend.Name + ') - ';
  NewCaption := NewCaption + AppName;
  Caption := NewCaption;
end;

procedure TFormMain.DockInit;
var
  NewSplitter: TSplitter;
begin
  FormProjectGroup.ManualDock(Self, nil, alLeft);
  FormProjectGroup.Align := alLeft;
  FormProjectGroup.Show;
  NewSplitter := TSplitter.Create(nil);
  NewSplitter.ManualDock(Self, nil, alLeft);
  NewSplitter.Align := alLeft;
  NewSplitter.Left := FormProjectGroup.Width;
  NewSplitter.Show;
  FormBrowse.ManualDock(Self, nil, alClient);
  FormBrowse.Align := alClient;
  FormBrowse.Show;
end;

end.