Sign in Join
FPDoc Onlineexperiment

TCustomControlBar.CMBorderChanged procedure

Member of TCustomControlBarprotectedIn unit ExtCtrls

Handles the CM_BORDERCHANGED message.

Declaration

pascal
procedure CMBorderChanged(var Message: TLMessage); message

Arguments

Message

Control message handled in the method.

Description

CMBorderChanged calls the inherited method on entry to adjust the client rectangle and control size when a border is added to or removed from the control.

CalcInnerBevelWidth is called to get the space reserved for the settings in BevelInner and BevelOuter. If the calculated value differs from the previous value, the Top coordinate for each of the TCtrlBand instances on the control are shifted to their new positions. AlignControlsToBands is called to align the controls for the bands to their new positions. If IsRightToLeft returns True, the Left coordinate in each of the bands is also shifted.

See also

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