TWSWinControl.AdaptBounds

published class procedure TWSWinControl.AdaptBounds(

  const AWinControl: TWinControl;

  var Left: Integer;

  var Top: Integer;

  var Width: Integer;

  var Height: Integer;

  var SuppressMove: Boolean

); virtual;