TAnchorControlsRect type

TAnchorControlsRect = Array[TAnchorKind] of TControl = class(TLCLComponent)
private
 FActionLink: TControlActionLink;
 FAlign: TAlign;
 FAnchors: TAnchors;
 FAnchorSides: Array[TAnchorKind] of TAnchorSide = class(TPersistent)
 private
 FKind: TAnchorKind;
 FControl: TControl;
 FOwner: TControl;
 FSide: TAnchorSideReference;
 function IsSideStored: Boolean;
 procedure SetControl(const AValue: TControl);
 procedure SetSide(const AValue: TAnchorSideReference);
 protected
 function GetOwner: TPersistent; override;
 public
 constructor Create(TheOwner: TControl; TheKind: TAnchorKind);
 destructor Destroy; override;
 procedure GetSidePosition(out ReferenceControl: TControl; 
 out ReferenceSide: TAnchorSideReference; 
 out Position: Integer);
 function CheckSidePosition(NewControl: TControl; 
 NewSide: TAnchorSideReference; 
 out ReferenceControl: TControl; 
 out ReferenceSide: TAnchorSideReference; 
 out Position: Integer): Boolean;
 procedure Assign(Source: TPersistent); override;
 function IsAnchoredToParent(ParentSide: TAnchorKind): Boolean;
 procedure FixCenterAnchoring;
 property Owner: TControl;
 property Kind: TAnchorKind;
 published
 property Control: TControl;
 property Side: TAnchorSideReference;
 end;
 FAnchoredControls: TFPList;
 FAutoSizingLockCount: Integer;
 FBaseBounds: TRect;
 FBaseBoundsLock: Integer;
 FBaseParentClientSize: TSize;
 FBiDiMode: TBiDiMode;
 FBorderSpacing: TControlBorderSpacing;
 FBoundsRectForNewParent: TRect;
 FCaption: TCaption;
 FCaptureMouseButtons: TCaptureMouseButtons;
 FColor: TColor;
 FConstraints: TSizeConstraints;
 FControlFlags: TControlFlags;
 FControlHandlers: Array[TControlHandlerType] of TMethodList;
 FControlStyle: TControlStyle;
 FDockOrientation: TDockOrientation;
 FDragCursor: TCursor;
 FDragKind: TDragKind;
 FDragMode: TDragMode;
 FFloatingDockSiteClass: TWinControlClass;
 FFont: TFont;
 FHeight: Integer;
 FHelpContext: THelpContext;
 FHelpKeyword: string;
 FHelpType: THelpType;
 FHint: TTranslateString;
 FHostDockSite: TWinControl;
 FLastDoChangeBounds: TRect;
 FLastDoChangeClientSize: TPoint;
 FLastResizeClientHeight: Integer;
 FLastResizeClientWidth: Integer;
 FLastResizeHeight: Integer;
 FLastResizeWidth: Integer;
 FLeft: Integer;
 FLoadedClientSize: TSize;
 FLRDockWidth: Integer;
 FOnChangeBounds: TNotifyEvent;
 FOnClick: TNotifyEvent;
 FOnConstrainedResize: TConstrainedResizeEvent;
 FOnContextPopup: TContextPopupEvent;
 FOnDblClick: TNotifyEvent;
 FOnDragDrop: TDragDropEvent;
 FOnDragOver: TDragOverEvent;
 FOnEditingDone: TNotifyEvent;
 FOnEndDock: TEndDragEvent;
 FOnEndDrag: TEndDragEvent;
 FOnMouseDown: TMouseEvent;
 FOnMouseEnter: TNotifyEvent;
 FOnMouseLeave: TNotifyEvent;
 FOnMouseMove: TMouseMoveEvent;
 FOnMouseUp: TMouseEvent;
 FOnMouseWheel: TMouseWheelEvent;
 FOnMouseWheelDown: TMouseWheelUpDownEvent;
 FOnMouseWheelUp: TMouseWheelUpDownEvent;
 FOnMouseWheelHorz: TMouseWheelEvent;
 FOnMouseWheelLeft: TMouseWheelUpDownEvent;
 FOnMouseWheelRight: TMouseWheelUpDownEvent;
 FOnQuadClick: TNotifyEvent;
 FOnResize: TNotifyEvent;
 FOnShowHint: TControlShowHintEvent;
 FOnStartDock: TStartDockEvent;
 FOnStartDrag: TStartDragEvent;
 FOnTripleClick: TNotifyEvent;
 FParent: TWinControl;
 FPopupMenu: TPopupMenu;
 FPreferredMinWidth: Integer;
 FPreferredMinHeight: Integer;
 FPreferredWidth: Integer;
 FPreferredHeight: Integer;
 FReadBounds: TRect;
 FSessionProperties: string;
 FSizeLock: Integer;
 FTBDockHeight: Integer;
 FTop: Integer;
 FUndockHeight: Integer;
 FUndockWidth: Integer;
 FWidth: Integer;
 FWindowProc: TWndMethod;
 FDesktopFont: Boolean;
 FParentBiDiMode: Boolean;
 FIsControl: Boolean;
 FShowHint: Boolean;
 FParentColor: Boolean;
 FParentFont: Boolean;
 FParentShowHint: Boolean;
 FAutoSize: Boolean;
 FAutoSizingAll: Boolean;
 FAutoSizingSelf: Boolean;
 FEnabled: Boolean;
 FMouseInClient: Boolean;
 FVisible: Boolean;
 function CaptureMouseButtonsIsStored: Boolean;
 procedure DoActionChange(Sender: TObject);
 function GetAccessibleName: TCaption;
 function GetAccessibleDescription: TCaption;
 function GetAccessibleValue: TCaption;
 function GetAccessibleRole: TLazAccessibilityRole;
 function GetAutoSizingAll: Boolean;
 function GetAnchorSide(Kind: TAnchorKind): TAnchorSide;
 function GetAnchoredControls(Index: Integer): TControl;
 function GetBoundsRect: TRect;
 function GetClientHeight: Integer;
 function GetClientWidth: Integer;
 function GetLRDockWidth: Integer;
 function GetTBDockHeight: Integer;
 function GetText: TCaption;
 function GetUndockHeight: Integer;
 function GetUndockWidth: Integer;
 function IsAnchorsStored: Boolean;
 function IsBiDiModeStored: Boolean;
 function IsEnabledStored: Boolean;
 function IsFontStored: Boolean;
 function IsHintStored: Boolean;
 function IsHelpContextStored: Boolean;
 function IsHelpKeyWordStored: Boolean;
 function IsShowHintStored: Boolean;
 function IsVisibleStored: Boolean;
 procedure DoBeforeMouseMessage(TheMessage: TLMessage);
 procedure DoConstrainedResize(var NewLeft: Integer; 
 var NewTop: Integer; 
 var NewWidth: Integer; 
 var NewHeight: Integer);
 procedure SetAccessibleName(AValue: TCaption);
 procedure SetAccessibleDescription(AValue: TCaption);
 procedure SetAccessibleValue(AValue: TCaption);
 procedure SetAccessibleRole(AValue: TLazAccessibilityRole);
 procedure SetAnchorSide(Kind: TAnchorKind; AValue: TAnchorSide);
 procedure SetBorderSpacing(const AValue: TControlBorderSpacing);
 procedure SetBoundsRect(const ARect: TRect);
 procedure SetBoundsRectForNewParent(const AValue: TRect);
 procedure SetClientHeight(Value: Integer);
 procedure SetClientSize(const Value: TPoint);
 procedure SetClientWidth(Value: Integer);
 procedure SetConstraints(const Value: TSizeConstraints);
 procedure SetDesktopFont(const AValue: Boolean);
 procedure SetDragCursor(const AValue: TCursor);
 procedure SetFont(Value: TFont);
 procedure SetHeight(Value: Integer);
 procedure SetHelpContext(const AValue: THelpContext);
 procedure SetHelpKeyword(const AValue: string);
 procedure SetHostDockSite(const AValue: TWinControl);
 procedure SetLeft(Value: Integer);
 procedure SetMouseCapture(Value: Boolean);
 procedure SetParentShowHint(Value: Boolean);
 procedure SetParentColor(Value: Boolean);
 procedure SetParentFont(Value: Boolean);
 procedure SetPopupMenu(Value: TPopupMenu);
 procedure SetShowHint(Value: Boolean);
 procedure SetText(const Value: TCaption);
 procedure SetTop(Value: Integer);
 procedure SetWidth(Value: Integer);
