Class TW95Meter (unit W95Meter)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

function IntPercent(High,Low : Longint) : integer;


function RealPercent(High,Low : real) : integer;

pen.

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;