I made a small change to the TplGnouMeterUnit.pas unit. I was using this control on
a darker image background and found that there was no way to change the color
of the font displayed (black) with the control. Upon looking at the source I added
a "font" property so that the color of the displayed text could be adjusted.
Then just rebuild and you now have font capability.
Now I can see the text!
Indie
unit TplGnouMeterUnit;
published
property Align;
property Caption;
property Visible;
property Value : Double read fValue write SetValue;
property Color;
property Font; <-Added property
property ParentColor;
property ColorFore : Tcolor read fColorFore write SetColorFore;
property ColorBack : Tcolor read fColorBack write SetColorBack;
property SignalUnit : ShortString read fSignalUnit write SetSignalUnit;
property ValueMin : Double read fValueMin write SetValueMin;
property ValueMax : Double read fValueMax write SetValueMax;
property Digits : Byte read fDigits write SetDigits;
property Increment : Double read fIncrement write SetIncrement;
property ShowIncrements : Boolean read fShowIncrements write SetShowIncrements;
property Transparent : Boolean read GetTransparent write SetTransparent;
property GapTop : Word read fGapTop write SetGapTop;
property GapBottom : Word read fGapBottom write SetGapBottom;
property BarThickness : Word read fBarThickness write SetBarThickness;
property MarkerColor : TColor read fMarkerColor write SetMarkerColor;
property ShowMarker : Boolean read fShowMarker write SetShowMarker;