protected
 FAccessibleObject: TLazAccessibleObject;
 FControlState: TControlState;
 FCursor: TCursor;
 class procedure WSRegisterClass; override;
 function GetCursor: TCursor; virtual;
 procedure SetCursor(Value: TCursor); virtual;
 procedure SetVisible(Value: Boolean); virtual;
 procedure DoOnParentHandleDestruction; virtual;
 procedure DoAutoSize; virtual;
 procedure DoAllAutoSize; virtual;
 procedure BeginAutoSizing;
 procedure EndAutoSizing;
 procedure AnchorSideChanged(TheAnchorSide: TAnchorSide); virtual;
 procedure ForeignAnchorSideChanged(TheAnchorSide: TAnchorSide; 
 Operation: TAnchorSideChangeOperation)
 ; virtual;
 procedure SetAlign(Value: TAlign); virtual;
 procedure SetAnchors(const AValue: TAnchors); virtual;
 procedure SetAutoSize(Value: Boolean); virtual;
 procedure BoundsChanged; virtual;
 function CreateControlBorderSpacing: TControlBorderSpacing; virtual;
 procedure DoConstraintsChange(Sender: TObject); virtual;
 procedure DoBorderSpacingChange(Sender: TObject; 
 InnerSpaceChanged: Boolean); virtual;
 function IsBorderSpacingInnerBorderStored: Boolean; virtual;
 function IsCaptionStored: Boolean;
 procedure SendMoveSizeMessages(SizeChanged: Boolean; 
 PosChanged: Boolean); virtual;
 procedure ConstrainedResize(var MinWidth: TConstraintSize; 
 var MinHeight: TConstraintSize; 
 var MaxWidth: TConstraintSize; 
 var MaxHeight: TConstraintSize); virtual;
 procedure CalculatePreferredSize(var PreferredWidth: Integer; 
 var PreferredHeight: Integer; 
 WithThemeSpace: Boolean); virtual;
 procedure DoOnResize; virtual;
 procedure DoOnChangeBounds; virtual;
 procedure CheckOnChangeBounds;
 procedure Resize; virtual;
 procedure RequestAlign; virtual;
 procedure UpdateAnchorRules;
 procedure ChangeBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; 
 AHeight: Integer; KeepBase: Boolean); virtual;
 procedure DoSetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; 
 AHeight: Integer); virtual;
 procedure ScaleConstraints(Multiplier: Integer; Divider: Integer);
 procedure ChangeScale(Multiplier: Integer; Divider: Integer); virtual;
 function CanAutoSize(var NewWidth: Integer; var NewHeight: Integer)
