Beschreibung | uses | Klassen, Schnittstellen und Objekte | Funktionen und Prozeduren | Typen | Konstanten | Variablen |
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 |
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; |
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; |
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'); |
DockSplitterClass: TControlClass = nil; |
DefaultDockTreeClass: TDockTreeClass; |
NewStyleControls: Boolean; |
Mouse: TMouse; |
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; |
TWinControlClass = class of TWinControl; |
TControlClass = class of TControl; |
TDate = type TDateTime; |
TTime = type TDateTime; |
TCMHitTest = TLMNCHitTest; |
TCMDialogChar = TLMKEY; |
TCMDialogKey = TLMKEY; |
TAlign = (...); |
Values
|
TAlignSet = set of TAlign; |
TAnchorKind = (...); |
Values
|
TAnchors = set of TAnchorKind; |
TAnchorSideReference = (...); |
Values
|
TCaption = TTranslateString; |
TCursor = -32768..32767; |
TFormStyle = (...); |
Values
|
TFormBorderStyle = (...); |
Values
|
TBorderStyle = bsNone..bsSingle; |
TControlBorderStyle = TBorderStyle; |
TControlRoleForForm = (...); |
Values
|
TControlRolesForForm = set of TControlRoleForForm; |
TBevelCut = TGraphicsBevelCut; |
TMouseButton = (...); |
Values
|
TCaptureMouseButtons = set of TMouseButton; |
TWndMethod = procedure(var TheMessage: TLMessage) of Object; |
TControlStyle = set of TControlStyleType; |
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
|
TDragMode = (...); |
Values
|
TDragKind = (...); |
Values
|
TDragOperation = (...); |
Values
|
TDragMessage = (...); |
Values
|
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
|
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
|
TSizeConstraintsOptions = set of TSizeConstraintsOption; |
TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: TConstraintSize) of object; |
TSpacingSize = 0..MaxInt; |
TControlCellAlign = (...); |
Values
|
TControlCellAligns = set of TControlCellAlign; |
TAnchorSideChangeOperation = (...); |
Values
|
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; |
TControlFlags = set of TControlFlag; |
TControlHandlerType = (...); |
Values
|
TBorderWidth = 0..MaxInt; |
TGetChildProc = procedure(Child: TComponent) of Object; |
TChildControlResizeStyle = (...); |
Values
|
TControlChildrenLayout = (...); |
Values
|
TWinControlActionLink = TControlActionLink; |
TWinControlActionLinkClass = class of TWinControlActionLink; |
TWinControlFlags = set of TWinControlFlag; |
TControlAtPosFlag = (...); |
Values
|
TControlAtPosFlags = set of TControlAtPosFlag; |
TDockZoneClass = class of TDockZone; |
TForEachZoneProc = procedure(Zone: TDockZone) of object; |
TDockTreeClass = class of TDockTree; |
TDockTreeFlag = (...); |
Values
|
TDockTreeFlags = set of TDockTreeFlag; |
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'); |
DockSplitterClass: TControlClass = nil; |
DefaultDockTreeClass: TDockTreeClass; |
NewStyleControls: Boolean; |
Mouse: TMouse; |