source: trunk/UFormMain.pas

unit UFormMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, UCompare,
  StdCtrls, Menus, ComCtrls, UFormPanel;

type

  { TFormMain }

  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    PanelMain: TPanel;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure SplitterChange(Sender: TObject);
  private
    Ratio: Double;
  public
    PanelLeft: TFormPanel;
    PanelRight: TFormPanel;
    Splitter: TSplitter;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}


{ TFormMain }

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Ratio := 0.5;
  PanelLeft := TFormPanel.Create(nil);
  PanelLeft.ManualDock(PanelMain, nil, alLeft);
  PanelLeft.Parent := PanelMain;
  PanelLeft.Align := alLeft;
  PanelLeft.Width := Width div 2;
  PanelLeft.Show;
  Splitter := TSplitter.Create(nil);
  Splitter.Parent := PanelMain;
  Splitter.Align := alLeft;
  Splitter.OnMoved := @SplitterChange;
  Splitter.Left := PanelLeft.Left + 1;
  Splitter.Show;
  PanelRight := TFormPanel.Create(nil);
  PanelRight.ManualDock(PanelMain, nil, alClient);
  PanelRight.Parent := PanelMain;
  PanelRight.Align := alClient;
  PanelRight.Show;
end;

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

procedure TFormMain.FormResize(Sender: TObject);
begin
  PanelLeft.Width := Round(Ratio * Width);
end;

procedure TFormMain.SplitterChange(Sender: TObject);
begin
  Ratio := PanelLeft.Width / Width;
end;

end.