TProgressbarEx

type TProgressbarEx = class(TGraphicControl)

protected

  procedure DoAutoAdjustLayout(); override;

  function GetBarRect;

  function GetCaptionText;

  class function GetControlClassDefaultSize; override;

  function IsHorizontal();

  procedure Paint; override;

  procedure SetAutoSize(); override;

public

  constructor Create(); override;

published

  property BackColor: TColor; [rw]

  property BorderColor: TColor; [rw]

  property BorderStyle: TProgressBarBorderStyle; [rw]

  property BarColor: TColor; [rw]

  property GradientEndColor: TColor; [rw]

  property Caption: string; [rw]

  property DrawStyle: TProgressbarDrawStyle; [rw]

  property MarqueeLength: Integer; [rw]

  property MarqueeSpeed: Integer; [rw]

  property Max: Integer; [rw]

  property Min: Integer; [rw]

  property Orientation: TProgressbarOrientation; [rw]

  property Position: Integer; [rw]

  property Style: TProgressbarStyle; [rw]

  property TextMode: TProgressbarTextMode; [rw]

  property Align;

  property Anchors;

  property AutoSize;

  property BorderSpacing;

  property Constraints;

  property Font;

  property Hint;

  property ParentFont;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  property OnPaint;

end;

TProgressbarEx

TObject