: Boolean; virtual;
 procedure SetBiDiMode(AValue: TBiDiMode); virtual;
 procedure SetParentBiDiMode(AValue: Boolean); virtual;
 function IsAParentAligning: Boolean;
 function GetClientOrigin: TPoint; virtual;
 function GetClientRect: TRect; virtual;
 function GetLogicalClientRect: TRect; virtual;
 function GetScrolledClientRect: TRect; virtual;
 function GetClientScrollOffset: TPoint; virtual;
 function GetControlOrigin: TPoint; virtual;
 function IsClientHeightStored: Boolean; virtual;
 function IsClientWidthStored: Boolean; virtual;
 function WidthIsAnchored: Boolean;
 function HeightIsAnchored: Boolean;
 property AutoSizing: Boolean;
 property AutoSizingAll: Boolean;
 property AutoSizingLockCount: Integer;
 procedure WMCancelMode(var Message: TLMessage); message;
 procedure WMContextMenu(var Message: TLMContextMenu); message;
 procedure WMLButtonDown(var Message: TLMLButtonDown); message;
 procedure WMRButtonDown(var Message: TLMRButtonDown); message;
 procedure WMMButtonDown(var Message: TLMMButtonDown); message;
 procedure WMXButtonDown(var Message: TLMXButtonDown); message;
 procedure WMLButtonDBLCLK(var Message: TLMLButtonDblClk); message;
 procedure WMRButtonDBLCLK(var Message: TLMRButtonDblClk); message;
 procedure WMMButtonDBLCLK(var Message: TLMMButtonDblClk); message;
 procedure WMXButtonDBLCLK(var Message: TLMXButtonDblClk); message;
 procedure WMLButtonTripleCLK(var Message: TLMLButtonTripleClk); message;
 procedure WMRButtonTripleCLK(var Message: TLMRButtonTripleClk); message;
 procedure WMMButtonTripleCLK(var Message: TLMMButtonTripleClk); message;
 procedure WMXButtonTripleCLK(var Message: TLMXButtonTripleClk); message;
 procedure WMLButtonQuadCLK(var Message: TLMLButtonQuadClk); message;
 procedure WMRButtonQuadCLK(var Message: TLMRButtonQuadClk); message;
 procedure WMMButtonQuadCLK(var Message: TLMMButtonQuadClk); message;
 procedure WMXButtonQuadCLK(var Message: TLMXButtonQuadClk); message;
 procedure WMMouseMove(var Message: TLMMouseMove); message;
 procedure WMLButtonUp(var Message: TLMLButtonUp); message;
 procedure WMRButtonUp(var Message: TLMRButtonUp); message;
 procedure WMMButtonUp(var Message: TLMMButtonUp); message;
 procedure WMXButtonUp(var Message: TLMXButtonUp); message;
 procedure WMMouseWheel(var Message: TLMMouseEvent); message;
 procedure WMMouseHWheel(var Message: TLMMouseEvent); message;
 procedure WMMove(var Message: TLMMove); message;
 procedure WMSize(var Message: TLMSize); message;
 procedure WMWindowPosChanged(var Message: TLMWindowPosChanged); message;
 procedure CMChanged(var Message: TLMessage); message;
 procedure LMCaptureChanged(var Message: TLMessage); message;
 procedure CMBiDiModeChanged(var Message: TLMessage); message;
 procedure CMSysFontChanged(var Message: TLMessage); message;
 procedure CMEnabledChanged(var Message: TLMEssage); message;
 procedure CMHitTest(var Message: TCMHitTest); message;
 procedure CMMouseEnter(var Message: TLMessage); message;
 procedure CMMouseLeave(var Message: TLMessage); message;
 procedure CMHintShow(var Message: TLMessage); message;
 procedure CMParentBiDiModeChanged(var Message: TLMessage); message;
 procedure CMParentColorChanged(var Message: TLMessage); message;
 procedure CMParentFontChanged(var Message: TLMessage); message;
 procedure CMParentShowHintChanged(var Message: TLMessage); message;
 procedure CMVisibleChanged(var Message: TLMessage); message;
 procedure CMTextChanged(var Message: TLMessage); message;
 procedure CMCursorChanged(var Message: TLMessage); message;
 procedure CalculateDockSizes;
 function CreateFloatingDockSite(const Bounds: TRect): TWinControl;
 function GetDockEdge(const MousePos: TPoint): TAlign; virtual;
 function GetDragImages: TDragImageList; virtual;
 function GetFloating: Boolean; virtual;
 function GetFloatingDockSiteClass: TWinControlClass; virtual;
 procedure BeforeDragStart; virtual;
 procedure BeginAutoDrag; virtual;
 procedure DoFloatMsg(ADockSource: TDragDockObject); virtual;
 procedure DockTrackNoTarget(Source: TDragDockObject; X: Integer; 
 Y: Integer); virtual;
 procedure DoDock(NewDockSite: TWinControl; var ARect: TRect); virtual;
 function DoDragMsg(ADragMessage: TDragMessage; APosition: TPoint; 
 ADragObject: TDragObject; ATarget: TControl; 
 ADocking: Boolean): LRESULT; virtual;
 procedure DoEndDock(Target: TObject; X: Integer; Y: Integer); virtual;
 procedure DoEndDrag(Target: TObject; X: Integer; Y: Integer); virtual;
 procedure DoStartDock(var DragObject: TDragObject); virtual;
 procedure DoStartDrag(var DragObject: TDragObject); virtual;
 procedure DragCanceled; virtual;
 procedure DragOver(Source: TObject; X: Integer; Y: Integer; 
 State: TDragState; var Accept: Boolean); virtual;
 procedure PositionDockRect(DragDockObject: TDragDockObject); virtual;
 procedure SetDragMode(Value: TDragMode); virtual;
 function GetDefaultDockCaption: string; virtual;
 procedure Click; virtual;
 procedure DblClick; virtual;
 procedure TripleClick; virtual;
 procedure QuadClick; virtual;
 function GetMousePosFromMessage(const MessageMousePos: TSmallPoint)
