Class TALed (unit ALed)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner:TComponent);

Public declarations


Functions

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;


Properties

property Blink : Boolean


property FalseColor : TColor


property Interval : longint


property LEDStyle : TLEDStyle


property ShowHint :


property TrueColor : TColor

Published 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

fLEDStyle : TLEDStyle;


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 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;


Properties


property Blink : Boolean


property FalseColor : TColor


property Interval : longint


property LEDStyle : TLEDStyle


property ShowHint :


property TrueColor : TColor

Published 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


fLEDStyle : TLEDStyle;


fLedTimer : TTimer;


fOnMouseEnter : TNotifyEvent;


fOnMouseLeave : TNotifyEvent;


fOnTimer : TNotifyEvent;


fTrueColor : TColor;


fValue : Boolean;