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