: TPoint;
 procedure DoMouseDown(var Message: TLMMouse; Button: TMouseButton; 
 Shift: TShiftState); virtual;
 procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton)
 ; virtual;
 procedure MouseDown(Button: TMouseButton; Shift: TShiftState; 
 X: Integer; Y: Integer); virtual;
 procedure MouseMove(Shift: TShiftState; X: Integer; Y: Integer)
 ; virtual;
 procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X: Integer; 
 Y: Integer); virtual;
 procedure MouseEnter; virtual;
 procedure MouseLeave; virtual;
 function DialogChar(var Message: TLMKey): Boolean; virtual;
 procedure UpdateMouseCursor(X: Integer; Y: Integer);
 procedure Changed;
 function GetPalette: HPalette; virtual;
 function GetParentBackground: Boolean;
 function ChildClassAllowed(ChildClass: TClass): Boolean; virtual;
 procedure ReadState(Reader: TReader); override;
 procedure Loaded; override;
 procedure LoadedAll; virtual;
 procedure DefineProperties(Filer: TFiler); override;
 procedure AssignTo(Dest: TPersistent); override;
 procedure FormEndUpdated; virtual;
 InvalidateControl;
 procedure FontChanged(Sender: TObject); virtual;
 function ControlFontClass: TControlFontClass; virtual;
 procedure ParentFontChanged; virtual;
 function GetAction: TBasicAction; virtual;
 function RealGetText: TCaption; virtual;
 procedure RealSetText(const Value: TCaption); virtual;
 procedure TextChanged; virtual;
 function GetCachedText(var CachedText: TCaption): Boolean; virtual;
 procedure SetAction(Value: TBasicAction); virtual;
 procedure SetColor(Value: TColor); virtual;
 procedure SetEnabled(Value: Boolean); virtual;
 procedure SetHint(const Value: TTranslateString); virtual;
 procedure SetName(const Value: TComponentName); override;
 procedure SetParent(NewParent: TWinControl); virtual;
 procedure SetParentBackground(const AParentBackground: Boolean)
 ; virtual;
 procedure SetParentComponent(NewParentComponent: TComponent); override;
 procedure WndProc(var TheMessage: TLMessage); virtual;
 procedure ParentFormHandleInitialized; virtual;
 function GetMouseCapture: Boolean; virtual;
 procedure CaptureChanged; virtual;
 procedure Notification(AComponent: TComponent; Operation: TOperation)
 ; override;
 function CanTab: Boolean; virtual;
 function GetDeviceContext(var WindowHandle: HWND): HDC; virtual;
 function GetEnabled: Boolean; virtual;
 function GetPopupMenu: TPopupMenu; virtual;
 procedure DoOnShowHint(HintInfo: PHintInfo); virtual;
 function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; 
 MousePos: TPoint): Boolean; virtual;
 function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint)
