| Class TWebGauge (unit bi_ctrls) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AddProgress(Value: Longint);
destructor Destroy;
procedure Paint;
procedure calccolors;
function GetPercentDone: Longint;
procedure SetBackColor(Value: TColor);
procedure setbeveli(value:tpanelbevel);
procedure setbevelo(value:tpanelbevel);
procedure setbevelwidth(value:tbevelwidth);
procedure SetForeColor(Value: TColor);
procedure SetMaxValue(Value: Longint);
procedure SetMinValue(Value: Longint);
procedure SetProgress(Value: Longint);
procedure SetShowText(Value: Boolean);
procedure SetWaiting(Value: Boolean);
procedure timertick(sender:tobject);| Properties |
property Align :
property BackColor : TColor
property BevelInner : tpanelbevel
property BevelOuter : tpanelbevel
property Bevelwidth : tbevelwidth
property Color :
property Enabled :
property Font :
property ForeColor : TColor
property MaxValue : Longint
property MinValue : Longint
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Progress : Longint
property ShowHint :
property ShowText : Boolean
property Visible :
property Waiting : Boolean
property PercentDone : Longint| Events |
| Variables |
colors : array[0..32]of tcolor;
FBackColor : TColor;
fbeveli : tpanelbevel;
fbevelo : tpanelbevel;
fbevelwidth : tbevelwidth;
FCurValue : Longint;
FForeColor : TColor;
FMaxValue : Longint;
FMinValue : Longint;
FShowText : Boolean;
FWaiting : Boolean;
mright : boolean;
step : integer;
timer : tbi_timer;| Constructors |
constructor Create(AOwner: TComponent);<--------------------------Webgauge
| Functions |
procedure AddProgress(Value: Longint);
destructor Destroy;
procedure Paint;
procedure calccolors;
function GetPercentDone: Longint;
procedure SetBackColor(Value: TColor);
procedure setbeveli(value:tpanelbevel);textrect(_rect,0,0,s1);
procedure setbevelo(value:tpanelbevel);
procedure setbevelwidth(value:tbevelwidth);
procedure SetForeColor(Value: TColor);
procedure SetMaxValue(Value: Longint);
procedure SetMinValue(Value: Longint);
procedure SetProgress(Value: Longint);
procedure SetShowText(Value: Boolean);
procedure SetWaiting(Value: Boolean);execption auslösen d2 vs d3???
procedure timertick(sender:tobject);| Properties |
property Align :
property BackColor : TColor
property BevelInner : tpanelbevel
property BevelOuter : tpanelbevel
property Bevelwidth : tbevelwidth
property Color :
property Enabled :
property Font :
property ForeColor : TColor
property MaxValue : Longint
property MinValue : Longint
property ParentColor :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Progress : Longint
property ShowHint :
property ShowText : Boolean
property Visible :
property Waiting : Boolean
property PercentDone : Longint| Events |
| Variables |
colors : array[0..32]of tcolor;
FBackColor : TColor;
fbeveli : tpanelbevel;
fbevelo : tpanelbevel;
fbevelwidth : tbevelwidth;
FCurValue : Longint;
FForeColor : TColor;
FMaxValue : Longint;
FMinValue : Longint;
FShowText : Boolean;
FWaiting : Boolean;
mright : boolean;
step : integer;
timer : tbi_timer;