Class TLed (unit AMLed)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Draw phong when Ctl3D and lsRndRect of lsRound.


Functions

destructor Destroy;


procedure Loaded;


procedure Paint;


procedure TimerTimer(Sender: TObject);


procedure SetAlignment(value: TMyAlignment);


procedure SetBorderStyle(value: TBorderStyle);


procedure SetBorderWidth(value: TBrdrWidth);


procedure SetCaption(value: TCaption);


procedure SetColor(index: integer; value: TColor);


procedure SetCtl3D(value: boolean);


procedure SetFont(value: TFont);


procedure SetInterval(value: TInterval);


procedure SetLedDimension(index: integer; value: TLedDimension);


procedure SetLedOn(value: boolean);


procedure SetLedShape(value: TLedShape);


procedure SetMargin(value: TMargin);


procedure SetPhongSize(value: TBrdrWidth);


Properties

property About : TAboutProperty


property Alignment : TMyAlignment


property BorderColor : TColor


property BorderStyle : TBorderStyle


property BorderWidth : TBrdrWidth


property Caption : TCaption


property Ctl3D : boolean


property Font : TFont


property Interval : TInterval


property LedHeight : TLedDimension


property LedOn : boolean


property LedShape : TLedShape


property LedWidth : TLedDimension


property Margin : TMargin


property OffColor : TColor


property PhongSize : TBrdrWidth


property ShowHint :


Events

event OnChange : TOnOff


event OnColor : TColor


Variables

CaptionOrigin : TPoint;


FAbout : TAboutProperty;


FAlignment : TMyAlignment;


FBorderColor : TColor;


FBorderStyle : TBorderStyle;


FBorderWidth : TBrdrWidth;


FCaption : TCaption;


FCtl3D : boolean;


FFont : TFont;


FInterval : TInterval;


FLedHeight : TLedDimension;


FLedOn : boolean;


FLedShape : TLedShape;


FLedWidth : TLedDimension;


FMargin : TMargin;


FOffColor : TColor;


FOnColor : TColor;


FOnOff : TOnOff;


FPhongSize : TBrdrWidth;


FTimer : TTimer;


LedOrigin : TPoint;


LedRect : TRect;



Constructors


constructor Create(AOwner: TComponent);

Draw phong when Ctl3D and lsRndRect of lsRound...


Functions


destructor Destroy;


procedure Loaded;


procedure Paint;


procedure TimerTimer(Sender: TObject);


procedure SetAlignment(value: TMyAlignment);


procedure SetBorderStyle(value: TBorderStyle);


procedure SetBorderWidth(value: TBrdrWidth);


procedure SetCaption(value: TCaption);


procedure SetColor(index: integer; value: TColor);


procedure SetCtl3D(value: boolean);


procedure SetFont(value: TFont);


procedure SetInterval(value: TInterval);


procedure SetLedDimension(index: integer; value: TLedDimension);


procedure SetLedOn(value: boolean);


procedure SetLedShape(value: TLedShape);


procedure SetMargin(value: TMargin);


procedure SetPhongSize(value: TBrdrWidth);


Properties


property About : TAboutProperty


property Alignment : TMyAlignment


property BorderColor : TColor


property BorderStyle : TBorderStyle


property BorderWidth : TBrdrWidth


property Caption : TCaption


property Ctl3D : boolean


property Font : TFont


property Interval : TInterval


property LedHeight : TLedDimension


property LedOn : boolean


property LedShape : TLedShape


property LedWidth : TLedDimension


property Margin : TMargin


property OffColor : TColor


property PhongSize : TBrdrWidth


property ShowHint :


Events


event OnChange : TOnOff


event OnColor : TColor


Variables


CaptionOrigin : TPoint;


FAbout : TAboutProperty;


FAlignment : TMyAlignment;


FBorderColor : TColor;


FBorderStyle : TBorderStyle;


FBorderWidth : TBrdrWidth;


FCaption : TCaption;


FCtl3D : boolean;


FFont : TFont;


FInterval : TInterval;


FLedHeight : TLedDimension;


FLedOn : boolean;


FLedShape : TLedShape;


FLedWidth : TLedDimension;


FMargin : TMargin;


FOffColor : TColor;


FOnColor : TColor;


FOnOff : TOnOff;


FPhongSize : TBrdrWidth;


FTimer : TTimer;


LedOrigin : TPoint;


LedRect : TRect;