: Boolean; virtual;
 function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean
 ; virtual;
 function DoMouseWheelHorz(Shift: TShiftState; WheelDelta: Integer; 
 MousePos: TPoint): Boolean; virtual;
 function DoMouseWheelLeft(Shift: TShiftState; MousePos: TPoint)
: Boolean; virtual;
 function DoMouseWheelRight(Shift: TShiftState; MousePos: TPoint)
: Boolean; virtual;
 procedure VisibleChanging; virtual;
 procedure VisibleChanged; virtual;
 procedure EnabledChanging; virtual;
 procedure EnabledChanged; virtual;
 procedure AddHandler(HandlerType: TControlHandlerType; 
 const AMethod: TMethod; AsFirst: Boolean=False);
 procedure RemoveHandler(HandlerType: TControlHandlerType; 
 const AMethod: TMethod);
 procedure DoCallNotifyHandler(HandlerType: TControlHandlerType);
 procedure DoCallKeyEventHandler(HandlerType: TControlHandlerType; 
 var Key: Word; Shift: TShiftState);
 procedure DoCallMouseWheelEventHandler
 (HandlerType: TControlHandlerType; 
 Shift: TShiftState; 
 WheelDelta: Integer; 
 MousePos: TPoint; 
 var Handled: Boolean);
 procedure DoContextPopup(MousePos: TPoint; var Handled: Boolean)
 ; virtual;
 procedure SetZOrder(TopMost: Boolean); virtual;
 class function GetControlClassDefaultSize: TSize; virtual;
 function ColorIsStored: Boolean; virtual;
 procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy; 
 const AXProportion: Double; 
 const AYProportion: Double); virtual;
 procedure DoFixDesignFontPPI(const AFont: TFont; 
 const ADesignTimePPI: Integer);
 procedure DoScaleFontPPI(const AFont: TFont; const AToPPI: Integer; 
 const AProportion: Double);
 function GetActionLinkClass: TControlActionLinkClass; virtual;
 procedure ActionChange(Sender: TObject; CheckDefaults: Boolean)
 ; virtual;
 property ActionLink: TControlActionLink;
 property DesktopFont: Boolean;
 property DragCursor: TCursor;
 property DragKind: TDragKind;
 property DragMode: TDragMode;
 property MouseCapture: Boolean;
 property ParentBackground: Boolean;
 property ParentColor: Boolean;
 property ParentFont: Boolean;
 property ParentShowHint: Boolean;
 property SessionProperties: string;
 property Text: TCaption;
 property OnConstrainedResize: TConstrainedResizeEvent;
 property OnContextPopup: TContextPopupEvent;
 property OnDblClick: TNotifyEvent;
 property OnTripleClick: TNotifyEvent;
 property OnQuadClick: TNotifyEvent;
 property OnDragDrop: TDragDropEvent;
 property OnDragOver: TDragOverEvent;
 property OnEndDock: TEndDragEvent;
 property OnEndDrag: TEndDragEvent;
 property OnMouseDown: TMouseEvent;
 property OnMouseMove: TMouseMoveEvent;
 property OnMouseUp: TMouseEvent;
 property OnMouseEnter: TNotifyEvent;
 property OnMouseLeave: TNotifyEvent;
 property OnMouseWheel: TMouseWheelEvent;
 property OnMouseWheelDown: TMouseWheelUpDownEvent;
 property OnMouseWheelUp: TMouseWheelUpDownEvent;
 property OnMouseWheelHorz: TMouseWheelEvent;
 property OnMouseWheelLeft: TMouseWheelUpDownEvent;
 property OnMouseWheelRight: TMouseWheelUpDownEvent;
 property OnStartDock: TStartDockEvent;
 property OnStartDrag: TStartDragEvent;
 property OnEditingDone: TNotifyEvent;
