TJppCustomProgressBar

type TJppCustomProgressBar = class(TGraphicControl)

protected

  procedure Paint; override;

  procedure Loaded; override;

  procedure UpdateBitmap;

  procedure UpdatePixPos;

  procedure Notification(); override;

  procedure SetEnabled(); override;

  procedure CMEnabledChanged(); message;

  procedure CMBiDiModeChanged(); message;

  procedure CMVisibleChanged(); message;

  procedure SetParent(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure StepIt;

  procedure StepBy();

  procedure SetBounds(); override;

  procedure SetupInternalLabel;

  function PixelPos;

protected

  procedure PropsChanged();

  property PercentDone: Integer; [r]

  property Caption;

  property Min: Integer; [rw]

  property Max: Integer; [rw]

  property Position: Integer; [rw]

  property Step: Integer; [rw]

  property TagExt: TJppTagExt; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

  property Appearance: TJppProgressBarAppearance; [rw]

  property OnProgressChanged: TNotifyEvent; [rw]

  property UpdateProgressIfDisabled: Boolean; [rw]

  property BoundLabel: TJppControlBoundLabel; [r]

  property BoundLabelPosition: TLabelPosition; [rw]

  property BoundLabelSpacing: Integer; [rw]

end;

TJppCustomProgressBar

TObject