| Class TLedAuto (unit LedAuto) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);------------------------------------------------------------------------------
| Functions |
destructor Destroy;
procedure Click;
procedure Paint;------------------------------------------------------------------------------
procedure WMSize(var Message: TWMSize);
procedure SetLedOffColor(value: TLedOffColors);
procedure SetLedOnColor(value: TLedOnColors);
procedure SetLedStatus(value: TLedStatus);
procedure SetLedType(value: TLedType);| Properties |
property AutoSelectColor : boolean
property Bus : Integer
property Descrip : String
property Group : String
property LedOffColor : TLedOffColors
property LedOnColor : TLedOnColors
property LedStatus : TLedStatus
property LedType : TLedType
property ShowHint :
property Value : Integer| Events |
event OnClick : | Variables |
FAutoSelectColor : boolean;
FBus : Integer;
FDescrip : String;
FGroup : String;
FLedBulbRect : TRect;
FLedIsOn : boolean;
FLedOffColor : TLedOffColors;
FLedOnColor : TLedOnColors;
FLedPiccy : TBitmap;
FLedRect : TRect;
FLedStatus : TLedStatus;
FLedType : TLedType;
FValue : Integer;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
------------------------------------------------------------------------------
| Functions |
destructor Destroy;------------------------------------------------------------------------------
procedure Click;------------------------------------------------------------------------------
procedure Paint;Protected declarations
------------------------------------------------------------------------------
procedure WMSize(var Message: TWMSize);------------------------------------------------------------------------------
procedure SetLedOffColor(value: TLedOffColors);------------------------------------------------------------------------------
procedure SetLedOnColor(value: TLedOnColors);------------------------------------------------------------------------------
procedure SetLedStatus(value: TLedStatus);------------------------------------------------------------------------------
procedure SetLedType(value: TLedType);------------------------------------------------------------------------------
| Properties |
property AutoSelectColor : booleanPublished declarations
property Bus : Integer
property Descrip : String
property Group : String
property LedOffColor : TLedOffColors
property LedOnColor : TLedOnColors
property LedStatus : TLedStatus
property LedType : TLedType
property ShowHint :
property Value : Integer| Events |
event OnClick : | Variables |
FAutoSelectColor : boolean;
FBus : Integer;
FDescrip : String;
FGroup : String;
FLedBulbRect : TRect;
FLedIsOn : boolean;
FLedOffColor : TLedOffColors;
FLedOnColor : TLedOnColors;
FLedPiccy : TBitmap;Private declarations
FLedRect : TRect;
FLedStatus : TLedStatus;
FLedType : TLedType;
FValue : Integer;