Class TLEDLabel (unit GHLED)

Inherits from

TLED

TLEDLabel

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 : 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

Events

Variables

fAlignment : TCaptionAlignment;

Private declarations

fLEDRect : TRect;

Caption to Left,Right,Top or Bottom

fTextRect : TRect;

Rect in which to draw LED


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 : 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


Events


Variables


fAlignment : TCaptionAlignment;

Private declarations


fLEDRect : TRect;

Caption to Left,Right,Top or Bottom


fTextRect : TRect;

Rect in which to draw LED