Class TDRGauge (unit DRGauge)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

SolveForX := Trunc( Z * (Y * 0.


Functions

procedure AddProgress(Value: Longint);


procedure Paint;


procedure Solve;


function GetPercentDone: Longint;


procedure SetBackColor(Value: TColor);


procedure SetBlockWidth(Value: byte);


procedure SetBorderStyle(Value: TDRBorderStyle);


procedure SetBorderWidth(Value: TDRBorderWidth);


procedure SetForeColor(Value: TColor);


procedure SetGap(Value: TDRGap);


procedure SetMaxValue(Value: Longint);


procedure SetMinValue(Value: Longint);


procedure SetProgress(Value: Longint);


function SolveForX(Z,y: Longint): Integer;


Properties

property Align :


property BackColor : TColor


property BlockWidth : byte


property BorderStyle : TDRBorderStyle


property BorderWidth : TDRBorderWidth


property ForeColor : TColor


property Gap : TDRGap


property MaxValue : Longint


property MinValue : Longint


property ParentColor :


property ParentShowHint :


property Progress : Longint


property ShowHint :


property Visible :


property PercentDone : Longint


Events

Variables

FBackColor : TColor;


FBlockWidth : byte;


FBorder : byte;


FBorderStyle : TDRBorderStyle;


FBorderWidth : TDRBorderWidth;


FCurValue : Longint;


FForeColor : TColor;


FGap : TDRGap;


FLineWidth : byte;


FMaxValue : Longint;


FMinValue : Longint;


OldFillSize : LongInt;



Constructors


constructor Create(AOwner: TComponent);

SolveForX := Trunc( Z * (Y * 0.01) ); O pulo do bloco é maior assim


Functions


procedure AddProgress(Value: Longint);


procedure Paint;


procedure Solve;


function GetPercentDone: Longint;


procedure SetBackColor(Value: TColor);


procedure SetBlockWidth(Value: byte);


procedure SetBorderStyle(Value: TDRBorderStyle);


procedure SetBorderWidth(Value: TDRBorderWidth);


procedure SetForeColor(Value: TColor);


procedure SetGap(Value: TDRGap);


procedure SetMaxValue(Value: Longint);


procedure SetMinValue(Value: Longint);


procedure SetProgress(Value: Longint);


function SolveForX(Z,y: Longint): Integer;


Properties


property Align :


property BackColor : TColor


property BlockWidth : byte


property BorderStyle : TDRBorderStyle


property BorderWidth : TDRBorderWidth


property ForeColor : TColor


property Gap : TDRGap


property MaxValue : Longint


property MinValue : Longint


property ParentColor :


property ParentShowHint :


property Progress : Longint


property ShowHint :


property Visible :


property PercentDone : Longint


Events


Variables


FBackColor : TColor;


FBlockWidth : byte;


FBorder : byte;


FBorderStyle : TDRBorderStyle;


FBorderWidth : TDRBorderWidth;


FCurValue : Longint;


FForeColor : TColor;


FGap : TDRGap;


FLineWidth : byte;


FMaxValue : Longint;


FMinValue : Longint;


OldFillSize : LongInt;