| Class TAnotherGauge (unit AnotherGauge) |
TCustomControl
| Constructors |
constructor Create( anOwner :TComponent );| Functions |
procedure Change;
procedure Paint;
procedure SetBlockHeight( V :Integer );
procedure SetForeColor( C :TColor );
procedure SetHigh( V :Integer );
procedure SetHighColor( C :TColor );
procedure SetLow( V :Integer );
procedure SetLowColor( C :TColor );
procedure SetMax( V :Integer );
procedure SetMin( V :Integer );
procedure SetValue( V :Integer );| Properties |
property BlockHeight : Integer
property Color :
property ForeColor : TColor
property High : Integer
property HighColor : TColor
property Low : Integer
property LowColor : TColor
property Max : integer
property Min : Integer
property Value : Integer| Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBlockHeight : Integer;
FForeColor : TColor;
FHigh : Integer;
FHighColor : TColor;
FLow : Integer;
FLowColor : TColor;
FMax : Integer;
FMin : Integer;
FOnCHange : TNotifyEvent;
FValue : Integer;| Constructors |
constructor Create( anOwner :TComponent );| Functions |
procedure Change;
procedure Paint;
procedure SetBlockHeight( V :Integer );
procedure SetForeColor( C :TColor );
procedure SetHigh( V :Integer );
procedure SetHighColor( C :TColor );
procedure SetLow( V :Integer );
procedure SetLowColor( C :TColor );
procedure SetMax( V :Integer );
procedure SetMin( V :Integer );
procedure SetValue( V :Integer );| Properties |
property BlockHeight : Integer
property Color :
property ForeColor : TColor
property High : Integer
property HighColor : TColor
property Low : Integer
property LowColor : TColor
property Max : integer
property Min : Integer
property Value : Integer| Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBlockHeight : Integer;
FForeColor : TColor;
FHigh : Integer;
FHighColor : TColor;
FLow : Integer;
FLowColor : TColor;
FMax : Integer;
FMin : Integer;
FOnCHange : TNotifyEvent;
FValue : Integer;