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;