Unit Controls

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
record TCMMouseWheel  
record TCMControlChange  
Klasse TControlCanvas  
record THintInfo  
Klasse TDragImageList  
record TDragRec  
packed record TCMDrag  
Klasse TDragObject  
Klasse TBaseDragControlObject  
Klasse TDragControlObject  
Klasse TDragDockObject  
Klasse TDockManager  
Klasse TSizeConstraints  
Klasse TControlBorderSpacing  
Klasse TAnchorSide  
Klasse TControlActionLink  
Klasse TControl  
Klasse TControlChildSizing  
Klasse TWinControl  
Klasse TGraphicControl  
Klasse TCustomControl  
Klasse TImageList  
Klasse TControlPropertyStorage  
Klasse TDockZone  
Klasse TDockTree  
Klasse TMouse  

Funktionen und Prozeduren

function FindDragTarget(const Position: TPoint; AllowDisabled: Boolean): TControl;
function FindControlAtPosition(const Position: TPoint; AllowDisabled: Boolean): TControl;
function FindLCLWindow(const ScreenPos: TPoint): TWinControl;
function FindControl(Handle: hwnd): TWinControl;
function FindOwnerControl(Handle: hwnd): TWinControl;
function FindLCLControl(const ScreenPos: TPoint): TControl;
function SendAppMessage(Msg: Cardinal; WParam: WParam; LParam: LParam): Longint;
procedure MoveWindowOrg(dc: hdc; X,Y: Integer);
procedure RecreateWnd(const AWinControl:TWinControl);
procedure SetCaptureControl(AWinControl: TWinControl; const Position: TPoint);
procedure SetCaptureControl(Control: TControl);
function GetCaptureControl: TControl;
procedure CancelDrag;
procedure DragDone(Drop: Boolean);
function CursorToString(Cursor: TCursor): string;
function StringToCursor(const S: string): TCursor;
procedure GetCursorValues(Proc: TGetStrProc);
function CursorToIdent(Cursor: Longint; var Ident: string): Boolean;
function IdentToCursor(const Ident: string; var Cursor: Longint): Boolean;
function GetKeyShiftState: TShiftState;
procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect; Left, Top, Right, Bottom: integer);
procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect; const Space: TRect);
function DbgS(a: TAnchorKind): string; overload;
function DbgS(Anchors: TAnchors): string; overload;
procedure Register;

Typen

