Class TLedAuto (unit LedAuto) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- Public declarations
------------------------------------------------------------------------------
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);
------------------------------------------------------------------------------
property AutoSelectColor : boolean
Published 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
event OnClick :
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;
constructor Create(AOwner: TComponent);
Public declarations
------------------------------------------------------------------------------
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);
------------------------------------------------------------------------------
property AutoSelectColor : boolean
Published 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
event OnClick :
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;