Const

Colors: array [0..6] of TColor = (clYellow, clBlue,

clGreen, clRed, clTeal, clPurple, clLime);

ColStr: array[0..6] of string = ('Yellow', 'Blue',

'Green^’, 'Red', 'Teal^’, 'Purple', 'Lime');

var DockWindows: array[0..6] of TDockableForm; procedure TMainForm. FormCreate (Sender: TObject);

var I: Integer;

begin

for I:= 0 to High(DockWindows) do begin

DockWindows[I]:= TDockableForm.Create(Application); DockWindows[I].Caption:= ColStr[I]; DockWindows[I].Memo1.Color:= Colors[I]; DockWindows[I].Memo1.Font.Color:=

Colors[I] xor $00FFFFFF;

DockWindows[I].Memo1.Text:=ColStr[I] + ' window';

end;

end;

procedure TMainForm.ShowDockPanel (APanel: TPanel;

MakeVisible: Boolean; Client: TControl);

begin

if not MakeVisible and

(APanel.VisibleDockClientCount > 1) then Exit;

if APanel = LeftDockPanel then

VSplitter.Visible:= MakeVisible

else HSplitter.Visible:= MakeVisible;

if MakeVisible then

if Apanel = LeftDockPanel then begin

APanel.Width:= ClientWidth div 3;

VSplitter.Left:= APanel.Width + VSplitter.Width;

End else begin

APanel.Height:= ClientHeight div 3;

HSplitter.Top: = ClientHeight - APanel.Height -

HSplitter.Width;

end else if APanel = LeftDockPanel then APanel.Width:= 0

else APanel.Height:= 0;

if MakeVisible and (Client <> nil) then Client.Show;

end;

procedure TMainForm.ViewToolBar1Execute (Sender: TObject); begin

ToolBar1l.Checked:= not ToolBar1l.Checked; btnToolBar1.Down:= ToolBar1l.Checked;

if ToolBar1.Floating then

ToolBar1.HostDockSite.Visible:= ToolBar1l.Checked

else ToolBar1.Visible:= ToolBar1l.Checked;

end;

procedure TMainForm.ViewToolBar2Execute (Sender: TObject); begin

ToolBar21.Checked:= not ToolBar21.Checked; btnToolBar2.Down:= ToolBar21.Checked;

if ToolBar2.Floating then

TToolDockForm(ToolBar2.HostDockSite).Visible:=

ToolBar21.Checked

else ToolBar2.Visible:= ToolBar21.Checked; end;

procedure TMainForm.ExitActionExecute (Sender: TObject); begin

Close; end;

procedure TMainForm.ViewClientWindowExecute (Sender: TObject); var DockWindow: TDockableForm;

begin

DockWindow:=

DockWindows[(Sender as TComponent).Tag]; with DockWindow do

if HostDockSite is TPageControl then

TTabDockHost(HostDockSite.Owner).Show

else if (HostDockSite is TConjoinDockHost) and not HostDockSite.Visible then begin

HostDockSite.Show;

DockWindow.Show;

end else if (HostDockSite is TPanel) and (((HostDockSite.Height = 0) or (HostDockSite.Width = 0)) then MainForm.ShowDockPanel(

HostDockSite as TPanel, True, DockWindow)

else DockWindow.Show;

end;

procedure TMainForm.CoolBar1DockOver (Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

var ARect: TRect;

begin

Accept:= (Source.Control is TToolBar); if Accept then begin

ARect.TopLeft:= CoolBar1.ClientToScreen(

CoolBar1.ClientRect.TopLeft); ARect.BottomRight:= CoolBar1.ClientToScreen(

CoolBar1.ClientRect.BottomRight); Source.DockRect:= ARect;

end;

end;

procedure TMainForm.LeftDockPanelDockOver (Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

var ARect: TRect;

begin

Accept:= Source.Control is TDockableForm; if Accept then begin

ARect.TopLeft:=

LeftDockPanel.ClientToScreen(Point(0, 0)); ARect.BottomRight:= LeftDockPanel.ClientToScreen(

Point(Self.ClientWidth div 3, LeftDockPanel.Height)); Source.DockRect:= ARect;

end;

end;

procedure TMainForm.LeftDockPanelDockDrop(Sender:

TObject; Source: TDragDockObject; X, Y: Integer); begin

if (Sender as TPanel).DockClientCount = 1 then

ShowDockPanel(Sender as TPanel, True, nil)? (Sender as TPanel).DockManager.ResetBounds(True); end;

procedure TMainForm. LeftDockPanelUnDock(Sender:

TObject; Client: TControl; NewTarget: TWinControl;

var Allow: Boolean); begin

if (Sender as TPanel).DockClientCount = 1 then ShowDockPanel(Sender as TPanel, False, nil); end;

procedure TMainForm. LeftDockPanelGetSitelnfо (Sender: TObject; DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);

begin

CanDock:=DockClient is TDockableForm; end;

procedure TMainForm.BottomDockPanelDockOver(Sender: TObject; Source: TDragDockObject; X, Y: Integer;

State: TDragState; var Accept: Boolean); var ARect: TRect;

begin

Accept:= Source.Control is TDockableForm;

if Accept then begin

ARect.TopLeft:= BottomDockPanel.ClientToScreen(

Point(0, -Self.ClientHeight div 3)); ARect.BottomRight:=BottomDockPanel.ClientToScreen(

Point(BottomDockPanel.Width, BottomDockPanel.Height)); Source.DockRect:= ARect;

end;

end;

Дата добавления: 2014-12-29