Source position: wscontrols.pp line 92
published class procedure TWSControl.ConstraintHeight(
const AControl: TControl;
const AConstraints: TObject;
var aHeight: Integer
); virtual;