Sign in Join
FPDoc Onlineexperiment

TCustomUpDown.DoSetBounds procedure

Member of TCustomUpDownprotectedIn unit ComCtrls

Applies the specified bounds to the control.

Declaration

pascal
procedure DoSetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; 
 AHeight: Integer); override

Arguments

ALeft

New value for the Left property in the control.

ATop

New value for the Top property in the control.

AWidth

New value for the Width property in the control.

AHeight

New value for the Height property in the control.

Description

DoSetBounds is an overridden method in TCustomUpDown. It calls the inherited method on entry to apply the origin and size arguments to the bounds and client rectangle for the control.

If a handle has not been allocated for the widgetset class, the value in Orientation is used to update the size and position of the increment and decrement speed buttons on the control. Each speed button uses a rectangular shape proportional to the Width or Height for the control. The SetBounds method in the speed buttons is called to apply the calculated origin and size for each.

See also

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.