| Class ToaGauge (unit oaGauges) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AddProgress(Value: Longint);
destructor Destroy;
procedure Paint;
procedure CMColorChanged(var Message: TMessage);
procedure CMFontChanged(var Message: TMessage);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);
procedure SetBevel(Value : TBevelShape);
procedure SetBevelMargin(Value : Integer);
procedure SetForeColor(Value: TColor);Refresh;
procedure SetGaugeKind(Value: TGaugeKind);
procedure SetMaxValue(Value: Longint);
procedure SetMinValue(Value: Longint);
procedure SetPercent;
procedure SetProgress(Value: Longint);
procedure SetProgressBevel(Value : TBevelShape);
procedure SetShowText(Value: Boolean);| Properties |
property Align :
property BackColor : TColor
property Bevel : TBevelShape
property BevelMargin : Integer
property Color :
property Enabled :
property Font :
property ForeColor : TColor
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;
FCurValue : Longint;
FForeColor : TColor;
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 : TColorproperty 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;