| Class TGnouMeter (unit GnouMeter) |
TGraphicControl
| Constructors |
constructor Create(AOwner : Tcomponent);| Functions |
destructor Destroy ;
procedure CMTextChanged(var Message: TMessage);
procedure Paint;
procedure DrawIncrements;
procedure DrawMarker;
procedure DrawMeterBar;
procedure DrawTopText;
procedure DrawValueMax;
procedure DrawValueMin;
Function GetTransparent : Boolean;
procedure SetBarThickness(val : Word);
procedure SetColorBack(val : TColor);
procedure SetColorFore(val : TColor);
procedure SetDigits(val : Byte);
procedure SetGapBottom(val : Word);
procedure SetGapTop(val : Word);
procedure SetIncrement(val : Double);
procedure SetMarkerColor(val : TColor);
procedure SetShowIncrements(val : Boolean);
procedure SetShowMarker(val : Boolean);
procedure SetSignalUnit(val : ShortString);
procedure SetTransparent(val : Boolean);
procedure SetValue(val : Double);
procedure SetValueMax(val : Double);
procedure SetValueMin(val : Double);
Function ValueToPixels(val : Double) : Integer;| Properties |
property Align :
property BarThickness : Word
property Caption :
property Color :
property ColorBack : Tcolor
property ColorFore : Tcolor
property Digits : Byte
property GapBottom : Word
property GapTop : Word
property Increment : Double
property MarkerColor : TColor
property ShowIncrements : Boolean
property ShowMarker : Boolean
property SignalUnit : ShortString
property Transparent : Boolean
property Value : Double
property ValueMax : Double
property ValueMin : Double
property Visible : | Events |
| Variables |
DisplayValue : String;
DrawStyle : Integer;
fBarThickness : Word;
fColorBack : TColor;
fColorFore : TColor;
fDigits : Byte;
fGapBottom : Word;
fGapTop : Word;
fIncrement : Double;
fMarkerColor : TColor;
fShowIncrements : Boolean;
fShowMarker : Boolean;
fSignalUnit : ShortString;
fValue : Double;
fValueMax : Double;
fValueMin : Double;
LeftMeter : Word;
TheRect : TRect;
TopTextHeight : Word;| Constructors |
constructor Create(AOwner : Tcomponent);Public declarations
| Functions |
destructor Destroy ;
procedure CMTextChanged(var Message: TMessage);
procedure Paint;Protected declarations
procedure DrawIncrements;
procedure DrawMarker;
procedure DrawMeterBar;
procedure DrawTopText;
procedure DrawValueMax;
procedure DrawValueMin;
Function GetTransparent : Boolean;
procedure SetBarThickness(val : Word);
procedure SetColorBack(val : TColor);
procedure SetColorFore(val : TColor);
procedure SetDigits(val : Byte);
procedure SetGapBottom(val : Word);
procedure SetGapTop(val : Word);
procedure SetIncrement(val : Double);
procedure SetMarkerColor(val : TColor);
procedure SetShowIncrements(val : Boolean);
procedure SetShowMarker(val : Boolean);
procedure SetSignalUnit(val : ShortString);
procedure SetTransparent(val : Boolean);
procedure SetValue(val : Double);End of variables used internallly
procedure SetValueMax(val : Double);
procedure SetValueMin(val : Double);
Function ValueToPixels(val : Double) : Integer;| Properties |
property Align : Published declarations
property BarThickness : Word
property Caption :
property Color :
property ColorBack : Tcolor
property ColorFore : Tcolor
property Digits : Byte
property GapBottom : Word
property GapTop : Word
property Increment : Double
property MarkerColor : TColor
property ShowIncrements : Boolean
property ShowMarker : Boolean
property SignalUnit : ShortString
property Transparent : Boolean
property Value : Double
property ValueMax : Double
property ValueMin : Double
property Visible : | Events |
| Variables |
DisplayValue : String;
DrawStyle : Integer;
fBarThickness : Word;
fColorBack : TColor;
fColorFore : TColor;
fDigits : Byte;
fGapBottom : Word;
fGapTop : Word;
fIncrement : Double;
fMarkerColor : TColor;
fShowIncrements : Boolean;
fShowMarker : Boolean;
fSignalUnit : ShortString;
fValue : Double;Private declarations
fValueMax : Double;
fValueMin : Double;
LeftMeter : Word;
TheRect : TRect;
TopTextHeight : Word;Variables used internallly