TWinControlClass = class of TWinControl;
TControlClass = class of TControl;
TDate = type TDateTime;
TTime = type TDateTime;
TCMHitTest = TLMNCHitTest;
TCMDialogChar = TLMKEY;
TCMDialogKey = TLMKEY;
TAlign = (...);
TAlignSet = set of TAlign;
TAnchorKind = (...);
TAnchors = set of TAnchorKind;
TAnchorSideReference = (...);
TCaption = TTranslateString;
TCursor = -32768..32767;
TFormStyle = (...);
TFormBorderStyle = (...);
TBorderStyle = bsNone..bsSingle;
TControlBorderStyle = TBorderStyle;
TControlRoleForForm = (...);
TControlRolesForForm = set of TControlRoleForForm;
TBevelCut = TGraphicsBevelCut;
TMouseButton = (...);
TCaptureMouseButtons = set of TMouseButton;
TWndMethod = procedure(var TheMessage: TLMessage) of Object;
TControlStyleType = (...);
TControlStyle = set of TControlStyleType;
TControlStateType = (...);
TControlState = set of TControlStateType;
PHintInfo = ˆTHintInfo;
TKeyEvent = procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of Object;
TKeyPressEvent = procedure(Sender: TObject; var Key: char) of Object;
TUTF8KeyPressEvent = procedure(Sender: TObject; var UTF8Key: TUTF8Char) of Object;
TMouseEvent = Procedure(Sender: TOBject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
TMouseMoveEvent = Procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object;
TMouseWheelEvent = Procedure(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean) of object;
TMouseWheelUpDownEvent = Procedure(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean) of object;
TDragState = (...);
TDragMode = (...);
TDragKind = (...);
TDragOperation = (...);
TDragMessage = (...);
TDragOverEvent = procedure(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean) of object;
TDragDropEvent = procedure(Sender, Source: TObject; X,Y: Integer) of object;
TStartDragEvent = procedure(Sender: TObject; var DragObject: TDragObject) of object;
TEndDragEvent = procedure(Sender, Target: TObject; X,Y: Integer) of object;
PDragRec = ˆTDragRec;
TDragObjectClass = class of TDragObject;
TDockOrientation = (...);
TDockDropEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer) of object;
TDockOverEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
TUnDockEvent = procedure(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean) of object;
TStartDockEvent = procedure(Sender: TObject; var DragObject: TDragDockObject) of object;
TGetSiteInfoEvent = procedure(Sender: TObject; DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean) of object;
TConstraintSize = 0..MaxInt;
TSizeConstraintsOption = (...);
TSizeConstraintsOptions = set of TSizeConstraintsOption;
TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: TConstraintSize) of object;
TSpacingSize = 0..MaxInt;
TControlCellAlign = (...);
TControlCellAligns = set of TControlCellAlign;
TAnchorSideChangeOperation = (...);
TControlActionLinkClass = class of TControlActionLink;
TTabOrder = -1..32767;
TControlShowHintEvent = procedure(Sender: TObject; HintInfo: PHintInfo) of object;
TContextPopupEvent = procedure(Sender: TObject; MousePos: TPoint; var Handled: Boolean) of object;
TControlFlag = (...);
TControlFlags = set of TControlFlag;
TControlHandlerType = (...);
TBorderWidth = 0..MaxInt;
TGetChildProc = procedure(Child: TComponent) of Object;
TChildControlResizeStyle = (...);
TControlChildrenLayout = (...);
TWinControlActionLink = TControlActionLink;
TWinControlActionLinkClass = class of TWinControlActionLink;
TWinControlFlag = (...);
TWinControlFlags = set of TWinControlFlag;
TControlAtPosFlag = (...);
TControlAtPosFlags = set of TControlAtPosFlag;
TDockZoneClass = class of TDockZone;
TForEachZoneProc = procedure(Zone: TDockZone) of object;
TDockTreeClass = class of TDockTree;
TDockTreeFlag = (...);
TDockTreeFlags = set of TDockTreeFlag;

Konstanten

mrNone = 0;
mrOK = mrNone + 1;
mrCancel = mrNone + 2;
mrAbort = mrNone + 3;
mrRetry = mrNone + 4;
mrIgnore = mrNone + 5;
mrYes = mrNone + 6;
mrNo = mrNone + 7;
mrAll = mrNone + 8;
mrNoToAll = mrNone + 9;
mrYesToAll = mrNone + 10;
mrLast = mrYesToAll;
fsSurface = GraphType.fsSurface;
fsBorder = GraphType.fsBorder;
bvNone = GraphType.bvNone;
bvLowered = GraphType.bvLowered;
bvRaised = GraphType.bvRaised;
bvSpace = GraphType.bvSpace;
asrLeft = asrTop;
asrRight = asrBottom;
fsAllStayOnTop = [fsStayOnTop, fsSplash];
crHigh = TCursor(0);
crDefault = TCursor(0);
crNone = TCursor(-1);
crArrow = TCursor(-2);
crCross = TCursor(-3);
crIBeam = TCursor(-4);
crSize = TCursor(-22);
crSizeNESW = TCursor(-6);
crSizeNS = TCursor(-7);
crSizeNWSE = TCursor(-8);
crSizeWE = TCursor(-9);
crSizeNW = TCursor(-23);
crSizeN = TCursor(-24);
crSizeNE = TCursor(-25);
crSizeW = TCursor(-26);
crSizeE = TCursor(-27);
crSizeSW = TCursor(-28);
crSizeS = TCursor(-29);
crSizeSE = TCursor(-30);
crUpArrow = TCursor(-10);
crHourGlass = TCursor(-11);
crDrag = TCursor(-12);
crNoDrop = TCursor(-13);
crHSplit = TCursor(-14);
crVSplit = TCursor(-15);
crMultiDrag = TCursor(-16);
crSQLWait = TCursor(-17);
crNo = TCursor(-18);
crAppStart = TCursor(-19);
crHelp = TCursor(-20);
crHandPoint = TCursor(-21);
crSizeAll = TCursor(-22);
crLow = TCursor(-30);
csMultiClicks = [csDoubleClicks,csTripleClicks,csQuadClicks];
AnchorAlign: array[TAlign] of TAnchors = ( [akLeft, akTop], [akLeft, akTop, akRight], [akLeft, akRight, akBottom], [akLeft, akTop, akBottom], [akRight, akTop, akBottom], [akLeft, akTop, akRight, akBottom], [akLeft, akTop] );
MainAlignAnchor: array[TAlign] of TAnchorKind = ( akLeft, akTop, akBottom, akLeft, akRight, akLeft, akLeft );
OppositeAnchor: array[TAnchorKind] of TAnchorKind = ( akBottom, akRight, akLeft, akTop );
ClockwiseAnchor: array[TAnchorKind] of TAnchorKind = ( akRight, akTop, akBottom, akLeft );
DefaultSideForAnchorKind: array[TAnchorKind] of TAnchorSideReference = ( asrBottom, asrBottom, asrTop, asrTop );
AnchorReferenceSide: array[TAnchorKind,TAnchorSideReference] of TAnchorKind =( (akTop,akBottom,akTop), (akLeft,akRight,akLeft), (akTop,akBottom,akTop), (akLeft,akRight,akLeft) );
AlignNames: array[TAlign] of string = ( 'alNone', 'alTop', 'alBottom', 'alLeft', 'alRight', 'alClient', 'alCustom');
AnchorNames: array[TAnchorKind] of string = ( 'akTop', 'akLeft', 'akRight', 'akBottom');

