TCustomUpDown.OnAssociateChangeBounds procedure
Implements an OnChangeBounds event handler assigned to the Associate control in the class instance.
Declaration
procedure OnAssociateChangeBounds(Sender: TObject)Arguments
Sender | Control for the event notification. Not used in the method. |
Description
OnAssociateChangeBounds ensures that the control is repositioned
and realigned to the Associate control when its bounds have been changed.
The AlignButton property is used to determine which coordinates (Left, Right, Width, or Height) are adjusted to align and position the control adjacent to the Associate control.
- udLeft, udRight
- Causes the Top and Height properties for the control to be set to the corresponding values in Associate. The Left property is calculated to place the up/down control relative to the specified edge for the Associate control.
- upTop, udBottom
- Causes the Left and Width properties for the control to be set to the corresponding values in Associate. The Top property is calculated to place the up/down control relative to the specified edge for the Associate control.
SetBounds is called to apply the calculated Left, Top, Width, and Height values to the control.
No actions are performed in the method if a control has not been assigned to the Associate property in the class instance.
OnAssociateChangeBounds is assigned when a control is assigned to the Associate property.
See also
An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.