Class KrLed (unit Kr_Led)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner:TComponent);



Functions

procedure DoAfterChange;


procedure DoBeforeChange(var AStatus:boolean);


procedure Paint;


procedure CM_PARENTCOLORCHANGED(var Msg:TMessage);


procedure PaintBackGround;


procedure PaintLed;


procedure PaintText;


procedure SetABout(value:string);


procedure SetBorder(value:TBorder);


procedure SetBorderLine(value:TColor);


procedure SetCaption(value:string);


procedure SetCaptionAlign(value:TCAlign);


procedure SetCaptionBackground(value:TColor);


procedure SetCaptionBorder(value:TBorder);


procedure SetCaptionLineColor(value:TColor);


procedure SetCaptionMargin(value:integer);


procedure SetCaptionTransparant(value:boolean);


procedure SetCircle(value:integer);


procedure SetColorBackGround(value:TColor);


procedure SetColorLedOff(value:TColor);


procedure SetColorLedOn(value:TColor);


procedure SetLed(value:TState);


procedure SetLedAlign(value:TAlign);


procedure SetLedBorder(value:TBorder);


procedure SetLedColorLine(value:TColor);


procedure SetLedMargin(value:integer);


procedure SetLedSpot(value:boolean);


procedure SetLedSpotColorOff(value:TColor);


procedure SetLedSpotColorOn(value:TColor);


procedure SetTransparant(value:boolean);


Properties

property About : string


property Border : TBorder


property BorderLine : TColor


property Caption : string


property CaptionAlign : TCAlign


property CaptionBackGround : TColor


property CaptionBorder : TBorder


property CaptionLineColor : TColor


property CaptionMargin : integer


property CaptionTransparant : boolean


property ColorBackGround : TColor


property Enabled :


property Font :


property Hint :


property LedAlign : TAlign


property LedBorder : TBorder


property LedCircle : integer


property LedColorLine : TColor


property LedMargin : integer


property LedOffColor : TColor


property LedOnColor : TColor


property LedSpot : boolean


property LedSpotColorOff : TColor


property LedSpotColorOn : TColor


property LedState : TState


property ParentShowHint :


property ShowHint :


property Tag :


property Transparant : boolean


property Visible :


Events

event OnAfterChange : TAfterChange


event OnBeforeChange : TBeforeChange


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

OnlyPaintLed : boolean;


_About : string;


_AfterChange : TAfterChange;


_BeforeChange : TBeforeChange;


_Border : TBorder;


_BorderLine : TColor;


_Caption : string;


_CaptionAlign : TCAlign;


_CaptionBackGround : TColor;


_CaptionBorder : TBorder;


_CaptionLineColor : TColor;


_CaptionMargin : integer;


_CaptionTransparant : boolean;


_Circle : integer;


_ColorBackGround : TColor;


_ColorLedOff : TColor;


_ColorLedOn : TColor;


_Led : TState;


_LedAlign : TAlign;


_LedBorder : TBorder;


_LedColorLine : TColor;


_LedMargin : integer;


_LedSpot : boolean;


_LedSpotColorOff : TColor;


_LedSpotColorOn : TColor;


_Transparant : boolean;



Constructors


constructor Create(AOwner:TComponent);


Functions


procedure DoAfterChange;


procedure DoBeforeChange(var AStatus:boolean);


procedure Paint;


procedure CM_PARENTCOLORCHANGED(var Msg:TMessage);


procedure PaintBackGround;


procedure PaintLed;


procedure PaintText;


procedure SetABout(value:string);


procedure SetBorder(value:TBorder);


procedure SetBorderLine(value:TColor);


procedure SetCaption(value:string);


procedure SetCaptionAlign(value:TCAlign);


procedure SetCaptionBackground(value:TColor);


procedure SetCaptionBorder(value:TBorder);


procedure SetCaptionLineColor(value:TColor);


procedure SetCaptionMargin(value:integer);


procedure SetCaptionTransparant(value:boolean);


procedure SetCircle(value:integer);


procedure SetColorBackGround(value:TColor);


procedure SetColorLedOff(value:TColor);


procedure SetColorLedOn(value:TColor);


procedure SetLed(value:TState);


procedure SetLedAlign(value:TAlign);


procedure SetLedBorder(value:TBorder);


procedure SetLedColorLine(value:TColor);


procedure SetLedMargin(value:integer);


procedure SetLedSpot(value:boolean);


procedure SetLedSpotColorOff(value:TColor);


procedure SetLedSpotColorOn(value:TColor);


procedure SetTransparant(value:boolean);


Properties


property About : string


property Border : TBorder


property BorderLine : TColor


property Caption : string


property CaptionAlign : TCAlign


property CaptionBackGround : TColor


property CaptionBorder : TBorder


property CaptionLineColor : TColor


property CaptionMargin : integer


property CaptionTransparant : boolean


property ColorBackGround : TColor


property Enabled :


property Font :


property Hint :


property LedAlign : TAlign


property LedBorder : TBorder


property LedCircle : integer


property LedColorLine : TColor


property LedMargin : integer


property LedOffColor : TColor


property LedOnColor : TColor


property LedSpot : boolean


property LedSpotColorOff : TColor


property LedSpotColorOn : TColor


property LedState : TState


property ParentShowHint :


property ShowHint :


property Tag :


property Transparant : boolean


property Visible :


Events


event OnAfterChange : TAfterChange


event OnBeforeChange : TBeforeChange


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


OnlyPaintLed : boolean;


_About : string;


_AfterChange : TAfterChange;


_BeforeChange : TBeforeChange;


_Border : TBorder;


_BorderLine : TColor;


_Caption : string;


_CaptionAlign : TCAlign;


_CaptionBackGround : TColor;


_CaptionBorder : TBorder;


_CaptionLineColor : TColor;


_CaptionMargin : integer;


_CaptionTransparant : boolean;


_Circle : integer;


_ColorBackGround : TColor;


_ColorLedOff : TColor;


_ColorLedOn : TColor;


_Led : TState;


_LedAlign : TAlign;


_LedBorder : TBorder;


_LedColorLine : TColor;


_LedMargin : integer;


_LedSpot : boolean;


_LedSpotColorOff : TColor;


_LedSpotColorOn : TColor;


_Transparant : boolean;