Variablen

DockSplitterClass: TControlClass = nil;
DefaultDockTreeClass: TDockTreeClass;
NewStyleControls: Boolean;
Mouse: TMouse;

Beschreibung

Funktionen und Prozeduren

function FindDragTarget(const Position: TPoint; AllowDisabled: Boolean): TControl;
 
function FindControlAtPosition(const Position: TPoint; AllowDisabled: Boolean): TControl;
 
function FindLCLWindow(const ScreenPos: TPoint): TWinControl;
 
function FindControl(Handle: hwnd): TWinControl;
 
function FindOwnerControl(Handle: hwnd): TWinControl;
 
function FindLCLControl(const ScreenPos: TPoint): TControl;
 
function SendAppMessage(Msg: Cardinal; WParam: WParam; LParam: LParam): Longint;
 
procedure MoveWindowOrg(dc: hdc; X,Y: Integer);
 
procedure RecreateWnd(const AWinControl:TWinControl);
 
procedure SetCaptureControl(AWinControl: TWinControl; const Position: TPoint);
 
procedure SetCaptureControl(Control: TControl);
 
function GetCaptureControl: TControl;
 
procedure CancelDrag;
 
procedure DragDone(Drop: Boolean);
 
function CursorToString(Cursor: TCursor): string;
 
function StringToCursor(const S: string): TCursor;
 
procedure GetCursorValues(Proc: TGetStrProc);
 
function CursorToIdent(Cursor: Longint; var Ident: string): Boolean;
 
function IdentToCursor(const Ident: string; var Cursor: Longint): Boolean;
 
function GetKeyShiftState: TShiftState;
 
procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect; Left, Top, Right, Bottom: integer);
 
procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect; const Space: TRect);
 
function DbgS(a: TAnchorKind): string; overload;
 
function DbgS(Anchors: TAnchors): string; overload;
 
procedure Register;
 

Typen

TWinControlClass = class of TWinControl;
 
TControlClass = class of TControl;
 
TDate = type TDateTime;
 
TTime = type TDateTime;
 
TCMHitTest = TLMNCHitTest;
 
TCMDialogChar = TLMKEY;
 
TCMDialogKey = TLMKEY;
 
TAlign = (...);
 
Values
  • alNone:
  • alTop:
  • alBottom:
  • alLeft:
  • alRight:
  • alClient:
  • alCustom:
TAlignSet = set of TAlign;
 
