Class TDocks (unit XToolBar)

Inherits from

TDockControl

///////////////////////////// TDocks / Interface /////////////////////////////

Constructors


constructor Create(aOwner : TComponent);

Updates if a control is added

/////////////////////// TDocks ///////////////////////////////////////////// /////////////////////// TDocks / Public ////////////////////////////////////



Functions

destructor Destroy;


procedure CMControlListChange(var Msg : TCMControlListChange);


procedure CreateParams(var params : TCreateParams);

DrawToolBars; //Redraw the toolbars if they have xparent style

procedure Loaded;


procedure Paint;


procedure WMMove(var Msg : TWMMove);


procedure WMSize(var Msg : TWMSize);


procedure ArrangeBars;


procedure BuildLine(wanted : integer);


function GetLine(const Pos : TPoint;var Line : TList) : integer;


procedure InsertBar(aBar : TXToolBar; var Pos : TPoint);


procedure MoveBar(aBar : TXToolBar; var Pos : TPoint);


procedure MoveBarTo(aBar: TXToolBar; Line: TList; DckPos : integer);


procedure PlaceBarTo(aBar: TXToolBar; Line: TList; DckPos : integer);


procedure RemoveBar(aBar : TXToolBar);


procedure RemoveBarFrom(aBar : TXToolBar);

Create as many needed lines until Wanted exist

procedure SetBoundLines(aBounds : TUsedPos);


procedure SetDrawStyle(Value: TToolbarDrawStyle);


procedure SetPosition(aPos : TDockPos);


procedure SetVisible(aVisible : boolean);

////////////////////// TDocks / Private //////////////////////////////////////

procedure UpdateDrop;


procedure UpdateLines;


procedure UpdateSize;


Properties

property AllowVisible : boolean


property BoundLines : TUsedPos


property Canvas :


property Color :


property DrawStyle : TToolbarDrawStyle


property ParentColor :


property PopupMenu :


property Position : TDockPos


property ActualVisible : boolean


property Visible :


Events

event OnInsertBar : TNotifyEvent


event OnPaint : TNotifyEvent


event OnRemoveBar : TNotifyEvent


event OnVisibleChanged : TNotifyEvent


Variables

BarLines : TList;

What form to dock on

DropRect : TRect;


FAllowVisible : Boolean;

Vars

FBottomAdd : integer;


FBoundLines : TUsedPos;


FDockForm : TForm;


FDrawStyle : TToolbarDrawStyle;

Rect where drop is accepted Drawing style

FLeftAdd : integer;


FOnInsertBar : TNotifyEvent;

Events

FOnPaint : TNotifyEvent;


FOnRemoveBar : TNotifyEvent;


FOnVisibleChanged : TNotifyEvent;


FOwnedBars : TList;


FPosition : TDockPos;


FRightAdd : integer;


FTopAdd : integer;

The dockarea is actually visible

FVisible : Boolean;

The user allows the dockarea to be visible


Constructors


constructor Create(aOwner : TComponent);

Updates if a control is added

/////////////////////// TDocks ///////////////////////////////////////////// /////////////////////// TDocks / Public ////////////////////////////////////


Functions


destructor Destroy;


procedure CMControlListChange(var Msg : TCMControlListChange);


procedure CreateParams(var params : TCreateParams);

DrawToolBars; //Redraw the toolbars if they have xparent style


procedure Loaded;


procedure Paint;


procedure WMMove(var Msg : TWMMove);


procedure WMSize(var Msg : TWMSize);


procedure ArrangeBars;


procedure BuildLine(wanted : integer);


function GetLine(const Pos : TPoint;var Line : TList) : integer;


procedure InsertBar(aBar : TXToolBar; var Pos : TPoint);


procedure MoveBar(aBar : TXToolBar; var Pos : TPoint);


procedure MoveBarTo(aBar: TXToolBar; Line: TList; DckPos : integer);


procedure PlaceBarTo(aBar: TXToolBar; Line: TList; DckPos : integer);


procedure RemoveBar(aBar : TXToolBar);


procedure RemoveBarFrom(aBar : TXToolBar);

Create as many needed lines until Wanted exist


procedure SetBoundLines(aBounds : TUsedPos);


procedure SetDrawStyle(Value: TToolbarDrawStyle);


procedure SetPosition(aPos : TDockPos);


procedure SetVisible(aVisible : boolean);

////////////////////// TDocks / Private //////////////////////////////////////


procedure UpdateDrop;


procedure UpdateLines;


procedure UpdateSize;


Properties


property AllowVisible : boolean


property BoundLines : TUsedPos


property Canvas :


property Color :


property DrawStyle : TToolbarDrawStyle


property ParentColor :


property PopupMenu :


property Position : TDockPos


property ActualVisible : boolean


property Visible :


Events


event OnInsertBar : TNotifyEvent


event OnPaint : TNotifyEvent


event OnRemoveBar : TNotifyEvent


event OnVisibleChanged : TNotifyEvent


Variables


BarLines : TList;

What form to dock on


DropRect : TRect;


FAllowVisible : Boolean;

Vars


FBottomAdd : integer;


FBoundLines : TUsedPos;


FDockForm : TForm;


FDrawStyle : TToolbarDrawStyle;

Rect where drop is accepted Drawing style


FLeftAdd : integer;


FOnInsertBar : TNotifyEvent;

Events


FOnPaint : TNotifyEvent;


FOnRemoveBar : TNotifyEvent;


FOnVisibleChanged : TNotifyEvent;


FOwnedBars : TList;


FPosition : TDockPos;


FRightAdd : integer;


FTopAdd : integer;

The dockarea is actually visible


FVisible : Boolean;

The user allows the dockarea to be visible