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