source: trunk/Forms/FormMain.pas

unit FormMain;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, ExtCtrls, FormEx;

type

  { TFormMain }

  TFormMain = class(TFormEx)
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    PanelLeft: TPanel;
    PanelRight: TPanel;
    PanelCenter: TPanel;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  public
    procedure DockForm(Form: TForm; DockSite: TWinControl);
    procedure DockInit;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  Core;

{ TFormMain }

procedure TFormMain.DockForm(Form: TForm; DockSite: TWinControl);
begin
  Form.ManualDock(DockSite, nil, alClient);
  Form.Align := alClient;
  Form.Show;
end;

procedure TFormMain.DockInit;
begin
  Core.Core.AViewCpu.Execute;
  Core.Core.AViewScreen.Execute;
  Core.Core.AViewDissssembler.Execute;
  DockForm(Core.Core.FormScreen, PanelCenter);
  DockForm(Core.Core.FormCpu, PanelRight);
  DockForm(Core.Core.FormDisassembler, PanelLeft);
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Application.Terminate;
end;

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

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

end.