Class TLEDLabel (unit GHLED) |
Inherits from
TLED
TLEDLabel
constructor Create(AOwner: TComponent);
- Public declarations
LEDLabel
procedure Paint;
Protected declarations
procedure PaintCaption;
Paint the LED in fLEDRect bounds
procedure PaintLED;
Paint the Caption text
procedure CM_TEXTCHANGED(var Msg: TMessage);
Respond to changes in Caption text
function GetTransparent: Boolean;
Force LED and Caption rectangle re-calculations
procedure SetAlignment(const Value: TCaptionAlignment);
Rect in which to draw Caption if not Enabled} { Draw the Caption
procedure SetTransparent(Value: Boolean);
Caption text transparent?
procedure WMWINDOWPOSCHANGED(var Msg: TWMWindowPosChanged);
Re-calculate LED and Caption rectangles when LEDLabel size changes
property Alignment : TCaptionAlignment
Publish the PopupMenu property
property Caption :
Published declarations
property Font :
Publish the Caption property
property Height :
Transparent Caption area
property ParentFont :
Publish the Font property
property PopupMenu :
Publish the ParentFont property
property Transparent : Boolean
Caption Alignment
property Width :
New default values for height
fAlignment : TCaptionAlignment;
Private declarations
fLEDRect : TRect;
Caption to Left,Right,Top or Bottom
fTextRect : TRect;
Rect in which to draw LED
constructor Create(AOwner: TComponent);
Public declarations
LEDLabel
procedure Paint;
Protected declarations
procedure PaintCaption;
Paint the LED in fLEDRect bounds
procedure PaintLED;
Paint the Caption text
procedure CM_TEXTCHANGED(var Msg: TMessage);
Respond to changes in Caption text
function GetTransparent: Boolean;
Force LED and Caption rectangle re-calculations
procedure SetAlignment(const Value: TCaptionAlignment);
Rect in which to draw Caption
if not Enabled} { Draw the Caption
procedure SetTransparent(Value: Boolean);
Caption text transparent?
procedure WMWINDOWPOSCHANGED(var Msg: TWMWindowPosChanged);
Re-calculate LED and Caption rectangles when LEDLabel size changes
property Alignment : TCaptionAlignment
Publish the PopupMenu property
property Caption :
Published declarations
property Font :
Publish the Caption property
property Height :
Transparent Caption area
property ParentFont :
Publish the Font property
property PopupMenu :
Publish the ParentFont property
property Transparent : Boolean
Caption Alignment
property Width :
New default values for height
fAlignment : TCaptionAlignment;
Private declarations
fLEDRect : TRect;
Caption to Left,Right,Top or Bottom
fTextRect : TRect;
Rect in which to draw LED