| Class TAMAdvLed (unit AMAdvLed) |
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;