Class TGnouMeter (unit GnouMeter)

Inherits from

TGraphicControl

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


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