source: trunk/Forms/UMainForm.pas

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, DockPanel, URegistry,
  UApplicationInfo, UDockManagement, ActnList, XPStyleActnCtrls, ActnMan,
  UProject, XPMan, ImgList, DockManagerPro, StdStyleActnCtrls, ToolWin,
  ActnCtrls, ActnMenus;

type
  TMainForm = class(TForm)
    DockPanel1: TDockPanel;
    DockPanel2: TDockPanel;
    DockPanel3: TDockPanel;
    ActionManager1: TActionManager;
    ActionExit: TAction;
    ActionProjectOpen: TAction;
    ActionProjectSaveAs: TAction;
    ActionFileOpen: TAction;
    ActionFileSave: TAction;
    ActionFileClose: TAction;
    ActionFileCloseAll: TAction;
    ActionUnitTest: TAction;
    ActionPrint: TAction;
    ActionFileSaveAs: TAction;
    ImageList1: TImageList;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionFile: TAction;
    ActionFileNew: TAction;
    ActionFileReopen: TAction;
    ActionFileSaveAll: TAction;
    ActionEdit: TAction;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    ActionEditUndo: TAction;
    ActionEditRedo: TAction;
    ActionEditCut: TAction;
    ActionEditCopy: TAction;
    ActionEditPaste: TAction;
    ActionEditDelete: TAction;
    ActionEditSelectAll: TAction;
    ActionEditAlignToGrid: TAction;
    ActionEditBringToFront: TAction;
    ActionEditSendToBack: TAction;
    ActionEditAlign: TAction;
    ActionEditSize: TAction;
    ActionEditScale: TAction;
    ActionEditTabOrder: TAction;
    ActionEditCreationOrder: TAction;
    ActionEditFlipChildren: TAction;
    ActionEditLockControls: TAction;
    ActionSearch: TAction;
    ActionView: TAction;
    ActionProject: TAction;
    ActionRun: TAction;
    ActionComponent: TAction;
    ActionTools: TAction;
    ActionWindow: TAction;
    ActionHelp: TAction;
    procedure FormShow(Sender: TObject);
    procedure ObjectInspector1Click(Sender: TObject);
    procedure oolPalete1Click(Sender: TObject);
    procedure Structure1Click(Sender: TObject);
    procedure ProjectManager1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ActionExitExecute(Sender: TObject);
    procedure ActionFileUpdate(Sender: TObject);
    procedure ActionEditExecute(Sender: TObject);
    procedure ActionProjectOpenExecute(Sender: TObject);
    procedure ActionFileOpenExecute(Sender: TObject);
    procedure ActionProjectSaveAsExecute(Sender: TObject);
  private
    CustomDockManager: TDDockManager;
    BaseDockPanel: TDBaseDockPanel;
    RegistryRootKey: HKEY;
    RegistryKey: string;
    procedure LoadFormPosition(Form: TForm);
    procedure SaveFormPosition(Form: TForm);
    { Private declarations }
  public
    
  end;

var
  MainForm: TMainForm;

implementation

uses UObjectInspector, UCodeEdit, UComponentPalette, UStructureView,
  UProjectManager;

{$R *.dfm}

procedure TMainForm.ActionEditExecute(Sender: TObject);
begin
  //
end;

procedure TMainForm.ActionExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.ActionFileOpenExecute(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
  end;
end;

procedure TMainForm.ActionFileUpdate(Sender: TObject);
begin
  //
end;

procedure TMainForm.ActionProjectOpenExecute(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
  end;
end;

procedure TMainForm.ActionProjectSaveAsExecute(Sender: TObject);
begin
  if SaveDialog1.Execute then begin
  end;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveFormPosition(Self);
  CustomDockManager.SaveToRegistry;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  RegistryRootKey := HKEY_CURRENT_USER;
  RegistryKey := ApplicationInfo.CompanyName + '\' + ApplicationInfo.Name;
  //LoadFromRegistry;

  CustomDockManager := TDDockManager.Create(Self);
  CustomDockManager.RegistryKey := RegistryKey;
  BaseDockPanel := TDBaseDockPanel.Create(Self);
  with BaseDockPanel do begin
    Parent := Self;
    Align := alClient;
    Visible := True;
    BevelOuter := bvNone;
  end;
  CustomDockManager.BaseDockPanel := BaseDockPanel;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  CustomDockManager.Free;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  // Init dock init list
  with CustomDockManager do begin
    RegisterDockForm(ComponentPalette, 100, 400, 'PanelLeft', True);
    RegisterDockForm(ProjectManager, 100, 400, 'PanelLeft', True);
    RegisterDockForm(ObjectInspector, 100, 400, 'PanelRight', True);
    RegisterDockForm(StructureView, 100, 400, 'PanelRight', True);
    RegisterDockForm(CodeEdit, 500, 400, 'PanelCenter', True);
    with BaseDockPanel do begin
      PanelLeft.Tag := 300;
      PanelTop.Tag := 150;
      PanelRight.Tag := 150;
      PanelBottom.Tag := 150;
    end;
  end;
  CustomDockManager.LoadFromRegistry;

  LoadFormPosition(Self);
  CodeEdit.Show;
  ActionManager1.Style := XPStyle;
end;

procedure TMainForm.ObjectInspector1Click(Sender: TObject);
begin
  with ObjectInspector do Visible := not Visible;
end;

procedure TMainForm.oolPalete1Click(Sender: TObject);
begin
  with ComponentPalette do Visible := not Visible;
end;

procedure TMainForm.ProjectManager1Click(Sender: TObject);
begin
  with ProjectManager do Visible := not Visible;
end;

procedure TMainForm.Structure1Click(Sender: TObject);
begin
  with StructureView do Visible := not Visible;
end;

procedure TMainForm.LoadFormPosition(Form: TForm);
begin
  with Form, TRegistryEx.Create do
  try
    RootKey := RegistryRootKey;
    OpenKey(RegistryKey + '\Forms\' + Form.Name, True);
    Width := ReadIntegerWithDefault('Width', Width);
    Height := ReadIntegerWithDefault('Height', Height);
    Top := ReadIntegerWithDefault('Top', (Screen.Height - Height) div 2);
    Left := ReadIntegerWithDefault('Left', (Screen.Width - Width) div 2);
    if Left < 0 then Left := 0;
    if Left > (Screen.Width - 50) then Left := Screen.Width - 50;
    if Top < 0 then Top := 0;
    if Top > (Screen.Height - 50) then Top := Screen.Height - 50;
    if ReadBoolWithDefault('Maximized', False) then begin
      WindowState := wsMaximized;
    end;
  finally
    Free;
  end;
end;

procedure TMainForm.SaveFormPosition(Form: TForm);
var
  Pl : TWindowPlacement;  // used for API call
  R: TRect;               // used for wdw pos
begin
  {Calculate window's normal size and position using
  Windows API call - the form's Width, Height, Top and
  Left properties will give maximized window size if
  form is maximised, which is not what we want here}
  Pl.Length := SizeOf(TWindowPlacement);
  GetWindowPlacement(Form.Handle, @Pl);
  R := Pl.rcNormalPosition;

  with Form, TRegistryEx.Create do
  try
    RootKey := RegistryRootKey;
    OpenKey(RegistryKey + '\Forms\' + Form.Name, True);
    WriteInteger('Width', R.Right - R.Left);
    WriteInteger('Height', R.Bottom - R.Top);
    WriteInteger('Top', R.Top);
    WriteInteger('Left', R.Left);
    WriteBool('Maximized', WindowState = wsMaximized);
  finally
    Free;
  end;
end;

end.