| Class TDRGauge (unit DRGauge) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| 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;