public
 FCompStyle: Byte;
 procedure DragDrop(Source: TObject; X: Integer; Y: Integer); virtual;
 procedure Dock(NewDockSite: TWinControl; ARect: TRect); virtual;
 function ManualDock(NewDockSite: TWinControl; 
 DropControl: TControl=Nil; 
 ControlSide: TAlign=alNone; 
 KeepDockSiteSize: Boolean=True): Boolean; virtual;
 function ManualFloat(TheScreenRect: TRect; 
 KeepDockSiteSize: Boolean=True): Boolean; virtual;
 function ReplaceDockedControl(Control: TControl; 
 NewDockSite: TWinControl; 
 DropControl: TControl; ControlSide: TAlign)
: Boolean;
 function Docked: Boolean;
 function Dragging: Boolean;
 function GetAccessibleObject: TLazAccessibleObject;
 function CreateAccessibleObject: TLazAccessibleObject; virtual;
 function GetSelectedChildAccessibleObject: TLazAccessibleObject
 ; virtual;
 function GetChildAccessibleObjectAtPos(APos: TPoint)
: TLazAccessibleObject; virtual;
 function ScaleDesignToForm(const ASize: Integer): Integer;
 function ScaleFormToDesign(const ASize: Integer): Integer;
 function Scale96ToForm(const ASize: Integer): Integer;
 function ScaleFormTo96(const ASize: Integer): Integer;
 function Scale96ToFont(const ASize: Integer): Integer;
 function ScaleFontTo96(const ASize: Integer): Integer;
 function ScaleScreenToFont(const ASize: Integer): Integer;
 function ScaleFontToScreen(const ASize: Integer): Integer;
 function Scale96ToScreen(const ASize: Integer): Integer;
 function ScaleScreenTo96(const ASize: Integer): Integer;
 procedure AdjustSize; virtual;
 function AutoSizePhases: TControlAutoSizePhases; virtual;
 function AutoSizeDelayed: Boolean; virtual;
 function AutoSizeDelayedReport: string; virtual;
 function AutoSizeDelayedHandle: Boolean; virtual;
 procedure AnchorToNeighbour(Side: TAnchorKind; Space: TSpacingSize; 
 Sibling: TControl);
 procedure AnchorParallel(Side: TAnchorKind; Space: TSpacingSize; 
 Sibling: TControl);
 procedure AnchorHorizontalCenterTo(Sibling: TControl);
 procedure AnchorVerticalCenterTo(Sibling: TControl);
 procedure AnchorToCompanion(Side: TAnchorKind; Space: TSpacingSize; 
 Sibling: TControl; 
 FreeCompositeSide: Boolean=True);
 procedure AnchorSame(Side: TAnchorKind; Sibling: TControl);
 procedure AnchorAsAlign(TheAlign: TAlign; Space: TSpacingSize);
 procedure AnchorClient(Space: TSpacingSize);
 function AnchoredControlCount: Integer;
 property AnchoredControls[Index: Integer]: TControl;
 procedure SetBounds(aLeft: Integer; aTop: Integer; aWidth: Integer; 
 aHeight: Integer); virtual;
 procedure SetInitialBounds(aLeft: Integer; aTop: Integer; 
 aWidth: Integer; aHeight: Integer); virtual;
 procedure SetBoundsKeepBase(aLeft: Integer; aTop: Integer; 
 aWidth: Integer; aHeight: Integer); virtual;
 procedure GetPreferredSize(var PreferredWidth: Integer; 
 var PreferredHeight: Integer; 
 Raw: Boolean=False; 
 WithThemeSpace: Boolean=True); virtual;
 function GetCanvasScaleFactor: Double;
 function GetDefaultWidth: Integer;
 function GetDefaultHeight: Integer;
 function GetDefaultColor(const DefaultColorType: TDefaultColorType)
