TCustomBarChart

type TCustomBarChart = class(TPanel)

protected

  procedure Paint; override;

protected

  class function GetControlClassDefaultSize; override;

Find the default size for this class of controls (by reference to parents)

protected

  function RealGetText; override;

public

  constructor Create(); override;

Create - constructor for TCustomBarChart: calls inherited Create and creates the bars, sets initial bounds and label position

  destructor Destroy; override;

Destroy - destructor for TCustomBarChart: frees the bars and calls inherited Destroy

  procedure Clear;

Clear - remove all previous contents and start with a blank BarChart

  function AddBar();

AddBar - add a bar with the specified properties (name, value and colour) to the BarChart

  function GetBar();

GetBar - collect the data for one of the bars

  function BarCount;

BarCount - number of bars in the chart

  procedure BeginUpdate;

BeginUpdate - start updating

  procedure EndUpdate;

EndUpdate - finish updating

  procedure UpdateBarChart;

UpdateBarChart - fill in any new information

published

  property Bars: TCollection; [rw]

Bars - the collection of bars that comprise the BarChart

  property Depth: Byte; [rw]

The Depth of the bars in the chart

  property LabelPosition: TPosLabel; [rw]

LabelPosition - left, centered or right

end;

TCustomBarChart

TCustomBarChart - base class for TBarChart

TPanel

TCustomPanel

TCustomPanel: The base type for TPanel

TCustomControl

TCustomControl - a base class for many window controls

TWinControl

TControl

TLCLComponent

TLCLComponent - base class for LCL components

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject