Class TGauge95 (unit Gauge95)

Inherits from

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;