Sign in Join
FPDoc Onlineexperiment

TCustomLabel.DoSetBounds procedure

Member of TCustomLabelprotectedIn unit StdCtrls

Performs a bounds change for the control.

Declaration

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

Arguments

ALeft

New value for the Left property.

ATop

New value for the Top property.

AWidth

New value for the Width property.

AHeight

New value for the Height property.

Description

DoSetBounds is an overridden method in TCustomLabel. It calls the inherited method to store the values in ALeft, ATop, AWidth, and AHeight to the corresponding properties in the control. Values in OptimalFill, WordWrap, and Autosize are used to determine whether additional actions are needed for the bounds change.

When OptimalFill is True and AutoSize is False, the AdjustFontForOptimalFill method is called. If Width was changed and WordWrap is True, both the InvalidatePreferredSize and AdjustSize methods are called.

DoSetBounds is called from the ChangeBounds method in an ancestor class.

See also

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