TStatusPanel

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: TCaption; [rw]

Text - the string for display in the StatusBar

  property Width: Integer; [rw]

The Width of this panel on the StatusBar

end;

TStatusPanel

TStatusPanel - one of the panels contained in a StatusBar

TCollectionItem

TPersistent

TObject