: TColor; virtual;
 function GetColorResolvingParent: TColor;
 function GetRGBColorResolvingParent: TColor;
 function GetSidePosition(Side: TAnchorKind): Integer;
 procedure CNPreferredSizeChanged;
 procedure InvalidatePreferredSize; virtual;
 function GetAnchorsDependingOnParent(WithNormalAnchors: Boolean)
: TAnchors;
 procedure DisableAutoSizing;
 procedure EnableAutoSizing;
 procedure UpdateBaseBounds(StoreBounds: Boolean; 
 StoreParentClientSize: Boolean; 
 UseLoadedValues: Boolean); virtual;
 property BaseBounds: TRect;
 property ReadBounds: TRect;
 property BaseParentClientSize: TSize;
 procedure WriteLayoutDebugReport(const Prefix: string); virtual;
 procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; 
 const AFromPPI: Integer; 
 const AToPPI: Integer; 
 const AOldFormWidth: Integer; 
 const ANewFormWidth: Integer); virtual;
 procedure ShouldAutoAdjust(var AWidth: Boolean; var AHeight: Boolean)
 ; virtual;
 procedure FixDesignFontsPPI(const ADesignTimePPI: Integer); virtual;
 procedure ScaleFontsPPI(const AToPPI: Integer; 
 const AProportion: Double); virtual;
 constructor Create(TheOwner: TComponent); override;
 destructor Destroy; override;
 procedure BeforeDestruction; override;
 procedure EditingDone; virtual;
 procedure ExecuteDefaultAction; virtual;
 procedure ExecuteCancelAction; virtual;
 procedure BeginDrag(Immediate: Boolean; Threshold: Integer=- 1);
 procedure EndDrag(Drop: Boolean);
 procedure BringToFront;
 function HasParent: Boolean; override;
 function GetParentComponent: TComponent; override;
 function IsParentOf(AControl: TControl): Boolean; virtual;
 function GetTopParent: TControl;
 function FindSubComponent(AName: string): TComponent;
 function IsVisible: Boolean; virtual;
 function IsControlVisible: Boolean; virtual;
 function IsEnabled: Boolean;
 function IsParentColor: Boolean;
 function IsParentFont: Boolean;
 function FormIsUpdating: Boolean; virtual;
 function IsProcessingPaintMsg: Boolean;
 procedure Hide;
 procedure Refresh;
 procedure Repaint; virtual;
 procedure Invalidate; virtual;
 function CheckChildClassAllowed(ChildClass: TClass; 
 ExceptionOnInvalid: Boolean): Boolean;
 procedure CheckNewParent(AParent: TWinControl); virtual;
 procedure SendToBack;
 procedure SetTempCursor(Value: TCursor); virtual;
 procedure UpdateRolesForForm; virtual;
 procedure ActiveDefaultControlChanged(NewControl: TControl); virtual;
 function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; virtual;
 function GetTextLen: Integer; virtual;
 procedure SetTextBuf(Buffer: PChar); virtual;
 function Perform(Msg: Cardinal; WParam: WParam; LParam: LParam)
: LRESULT;
 function ScreenToClient(const APoint: TPoint): TPoint; virtual;
 ClientToScreen;
 function ScreenToControl(const APoint: TPoint): TPoint;
 function ControlToScreen(const APoint: TPoint): TPoint;
 function ClientToParent(const Point: TPoint; AParent: TWinControl=Nil)
: TPoint;
 function ParentToClient(const Point: TPoint; AParent: TWinControl=Nil)
