[Overview][Constants][Types][Classes][Procedures and functions][Index] | Reference for unit 'ComCtrls' (#lcl)

# TStatusPanel

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

TStatusPanel - one of the panels contained in a StatusBar

## Declaration

Source position: comctrls.pp line 68

`type TStatusPanel = class(TCollectionItem)`
`protected`
`FIntfFlag: Integer;`
`function GetDisplayName; override;` |  | GetDisplayName - looks first at the Text property; if it is blank calls inherited method
`procedure PanelChanged();` |  | PanelChanged - method for dealing with a status panel, one or more of whose parts has changed
`procedure SetIndex(); override;` |  | SetIndex saves the old index value, checks that the supplied value is different then calls inherited method
`public`
`constructor Create(); override;` |  | Create - constructor for TStatusPanel: sets default width, alignment and bevel, calls inherited Create and loads into StatusBar
`destructor Destroy; override;` |  | Destroy - destructor for TStatusPanel: calls inherited Destroy and removes itself from the StatusBar
`procedure Assign(); override;` |  | Assign copies text, width, alignment, bevel and style properties from Source if it is of correct type, otherwise calls inherited Assign (which will probably raise an exception)
`function StatusBar;` |  | The StatusBar that contains this StatusPanel
`published`
`property Alignment: TAlignment; [rw]` |  | Alignment - whether left- or right-justified or centered
`property Bevel: TStatusPanelBevel; [rw]` |  | The type of Bevel for the display
`property Style: TStatusPanelStyle; [rw]` |  | Style - whether text or something drawn by the owner
`property Text: String; [rw]` |  | Text - the string for display in the StatusBar
`property Width: Integer; [rw]` |  | The Width of this panel on the StatusBar
`end;`

## Inheritance

`TStatusPanel` |  | TStatusPanel - one of the panels contained in a StatusBar
`TCollectionItem`
`TObject`

The latest version of this document can be found at lazarus-ccr.sourceforge.net.