Class TWebGauge (unit bi_ctrls)

Inherits from

TGraphicControl

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;



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;