Class TBSLed (unit BSLed)

Inherits from

TGraphicControl

Constructors


constructor Create( AOwner : TComponent );



Functions

procedure Paint;


procedure Change;


procedure DrawBorder( Bounds : TRect );


procedure DrawCtl3dBorder( Bounds : TRect );


function GetCtl3D : Boolean;


procedure SetBackColor( Value : TColor );


procedure SetBorderStyle( Value : TLedBorderStyle );


procedure SetBorderWidth( Value : TBorderWidth );


procedure SetColor( Value : TColor );


procedure SetCtl3D( Value : Boolean );


procedure SetLight( Value : Boolean );


Properties

property Align :

Inherited Properties & Events

property BackColor : TColor


property BorderStyle : TLedBorderStyle


property BorderWidth : TBorderWidth


property Color : TColor


property Ctl3D : Boolean


property Hint :


property LightOn : Boolean


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


Events

event OnChange : TLedChangeEvent


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBackColor : TColor;


FBorderStyle : TLedBorderStyle;


FBorderWidth : TBorderWidth;


FColor : TColor;


FOn : Boolean;


FOnChange : TLedChangeEvent;



Constructors


constructor Create( AOwner : TComponent );


Functions


procedure Paint;


procedure Change;


procedure DrawBorder( Bounds : TRect );


procedure DrawCtl3dBorder( Bounds : TRect );


function GetCtl3D : Boolean;


procedure SetBackColor( Value : TColor );


procedure SetBorderStyle( Value : TLedBorderStyle );


procedure SetBorderWidth( Value : TBorderWidth );


procedure SetColor( Value : TColor );


procedure SetCtl3D( Value : Boolean );


procedure SetLight( Value : Boolean );


Properties


property Align :

Inherited Properties & Events


property BackColor : TColor


property BorderStyle : TLedBorderStyle


property BorderWidth : TBorderWidth


property Color : TColor


property Ctl3D : Boolean


property Hint :


property LightOn : Boolean


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


Events


event OnChange : TLedChangeEvent


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBackColor : TColor;


FBorderStyle : TLedBorderStyle;


FBorderWidth : TBorderWidth;


FColor : TColor;


FOn : Boolean;


FOnChange : TLedChangeEvent;