Class TDocks (unit XToolBar) |
Inherits from
TDockControl
///////////////////////////// TDocks / Interface /////////////////////////////
constructor Create(aOwner : TComponent);
- Updates if a control is added
/////////////////////// TDocks ///////////////////////////////////////////// /////////////////////// TDocks / Public ////////////////////////////////////
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;
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 :
event OnInsertBar : TNotifyEvent
event OnPaint : TNotifyEvent
event OnRemoveBar : TNotifyEvent
event OnVisibleChanged : TNotifyEvent
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
constructor Create(aOwner : TComponent);
Updates if a control is added
/////////////////////// TDocks ///////////////////////////////////////////// /////////////////////// TDocks / Public ////////////////////////////////////
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;
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 :
event OnInsertBar : TNotifyEvent
event OnPaint : TNotifyEvent
event OnRemoveBar : TNotifyEvent
event OnVisibleChanged : TNotifyEvent
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