| Class TLEDLabel (unit GHLED) |
TLEDLabel
| Constructors |
constructor Create(AOwner: TComponent);LEDLabel
| Functions |
procedure Paint;
procedure PaintCaption;
procedure PaintLED;
procedure CM_TEXTCHANGED(var Msg: TMessage);
function GetTransparent: Boolean;
procedure SetAlignment(const Value: TCaptionAlignment);if not Enabled} { Draw the Caption
procedure SetTransparent(Value: Boolean);
procedure WMWINDOWPOSCHANGED(var Msg: TWMWindowPosChanged);| Properties |
property Alignment : TCaptionAlignment
property Caption :
property Font :
property Height :
property ParentFont :
property PopupMenu :
property Transparent : Boolean
property Width : | Events |
| Variables |
fAlignment : TCaptionAlignment;
fLEDRect : TRect;
fTextRect : TRect;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
LEDLabel
| Functions |
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
| Properties |
property Alignment : TCaptionAlignmentPublish 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 : BooleanCaption Alignment
property Width : New default values for height
| Events |
| Variables |
fAlignment : TCaptionAlignment;Private declarations
fLEDRect : TRect;Caption to Left,Right,Top or Bottom
fTextRect : TRect;Rect in which to draw LED