| Class TW95Meter (unit W95Meter) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function IntPercent(High,Low : Longint) : integer;
function RealPercent(High,Low : real) : integer;
procedure Paint;
procedure UpdateProgress;
procedure Initialize;
procedure SetBackColor(value:Tcolor);
procedure SetPercent(Value : Integer);
procedure SetSegColor(value:Tcolor);
procedure SetSegGap(value:integer);
procedure SetSegWidth(value:Integer);
procedure SetStyle(value:StyleType);| Properties |
property BackGroundColor : TColor
property Cursor :
property EdgeStyle : StyleType
property Height :
property Percent : Integer
property SegmentColor : Tcolor
property SegmentGap : integer
property SegmentWidth : integer
property Width :
property Canvas : | Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBackColor : TColor;
FEdgeStyle : StyleType;
FPercent : Integer;
FSegColor : Tcolor;
FSegGap : integer;
FSegWidth : integer;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function IntPercent(High,Low : Longint) : integer;
function RealPercent(High,Low : real) : integer;pen.Width := 1; Pen.Color := clBlack; Rectangle(1,1,width-1,height-1);
procedure Paint;
procedure UpdateProgress;
procedure Initialize;
procedure SetBackColor(value:Tcolor);
procedure SetPercent(Value : Integer);
procedure SetSegColor(value:Tcolor);
procedure SetSegGap(value:integer);
procedure SetSegWidth(value:Integer);
procedure SetStyle(value:StyleType);| Properties |
property BackGroundColor : TColor
property Cursor :
property EdgeStyle : StyleType
property Height :
property Percent : Integer
property SegmentColor : Tcolor
property SegmentGap : integer
property SegmentWidth : integer
property Width :
property Canvas : | Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBackColor : TColor;
FEdgeStyle : StyleType;
FPercent : Integer;
FSegColor : Tcolor;
FSegGap : integer;
FSegWidth : integer;