TCustomProgressBar

type TCustomProgressBar = class(TWinControl)

  class procedure WSRegisterClass; override;

WSRegisterClass - Register this Class for the current Widget Set

protected

  procedure ApplyChanges;

ApplyChanges - apply any changes that have occurred

  procedure InitializeWnd; override;

InitializeWnd calls inherited method then applies changes

  procedure Loaded; override;

Loaded calls inherited method then applies changes

protected

  class function GetControlClassDefaultSize; override;

GetControlClassDefaultSize returns its own defaults, overriding inherited values

public

  constructor Create(); override;

Create - constructor for TCustomProgressBar: calls inherited Create, initialises position, orientation and size

  procedure StepIt;

StepIt - move indicator to new position (current position plus Step)

  procedure StepBy();

StepBy - move indicator by amount specified in Delta

  property Max: Integer; [rw]

Max - maximum value for progressbar

  property Min: Integer; [rw]

Min - minimum value of progressbar

  property Orientation: TProgressBarOrientation; [rw]

Orientation - horizontal or vertical

  property Position: Integer; [rw]

Position of indicator along progressbar

  property Smooth: Boolean; [rw]

Whether Smooth display (True) or stepped

  property Step: Integer; [rw]

Step - size of increment for display

  property Style: TProgressBarStyle; [rw]

  property BarShowText: Boolean; [rw]

BarShowText - some widget sets allow text to be displayed on the bar to indicate its position (eg 32%)

end;

TCustomProgressBar

The ancestor class for TProgressBar

TWinControl

TControl

TLCLComponent

TLCLComponent - base class for LCL components

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject