TAbCustomMeter

type TAbCustomMeter = class(TGraphicControl,IAbProgressMeter)

protected

  FBorderStyle: TBorderStyle;

  FCtl3D: Boolean;

  FOrientation: TAbMeterOrientation;

  FPercent: Integer;

  FTickMarks: Byte;

  FUsedColor: TColor;

  FUnusedColor: TColor;

  procedure Paint; override;

  procedure SetBorderStyle();

  procedure SetCtl3D();

  procedure SetOrientation();

  procedure SetTickMarks();

  procedure SetUnusedColor();

  procedure SetUsedColor();

  procedure SetVersion();

public

  constructor Create(); override;

  procedure DoProgress();

  procedure Reset;

  property BorderStyle: TBorderStyle; [rw]

  property Ctl3D: Boolean; [rw]

  property Orientation: TAbMeterOrientation; [rw]

  property TickMarks: Byte; [rw]

  property UnusedColor: TColor; [rw]

  property UsedColor: TColor; [rw]

end;

TAbCustomMeter

TObject,IAbProgressMeter