Calculate the sizes required for docking
Source position: controls.pp line 1005
protected procedure TControl.CalculateDockSizes;