TAnchorKind = (...);
 
Values
  • akTop:
  • akLeft:
  • akRight:
  • akBottom:
TAnchors = set of TAnchorKind;
 
TAnchorSideReference = (...);
 
Values
  • asrTop:
  • asrBottom:
  • asrCenter:
TCaption = TTranslateString;
 
TCursor = -32768..32767;
 
TFormStyle = (...);
 
Values
  • fsNormal:
  • fsMDIChild:
  • fsMDIForm:
  • fsStayOnTop:
  • fsSplash:
TFormBorderStyle = (...);
 
Values
  • bsNone:
  • bsSingle:
  • bsSizeable:
  • bsDialog:
  • bsToolWindow:
  • bsSizeToolWin:
TBorderStyle = bsNone..bsSingle;
 
TControlBorderStyle = TBorderStyle;
 
TControlRoleForForm = (...);
 
Values
  • crffDefault:
  • crffCancel:
TControlRolesForForm = set of TControlRoleForForm;
 
TBevelCut = TGraphicsBevelCut;
 
TMouseButton = (...);
 
Values
  • mbLeft:
  • mbRight:
  • mbMiddle:
TCaptureMouseButtons = set of TMouseButton;
 
TWndMethod = procedure(var TheMessage: TLMessage) of Object;
 
TControlStyleType = (...);
 
Values
  • csAcceptsControls:
  • csCaptureMouse:
  • csDesignInteractive:
  • csClickEvents:
  • csFramed:
  • csSetCaption:
  • csOpaque:
  • csDoubleClicks:
  • csTripleClicks:
  • csQuadClicks:
  • csFixedWidth:
  • csFixedHeight:
  • csNoDesignVisible:
  • csReplicatable:
  • csNoStdEvents:
  • csDisplayDragImage:
  • csReflector:
  • csActionClient:
  • csMenuEvents:
  • csNoFocus:
  • csNeedsBorderPaint:
  • csParentBackground:
  • csDesignNoSmoothResize:
  • csDesignFixedBounds:
  • csHasDefaultAction:
  • csHasCancelAction:
  • csNoDesignSelectable:
  • csOwnedChildsSelectable:
TControlStyle = set of TControlStyleType;
 
TControlStateType = (...);
 
Values
  • csLButtonDown:
  • csClicked:
  • csPalette:
  • csReadingState:
  • csAlignmentNeeded:
  • csFocusing:
  • csCreating:
  • csPaintCopy:
  • csCustomPaint:
  • csDestroyingHandle:
  • csDocking:
  • csVisibleSetInLoading:
TControlState = set of TControlStateType;
 
PHintInfo = ˆTHintInfo;
 
TKeyEvent = procedure(Sender: TObject; var Key: Word; Shift: TShiftState) of Object;
 
TKeyPressEvent = procedure(Sender: TObject; var Key: char) of Object;
 
TUTF8KeyPressEvent = procedure(Sender: TObject; var UTF8Key: TUTF8Char) of Object;
 
TMouseEvent = Procedure(Sender: TOBject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
 
TMouseMoveEvent = Procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object;
 
TMouseWheelEvent = Procedure(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean) of object;
 
TMouseWheelUpDownEvent = Procedure(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean) of object;
 
TDragState = (...);
 
Values
  • dsDragEnter:
  • dsDragLeave:
  • dsDragMove:
TDragMode = (...);
 
Values
  • dmManual:
  • dmAutomatic:
TDragKind = (...);
 
Values
  • dkDrag:
  • dkDock:
TDragOperation = (...);
 
Values
  • dopNone:
  • dopDrag:
  • dopDock:
TDragMessage = (...);
 
Values
  • dmDragEnter:
  • dmDragLeave:
  • dmDragMove:
  • dmDragDrop:
  • dmDragCancel:
  • dmFindTarget:
TDragOverEvent = procedure(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean) of object;
 
TDragDropEvent = procedure(Sender, Source: TObject; X,Y: Integer) of object;
 
TStartDragEvent = procedure(Sender: TObject; var DragObject: TDragObject) of object;
 
TEndDragEvent = procedure(Sender, Target: TObject; X,Y: Integer) of object;
 
PDragRec = ˆTDragRec;
 
TDragObjectClass = class of TDragObject;
 
TDockOrientation = (...);
 
Values
  • doNoOrient:
  • doHorizontal:
  • doVertical:
  • doPages:
TDockDropEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer) of object;
 
TDockOverEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
 
TUnDockEvent = procedure(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean) of object;
 
TStartDockEvent = procedure(Sender: TObject; var DragObject: TDragDockObject) of object;
 
TGetSiteInfoEvent = procedure(Sender: TObject; DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean) of object;
 
TConstraintSize = 0..MaxInt;
 
TSizeConstraintsOption = (...);
 
Values
  • scoAdviceWidthAsMin:
  • scoAdviceWidthAsMax:
  • scoAdviceHeightAsMin:
  • scoAdviceHeightAsMax:
TSizeConstraintsOptions = set of TSizeConstraintsOption;
 
TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: TConstraintSize) of object;
 
TSpacingSize = 0..MaxInt;
 
TControlCellAlign = (...);
 
Values
  • ccaFill:
  • ccaLeftTop:
  • ccaRightBottom:
  • ccaCenter:
TControlCellAligns = set of TControlCellAlign;
 
TAnchorSideChangeOperation = (...);
 
Values
  • ascoAdd:
  • ascoRemove:
  • ascoChangeSide:
TControlActionLinkClass = class of TControlActionLink;
 
TTabOrder = -1..32767;
 
TControlShowHintEvent = procedure(Sender: TObject; HintInfo: PHintInfo) of object;
 
TContextPopupEvent = procedure(Sender: TObject; MousePos: TPoint; var Handled: Boolean) of object;
 
TControlFlag = (...);
 
Values
  • cfRequestAlignNeeded:
  • cfAutoSizeNeeded:
  • cfLeftLoaded:
  • cfTopLoaded:
  • cfWidthLoaded:
  • cfHeightLoaded:
  • cfClientWidthLoaded:
  • cfClientHeightLoaded:
  • cfLastAlignedBoundsValid:
  • cfBoundsRectForNewParentValid:
  • cfPreferredSizeValid:
  • cfOnResizeNeeded:
  • cfOnChangeBoundsNeeded:
TControlFlags = set of TControlFlag;
 
TControlHandlerType = (...);
 
Values
  • chtOnResize:
  • chtOnChangeBounds:
  • chtOnVisibleChanging:
  • chtOnVisibleChanged:
TBorderWidth = 0..MaxInt;
 
TGetChildProc = procedure(Child: TComponent) of Object;
 
TChildControlResizeStyle = (...);
 
Values
  • crsAnchorAligning:
  • crsScaleChilds:
  • crsHomogenousChildResize:
  • crsHomogenousSpaceResize:
TControlChildrenLayout = (...);
 
Values
  • cclNone:
  • cclLeftToRightThenTopToBottom:
  • cclTopToBottomThenLeftToRight:
TWinControlActionLink = TControlActionLink;
 
TWinControlActionLinkClass = class of TWinControlActionLink;
 
TWinControlFlag = (...);
 
Values
  • wcfClientRectNeedsUpdate:
  • wcfColorChanged:
  • wcfFontChanged:
  • wcfReAlignNeeded:
  • wcfAligningControls:
  • wcfEraseBackground:
  • wcfCreatingHandle:
  • wcfInitializing:
  • wcfCreatingChildHandles:
TWinControlFlags = set of TWinControlFlag;
 
TControlAtPosFlag = (...);
 
Values
  • capfAllowDisabled:
  • capfAllowWinControls:
  • capfOnlyClientAreas:
  • capfRecursive:
  • capfHasScrollOffset:
TControlAtPosFlags = set of TControlAtPosFlag;
 
TDockZoneClass = class of TDockZone;
 
TForEachZoneProc = procedure(Zone: TDockZone) of object;
 
TDockTreeClass = class of TDockTree;
 
TDockTreeFlag = (...);
 
Values
  • dtfUpdateAllNeeded:
TDockTreeFlags = set of TDockTreeFlag;
 