: TPoint;
 function GetChildrenRect(Scrolled: Boolean): TRect; virtual;
 procedure Show;
 procedure Update; virtual;
 function HandleObjectShouldBeVisible: Boolean; virtual;
 function ParentDestroyingHandle: Boolean;
 function ParentHandlesAllocated: Boolean; virtual;
 procedure InitiateAction; virtual;
 procedure ShowHelp; virtual;
 function HasHelp: Boolean;
 procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
 procedure AddHandlerOnResize(const OnResizeEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnResize(const OnResizeEvent: TNotifyEvent);
 procedure AddHandlerOnChangeBounds
 (const OnChangeBoundsEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnChangeBounds
 (const OnChangeBoundsEvent: TNotifyEvent);
 procedure AddHandlerOnVisibleChanging
 (const OnVisibleChangingEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnVisibleChanging
 (const OnVisibleChangingEvent: TNotifyEvent);
 procedure AddHandlerOnVisibleChanged
 (const OnVisibleChangedEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnVisibleChanged
 (const OnVisibleChangedEvent: TNotifyEvent);
 procedure AddHandlerOnEnabledChanging
 (const OnEnabledChangingEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnEnabledChanging
 (const OnEnabledChangingEvent: TNotifyEvent);
 procedure AddHandlerOnEnabledChanged
 (const OnEnabledChangedEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnEnabledChanged
 (const OnEnabledChangedEvent: TNotifyEvent);
 procedure AddHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnKeyDown(const OnKeyDownEvent: TKeyEvent);
 procedure AddHandlerOnBeforeDestruction
 (const OnBeforeDestructionEvent: TNotifyEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnBeforeDestruction
 (const OnBeforeDestructionEvent: TNotifyEvent);
 procedure AddHandlerOnMouseWheel
 (const OnMouseWheelEvent: TMouseWheelEvent; 
 AsFirst: Boolean=False);
 procedure RemoveHandlerOnMouseWheel
 (const OnMouseWheelEvent: TMouseWheelEvent);
 property AccessibleName: TCaption;
 property AccessibleDescription: TCaption;
 property AccessibleValue: TCaption;
 property AccessibleRole: TLazAccessibilityRole;
 property Action: TBasicAction;
 property Align: TAlign;
 property Anchors: TAnchors;
 property AnchorSide[Kind: TAnchorKind]: TAnchorSide;
 property AutoSize: Boolean;
 property BorderSpacing: TControlBorderSpacing;
 property BoundsRect: TRect;
 property BoundsRectForNewParent: TRect;
 property Caption: TCaption;
 property CaptureMouseButtons: TCaptureMouseButtons;
 property ClientHeight: Integer;
 property ClientOrigin: TPoint;
 property ClientRect: TRect;
 property ClientWidth: Integer;
 property Color: TColor;
 property Constraints: TSizeConstraints;
 property ControlOrigin: TPoint;
 property ControlState: TControlState;
 property ControlStyle: TControlStyle;
 property Enabled: Boolean;
 property Font: TFont;
 property IsControl: Boolean;
 property MouseInClient: Boolean;
 property OnChangeBounds: TNotifyEvent;
 property OnClick: TNotifyEvent;
 property OnResize: TNotifyEvent;
 property OnShowHint: TControlShowHintEvent;
 property Parent: TWinControl;
 property PopupMenu: TPopupmenu;
 property ShowHint: Boolean;
 property Visible: Boolean;
 property WindowProc: TWndMethod;
 property DockOrientation: TDockOrientation;
 property Floating: Boolean;
 property FloatingDockSiteClass: TWinControlClass;
 property HostDockSite: TWinControl;
 property LRDockWidth: Integer;
 property TBDockHeight: Integer;
 property UndockHeight: Integer;
 property UndockWidth: Integer;
 function UseRightToLeftAlignment: Boolean; virtual;
 function UseRightToLeftReading: Boolean; virtual;
 function UseRightToLeftScrollBar: Boolean;
 function IsRightToLeft: Boolean;
 property BiDiMode: TBiDiMode;
 property ParentBiDiMode: Boolean;
published
 property AnchorSideLeft: TAnchorSide;
 property AnchorSideTop: TAnchorSide;
 property AnchorSideRight: TAnchorSide;
 property AnchorSideBottom: TAnchorSide;
 property Cursor: TCursor;
 property Left: Integer;
 property Height: Integer;
 property Hint: TTranslateString;
 property Top: Integer;
 property Width: Integer;
 property HelpType: THelpType;
 property HelpKeyword: string;
 property HelpContext: THelpContext;
end