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