Konstanten

mrNone = 0;
 
mrOK = mrNone + 1;
 
mrCancel = mrNone + 2;
 
mrAbort = mrNone + 3;
 
mrRetry = mrNone + 4;
 
mrIgnore = mrNone + 5;
 
mrYes = mrNone + 6;
 
mrNo = mrNone + 7;
 
mrAll = mrNone + 8;
 
mrNoToAll = mrNone + 9;
 
mrYesToAll = mrNone + 10;
 
mrLast = mrYesToAll;
 
fsSurface = GraphType.fsSurface;
 
fsBorder = GraphType.fsBorder;
 
bvNone = GraphType.bvNone;
 
bvLowered = GraphType.bvLowered;
 
bvRaised = GraphType.bvRaised;
 
bvSpace = GraphType.bvSpace;
 
asrLeft = asrTop;
 
asrRight = asrBottom;
 
fsAllStayOnTop = [fsStayOnTop, fsSplash];
 
crHigh = TCursor(0);
 
crDefault = TCursor(0);
 
crNone = TCursor(-1);
 
crArrow = TCursor(-2);
 
crCross = TCursor(-3);
 
crIBeam = TCursor(-4);
 
crSize = TCursor(-22);
 
crSizeNESW = TCursor(-6);
 
crSizeNS = TCursor(-7);
 
crSizeNWSE = TCursor(-8);
 
crSizeWE = TCursor(-9);
 
crSizeNW = TCursor(-23);
 
crSizeN = TCursor(-24);
 
crSizeNE = TCursor(-25);
 
crSizeW = TCursor(-26);
 
crSizeE = TCursor(-27);
 
crSizeSW = TCursor(-28);
 
crSizeS = TCursor(-29);
 
crSizeSE = TCursor(-30);
 
crUpArrow = TCursor(-10);
 
crHourGlass = TCursor(-11);
 
crDrag = TCursor(-12);
 
crNoDrop = TCursor(-13);
 
crHSplit = TCursor(-14);
 
crVSplit = TCursor(-15);
 
crMultiDrag = TCursor(-16);
 
crSQLWait = TCursor(-17);
 
crNo = TCursor(-18);
 
crAppStart = TCursor(-19);
 
crHelp = TCursor(-20);
 
crHandPoint = TCursor(-21);
 
crSizeAll = TCursor(-22);
 
crLow = TCursor(-30);
 
csMultiClicks = [csDoubleClicks,csTripleClicks,csQuadClicks];
 
AnchorAlign: array[TAlign] of TAnchors = ( [akLeft, akTop], [akLeft, akTop, akRight], [akLeft, akRight, akBottom], [akLeft, akTop, akBottom], [akRight, akTop, akBottom], [akLeft, akTop, akRight, akBottom], [akLeft, akTop] );
 
MainAlignAnchor: array[TAlign] of TAnchorKind = ( akLeft, akTop, akBottom, akLeft, akRight, akLeft, akLeft );
 
OppositeAnchor: array[TAnchorKind] of TAnchorKind = ( akBottom, akRight, akLeft, akTop );
 
ClockwiseAnchor: array[TAnchorKind] of TAnchorKind = ( akRight, akTop, akBottom, akLeft );
 
DefaultSideForAnchorKind: array[TAnchorKind] of TAnchorSideReference = ( asrBottom, asrBottom, asrTop, asrTop );
 
AnchorReferenceSide: array[TAnchorKind,TAnchorSideReference] of TAnchorKind =( (akTop,akBottom,akTop), (akLeft,akRight,akLeft), (akTop,akBottom,akTop), (akLeft,akRight,akLeft) );
 
AlignNames: array[TAlign] of string = ( 'alNone', 'alTop', 'alBottom', 'alLeft', 'alRight', 'alClient', 'alCustom');
 
AnchorNames: array[TAnchorKind] of string = ( 'akTop', 'akLeft', 'akRight', 'akBottom');
 

Variablen

DockSplitterClass: TControlClass = nil;
 
DefaultDockTreeClass: TDockTreeClass;
 
NewStyleControls: Boolean;
 
Mouse: TMouse;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:02:53