Class TLedAuto (unit LedAuto)

Inherits from

TCustomControl

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 : 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


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;



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 : 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


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;