| Class TGauge95 (unit Gauge95) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
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);| Properties |
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| Events |
| Variables |
FBevelStyle : TBevelStyle;
FBoxColor : TColor;
FBoxCount : Integer;
FBoxWidth : Integer;
FCurValue : Longint;
FMaxValue : Longint;
FMinValue : Longint;| Constructors |
constructor Create(AOwner: TComponent);--------------------------------------------------
| Functions |
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);-------------------------------------------------
| Properties |
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| Events |
| Variables |
FBevelStyle : TBevelStyle;
FBoxColor : TColor;
FBoxCount : Integer;
FBoxWidth : Integer;
FCurValue : Longint;
FMaxValue : Longint;
FMinValue : Longint;