| [Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Adjust the control's position and extent for the new docksite.
Source position: controls.pp line 1133
protected procedure TControl.DoDock( |
NewDockSite: TWinControl; |
var ARect: TRect |
); virtual; |
If NewDockSite=Nil, Parent is set to Nil (in preparation of floating the control).
Otherwise ARect is adjusted to fit into the logical ClientRect of the NewDockSite. The origin is adjusted according to Align[??? should be DropAlign!], so that the control sits at the according side of the NewDockSite.
Finally the computed coordinates are stored, in BoundsRectForNewParent when the NewDockSite differs from Parent, else in BoundsRect.
ARect is the perfect BoundsRect for the control, in screen coordinates when it becomes floating, or in client coordinates of the target docksite.
| lazarus-ccr.sourceforge.net |