Source position: wscontrols.pp line 91
published class procedure TWSControl.ConstraintWidth(
const AControl: TControl;
const AConstraints: TObject;
var aWidth: Integer
); virtual;