Class ToaGauge (unit oaGauges)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

nonsense to allow run-time toggling of bevels} {procedure ToaGauge.


Functions

procedure AddProgress(Value: Longint);


destructor Destroy;

FBorderStyle := bsSingle;

procedure Paint;


procedure CMColorChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);

procedure MouseDown(button : TMouseButton; shift : TShiftState; x, y : integer); override;

Refresh;


procedure ImageBackground(AnImage: TBitmap; var aRect : TRect);


procedure ImageBevel(AnImage: TBitmap; bvKind : TBevelShape; var aRect : TRect);


procedure OverlayBackground(AnImage: TBitmap; var aRect : TRect);


procedure PaintAsBar(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsNeedle(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsNothing(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsPie(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsText(AnImage: TBitmap; PaintRect: TRect);


procedure PaintProgress;


procedure SetBackColor(Value: TColor);

Refresh;

procedure SetBevel(Value : TBevelShape);

procedure ToaGauge.

procedure SetBevelMargin(Value : Integer);

Refresh;

procedure SetForeColor(Value: TColor);

procedure SetBorderStyle(Value: TBorderStyle);

Refresh;


procedure SetGaugeKind(Value: TGaugeKind);


procedure SetMaxValue(Value: Longint);


procedure SetMinValue(Value: Longint);


procedure SetPercent;

===================================================== ToaGauge =====================================================

procedure SetProgress(Value: Longint);


procedure SetProgressBevel(Value : TBevelShape);

Refresh;

procedure SetShowText(Value: Boolean);

Refresh;

Properties

property Align :


property BackColor : TColor


property Bevel : TBevelShape


property BevelMargin : Integer


property Color :


property Enabled :


property Font :


property ForeColor : TColor

property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;

property Kind : TGaugeKind


property MaxValue : Longint


property MinValue : Longint


property ParentColor :


property ParentFont :


property ParentShowHint :


property PercentDone : Integer


property Progress : Longint


property ProgressBevel : TBevelShape


property ShowHint :


property ShowText : Boolean


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBackColor : TColor;


FBevel : TBevelShape;


FBevelMargin : Integer;

broadcast this nonsense

FCurValue : Longint;


FForeColor : TColor;

FBorderStyle: TBorderStyle;

FImage : TBitmap;


FInitialized : boolean;


FKind : TGaugeKind;


FMaxValue : Longint;


FMinValue : Longint;


FOverlay : TBltBitmap;


FPercent : Integer;


FProgressBevel : TBevelShape;


FShowText : Boolean;


XHeight : Integer;


XWidth : Integer;



Constructors


constructor Create(AOwner: TComponent);

nonsense to allow run-time toggling of bevels} {procedure ToaGauge.MouseDown(button : TMouseButton; shift : TShiftState; x, y : integer); begin inherited MouseDown(button, shift, x, y); case button of mbRight : begin if FBevel = high(FBevel) then FBevel := bvNone else inc(FBevel); end; mbLeft : begin if FProgressBevel = high(FProgressBevel) then FProgressBevel := bvNone else inc(FProgressBevel); end; end; PaintProgress; end;


Functions


procedure AddProgress(Value: Longint);


destructor Destroy;

FBorderStyle := bsSingle;


procedure Paint;


procedure CMColorChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);

procedure MouseDown(button : TMouseButton; shift : TShiftState; x, y : integer); override;

Refresh;


procedure ImageBackground(AnImage: TBitmap; var aRect : TRect);


procedure ImageBevel(AnImage: TBitmap; bvKind : TBevelShape; var aRect : TRect);


procedure OverlayBackground(AnImage: TBitmap; var aRect : TRect);


procedure PaintAsBar(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsNeedle(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsNothing(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsPie(AnImage: TBitmap; PaintRect: TRect);


procedure PaintAsText(AnImage: TBitmap; PaintRect: TRect);


procedure PaintProgress;


procedure SetBackColor(Value: TColor);

Refresh;


procedure SetBevel(Value : TBevelShape);

procedure ToaGauge.SetBorderStyle(Value: TBorderStyle); begin if Value <> FBorderStyle then begin FBorderStyle := Value; Refresh; end; end;


procedure SetBevelMargin(Value : Integer);

Refresh;


procedure SetForeColor(Value: TColor);

procedure SetBorderStyle(Value: TBorderStyle);

Refresh;


procedure SetGaugeKind(Value: TGaugeKind);


procedure SetMaxValue(Value: Longint);


procedure SetMinValue(Value: Longint);


procedure SetPercent;

===================================================== ToaGauge =====================================================


procedure SetProgress(Value: Longint);


procedure SetProgressBevel(Value : TBevelShape);

Refresh;


procedure SetShowText(Value: Boolean);

Refresh;


Properties


property Align :


property BackColor : TColor


property Bevel : TBevelShape


property BevelMargin : Integer


property Color :


property Enabled :


property Font :


property ForeColor : TColor

property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;


property Kind : TGaugeKind


property MaxValue : Longint


property MinValue : Longint


property ParentColor :


property ParentFont :


property ParentShowHint :


property PercentDone : Integer


property Progress : Longint


property ProgressBevel : TBevelShape


property ShowHint :


property ShowText : Boolean


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBackColor : TColor;


FBevel : TBevelShape;


FBevelMargin : Integer;

broadcast this nonsense


FCurValue : Longint;


FForeColor : TColor;

FBorderStyle: TBorderStyle;


FImage : TBitmap;


FInitialized : boolean;


FKind : TGaugeKind;


FMaxValue : Longint;


FMinValue : Longint;


FOverlay : TBltBitmap;


FPercent : Integer;


FProgressBevel : TBevelShape;


FShowText : Boolean;


XHeight : Integer;


XWidth : Integer;