Class TGauge95 (unit Gauge95) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- --------------------------------------------------
procedure AddProgress(Value: Longint);
-------------------------------------------------
procedure Paint;
---------------------------
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
----------------------------------------------------------------------
procedure AdjustSize (var W: Integer; var H: Integer);
-----------------------------------------------------------------
function GetPercentDone: Double;
-------------------------------------------
procedure SetBevelStyle(Value: TBevelStyle);
-------------------------------------------------------
procedure SetBoxColor(Value: TColor);
-----------------------------------------------
procedure SetBoxCount(Value: Integer);
------------------------------------------------
procedure SetBoxWidth(Value: Integer);
------------------------------------------------
procedure SetMaxValue(Value: Longint);
-------------------------------------------------
procedure SetMinValue(Value: Longint);
-------------------------------------------------
procedure SetProgress(Value: Longint);
-------------------------------------------------
property Align :
property BevelStyle : TBevelStyle
property BoxColor : TColor
property BoxCount : Integer
property BoxWidth : Integer
property Color :
property Enabled :
property MaxValue : Longint
property MinValue : Longint
property ParentColor :
property ParentShowHint :
property Progress : Longint
property ShowHint :
property Visible :
property PercentDone : Double
FBevelStyle : TBevelStyle;
FBoxColor : TColor;
FBoxCount : Integer;
FBoxWidth : Integer;
FCurValue : Longint;
FMaxValue : Longint;
FMinValue : Longint;
constructor Create(AOwner: TComponent);
--------------------------------------------------
procedure AddProgress(Value: Longint);
-------------------------------------------------
procedure Paint;
---------------------------
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
----------------------------------------------------------------------
procedure AdjustSize (var W: Integer; var H: Integer);
-----------------------------------------------------------------
function GetPercentDone: Double;
-------------------------------------------
procedure SetBevelStyle(Value: TBevelStyle);
-------------------------------------------------------
procedure SetBoxColor(Value: TColor);
-----------------------------------------------
procedure SetBoxCount(Value: Integer);
------------------------------------------------
procedure SetBoxWidth(Value: Integer);
------------------------------------------------
procedure SetMaxValue(Value: Longint);
-------------------------------------------------
procedure SetMinValue(Value: Longint);
-------------------------------------------------
procedure SetProgress(Value: Longint);
-------------------------------------------------
property Align :
property BevelStyle : TBevelStyle
property BoxColor : TColor
property BoxCount : Integer
property BoxWidth : Integer
property Color :
property Enabled :
property MaxValue : Longint
property MinValue : Longint
property ParentColor :
property ParentShowHint :
property Progress : Longint
property ShowHint :
property Visible :
property PercentDone : Double
FBevelStyle : TBevelStyle;
FBoxColor : TColor;
FBoxCount : Integer;
FBoxWidth : Integer;
FCurValue : Longint;
FMaxValue : Longint;
FMinValue : Longint;