Inherits from
TGraphicControl
constructor Create(AOwner:TComponent);
- Public declarations
procedure ChangeBlink(V : Boolean);
(fValue <> V
procedure ChangeStyle(V : TLEDStyle);
procedure ChangeValue(V : Boolean);
procedure CreateLedBitmap;
destructor Destroy;
procedure FreeLedBitmap;
procedure ResetLedTimer;
procedure SetFalseColor(V : TColor);
procedure SetInterval(V : longint);
procedure SetLedTimer;
procedure SetToFalseColor;
procedure SetToTrueColor;
procedure SetTrueColor(V : TColor);
procedure CMMouseEnter(var Message:TMessage);
procedure CMMouseLeave(var Message:TMessage);
procedure OnLedTimer(Sender : TObject);
procedure Paint;
property Blink : Boolean
property FalseColor : TColor
property Interval : longint
property LEDStyle : TLEDStyle
property ShowHint :
property TrueColor : TColor
Published declarations
property Value : Boolean
event OnClick :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnTimer : TNotifyEvent
ColorTemp : Boolean;
fBlink : Boolean;
fFalseColor : TColor;
fInterval : longint;
fLedBitmap : Array[0..1] of TBITMAP;
Protected declarations
fLEDStyle : TLEDStyle;
fLedTimer : TTimer;
fOnMouseEnter : TNotifyEvent;
fOnMouseLeave : TNotifyEvent;
fOnTimer : TNotifyEvent;
fTrueColor : TColor;
fValue : Boolean;
constructor Create(AOwner:TComponent);
Public declarations
procedure ChangeBlink(V : Boolean);
(fValue <> V
procedure ChangeStyle(V : TLEDStyle);
procedure ChangeValue(V : Boolean);
procedure CreateLedBitmap;
destructor Destroy;
procedure FreeLedBitmap;
procedure ResetLedTimer;
procedure SetFalseColor(V : TColor);
procedure SetInterval(V : longint);
procedure SetLedTimer;
procedure SetToFalseColor;
procedure SetToTrueColor;
procedure SetTrueColor(V : TColor);
procedure CMMouseEnter(var Message:TMessage);
procedure CMMouseLeave(var Message:TMessage);
procedure OnLedTimer(Sender : TObject);
procedure Paint;
property Blink : Boolean
property FalseColor : TColor
property Interval : longint
property LEDStyle : TLEDStyle
property ShowHint :
property TrueColor : TColor
Published declarations
property Value : Boolean
event OnClick :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnTimer : TNotifyEvent
ColorTemp : Boolean;
fBlink : Boolean;
fFalseColor : TColor;
fInterval : longint;
fLedBitmap : Array[0..1] of TBITMAP;
Protected declarations
fLEDStyle : TLEDStyle;
fLedTimer : TTimer;
fOnMouseEnter : TNotifyEvent;
fOnMouseLeave : TNotifyEvent;
fOnTimer : TNotifyEvent;
fTrueColor : TColor;
fValue : Boolean;