TBGRAFlashProgressBar

type TBGRAFlashProgressBar = class(TBGRAGraphicCtrl)

protected

  FBGRA: TBGRABitmap;

  FCaptionPercentDigits: Integer;

  FCaptionPercentTimerFormat: string;

  FCaptionShowPercent: Boolean;

  FCaptionPercentAlign: TAlignment;

  FCaptionPercentSubAlign: TAlignment;

  FCaptionShowPercentSub: Boolean;

  FMarqueeBounce: Word;

  FOnRedraw: TBGRAProgressBarRedrawEvent;

  FBackgroundColor: TColor;

  FBackgroundRandomize: Boolean;

  FBackgroundRandomizeMaxIntensity: Word;

  FBackgroundRandomizeMinIntensity: Word;

  FShowDividers: Boolean;

  FGraphShowYDividers: Boolean;

  FBarColor: TColor;

  FBarColorSub: TColor;

  FMarqueeWidthType: TBGRAPBarMarqueeWidthType;

  FMarqueeDirection: TBGRAPBarMarqueeDirection;

  FMarqueeSpeed: TBGRAPBarMarqueeSpeed;

  FMarqueeWidth: Word;

  rMarqueeWidth: Word;

  FOnTimerTimer: TNotifyEvent;

  FTimerAutoRestart: Boolean;

  FOnTimerEnd: TNotifyEvent;

  FOnTimerStart: TNotifyEvent;

  FTimerInterval: Cardinal;

  FMaxValue: Double;

  FMinValue: Double;

  FMinYValue: Double;

  FMaxYValue: Double;

  FValue: Double;

  FValueSub: Double;

  FOnChange: TNotifyEvent;

  FRandSeed: Integer;

  FStyle: TBGRAPBarStyle;

  FGraphShowYLine: Boolean;

  FGraphYLineAfter: string;

  FGraphYLineCaption: string;

  FGraphYLineDigits: Integer;

  FShowBarAnimation: Boolean;

  xpos: Integer;

  xposSub: Integer;

  marqueeLeft: Integer;

  marqueeRight: Integer;

  marqueeCount: Integer;

  marqueeBCount: Integer;

  barAnimLeft: Integer;

  marqueeWall: Boolean;

  marqueeBouncing: Boolean;

  marqueeCurMode: TBGRAPBarMarqueeDirection;

  internalTimer: TFPTimer;

  closing: Boolean;

  GraphValues: TGraphValues;

  GraphPoints: array of TPointF;

  class function GetControlClassDefaultSize; override;

  procedure CalculatePreferredSize(); override;

  procedure DoOnResize; override;

  procedure WMEraseBkgnd(); message;

  procedure Paint; override;

  procedure Loaded; override;

  procedure TextChanged; override;

  procedure TimerOnTimer();

  procedure CalcMarqueeWidth;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SaveToFile();

  procedure LoadFromFile();

  procedure OnFindClass();

  procedure Draw();

  procedure SetValue();

  procedure StepIt();

  procedure TimerReStart;

  procedure TimerPlayPause;

  property Position: Integer; [rw]

  property Min: Integer; [rw]

  property Max: Integer; [rw]

  property XPosition: Integer; [r]

  property XPositionSub: Integer; [r]

published

  property Align;

  property BorderSpacing;

  property Anchors;

  property Caption;

  property CaptionShowPercent: Boolean; [rw]

  property CaptionPercentAlign: TAlignment; [rw]

  property CaptionShowPercentSub: Boolean; [rw]

  property CaptionPercentSubAlign: TAlignment; [rw]

  property CaptionPercentDigits: Integer; [rw]

  property CaptionPercentTimerFormat: string; [rw]

  property Font;

  property ParentFont;

  property MinValue: Double; [rw]

  property MaxValue: Double; [rw]

  property MinYValue: Double; [rw]

  property MaxYValue: Double; [rw]

  property Value: Double; [rw]

  property ValueSub: Double; [rw]

  property Color; deprecated ;

  property RandSeed: Integer; [rw]

  property BarColor: TColor; [rw]

  property BarColorSub: TColor; [rw]

  property BackgroundColor: TColor; [rw]

  property BackgroundRandomizeMinIntensity: Word; [rw]

  property BackgroundRandomizeMaxIntensity: Word; [rw]

  property BackgroundRandomize: Boolean; [rw]

  property ShowDividers: Boolean; [rw]

  property ShowBarAnimation: Boolean; [rw]

  property Style: TBGRAPBarStyle; [rw]

  property MarqueeWidthType: TBGRAPBarMarqueeWidthType; [rw]

  property MarqueeWidth: Word; [rw]

  property MarqueeSpeed: TBGRAPBarMarqueeSpeed; [rw]

  property MarqueeDirection: TBGRAPBarMarqueeDirection; [rw]

  property MarqueeBounce: Word; [rw]

  property TimerInterval: Cardinal; [rw]

  property TimerAutoRestart: Boolean; [rw]

  property GraphShowYDividers: Boolean; [rw]

  property GraphShowYLine: Boolean; [rw]

  property GraphYLineCaption: string; [rw]

  property GraphYLineAfter: string; [rw]

  property GraphYLineDigits: Integer; [rw]

  property OnClick;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheel;

  property OnMouseWheelUp;

  property OnMouseWheelDown;

  property OnChange: TNotifyEvent; [rw]

  property OnRedraw: TBGRAProgressBarRedrawEvent; [rw]

  property OnTimerStart: TNotifyEvent; [rw]

  property OnTimerEnd: TNotifyEvent; [rw]

  property OnTimerTimer: TNotifyEvent; [rw]

end;

TBGRAFlashProgressBar

TBGRAGraphicCtrl

TObject