Class TAMAdvLed (unit AMAdvLed)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure CMParentColorChanged(var Message: TWMNoParams);


procedure Loaded;


procedure Paint;


procedure SetBorderStyle(Value: TBorder);


procedure SetColor(index: integer; Value: TColor);


procedure SetCtl3D(Value: boolean);


procedure SetLedOn(Value: boolean);


procedure SetLedSrc;


procedure SetLedType(Value: TLedType);


Properties

property BorderStyle : TBorder


property ColorOff : TColor


property ColorOn : TColor


property Ctl3D : boolean


property LedOn : boolean


property LedType : TLedType


Events

event OnClick :


event OnLedStateChanged : TLedStateChanged


event OnMouseDown :


event OnMouseUp :


Variables

FBorderStyle : TBorder;


FColorOff : TColor;


FColorOn : TColor;


FCtl3D : boolean;


FLed : TBitmap;


FLedOn : boolean;


FLedSrc : TBitmap;


FLedStateChanged : TLedStateChanged;


FLedType : TLedType;


FNumSwitch : LongInt;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure CMParentColorChanged(var Message: TWMNoParams);


procedure Loaded;


procedure Paint;


procedure SetBorderStyle(Value: TBorder);


procedure SetColor(index: integer; Value: TColor);


procedure SetCtl3D(Value: boolean);


procedure SetLedOn(Value: boolean);


procedure SetLedSrc;


procedure SetLedType(Value: TLedType);


Properties


property BorderStyle : TBorder


property ColorOff : TColor


property ColorOn : TColor


property Ctl3D : boolean


property LedOn : boolean


property LedType : TLedType


Events


event OnClick :


event OnLedStateChanged : TLedStateChanged


event OnMouseDown :


event OnMouseUp :


Variables


FBorderStyle : TBorder;


FColorOff : TColor;


FColorOn : TColor;


FCtl3D : boolean;


FLed : TBitmap;


FLedOn : boolean;


FLedSrc : TBitmap;


FLedStateChanged : TLedStateChanged;


FLedType : TLedType;


FNumSwitch : LongInt;