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;