Class ToaGauge (unit oaGauges) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- nonsense to allow run-time toggling of bevels} {procedure ToaGauge.
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;
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
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;
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;
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;
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
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;