| Class TAutoLed (unit AutoLed) |
TGraphicControl
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure ChangeBlink(V : Boolean);
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;| Properties |
property Blink : Boolean
property FalseColor : TColor
property Interval : longint
property TrueColor : TColor
property Value : Boolean| Events |
event OnClick :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnTimer : TNotifyEvent| Variables |
ColorTemp : Boolean;
fBlink : Boolean;
fFalseColor : TColor;
fInterval : longint;
fLedBitmap : Array[0..1] of TBITMAP;
fLedTimer : TTimer;
fOnMouseEnter : TNotifyEvent;
fOnMouseLeave : TNotifyEvent;
fOnTimer : TNotifyEvent;
fTrueColor : TColor;
fValue : Boolean;| Constructors |
constructor Create(AOwner:TComponent);Public declarations
| Functions |
procedure ChangeBlink(V : Boolean);(fValue <> V
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;| Properties |
property Blink : Boolean
property FalseColor : TColor
property Interval : longint
property TrueColor : TColorPublished declarations
property Value : Boolean| Events |
event OnClick :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnTimer : TNotifyEvent| Variables |
ColorTemp : Boolean;
fBlink : Boolean;
fFalseColor : TColor;
fInterval : longint;
fLedBitmap : Array[0..1] of TBITMAP;Protected declarations
fLedTimer : TTimer;
fOnMouseEnter : TNotifyEvent;
fOnMouseLeave : TNotifyEvent;
fOnTimer : TNotifyEvent;
fTrueColor : TColor;
fValue : Boolean;