Unit XToolBar

XToolBar - release 2.75

Classes

TDockControl - /////////////////////// TDockControl / Interface /////////////////////////////
TDocks - ///////////////////////////// TDocks / Interface /////////////////////////////
TFloatBarParent - ////////////////////////// TFloatBarPrent ////////////////////////////////////
TXToolBar -

Functions

Register - //////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////

Types

PSlaveInfo
TAcceptSize
TAcceptSizes
TDockPos
TDockState
TGroupInfo
TGroupsInfo
TSlaveInfo
TToolbarDrawStyle
TUsedPos
TVDockEvent

Constants

MaxCtrlPerGroup
MaxGroup
MaxSizes
TB_NO_DOCKED

Variables


Functions


procedure Register;

//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////


Types


PSlaveInfo = ^TSlaveInfo
Slave info
TAcceptSize = record
cx : integer;
cy : integer;
end;
Sizes
TAcceptSizes = array[0..MaxSizes-1] of TAcceptSize;

TDockPos = (dpTop,dpBottom,dpLeft,dpRight);

TDockState = (dsDocked,dsFloat);

TGroupInfo = record
Width : integer;
Count : integer;
Items : array[1..MaxCtrlPerGroup] of TControl;
end;
Groups of controls
TGroupsInfo = array[0..MaxGroup-1] of TGroupInfo;

TSlaveInfo = record
SlaveControl : TControl
MasterControl : TControl
end;

TToolbarDrawStyle = (csXToolbar, csWord7);
TXToolBar
TUsedPos = set of TDockPos
Horizontal <=> x <= dpBottom
TVDockEvent = procedure(Sender : TObject; Vertical : Boolean) of object
Forward {Events

Constants

MaxCtrlPerGroup = 32

Because I choosed static storing for some datas

MaxGroup = 32

MaxSizes = 128

TB_NO_DOCKED = #255#255#255


Variables