| Class TDocks (unit XToolBar) |
///////////////////////////// TDocks / Interface /////////////////////////////
| Constructors |
constructor Create(aOwner : TComponent);/////////////////////// TDocks ///////////////////////////////////////////// /////////////////////// TDocks / Public ////////////////////////////////////
| Functions |
destructor Destroy;
procedure CMControlListChange(var Msg : TCMControlListChange);
procedure CreateParams(var params : TCreateParams);
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);
procedure SetBoundLines(aBounds : TUsedPos);
procedure SetDrawStyle(Value: TToolbarDrawStyle);
procedure SetPosition(aPos : TDockPos);
procedure SetVisible(aVisible : boolean);
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;
DropRect : TRect;
FAllowVisible : Boolean;
FBottomAdd : integer;
FBoundLines : TUsedPos;
FDockForm : TForm;
FDrawStyle : TToolbarDrawStyle;
FLeftAdd : integer;
FOnInsertBar : TNotifyEvent;
FOnPaint : TNotifyEvent;
FOnRemoveBar : TNotifyEvent;
FOnVisibleChanged : TNotifyEvent;
FOwnedBars : TList;
FPosition : TDockPos;
FRightAdd : integer;
FTopAdd : integer;
FVisible : Boolean;| 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