Class TOfficeLabel (unit OContrls)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Click;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure WMLButtonDblClick(var Message: TWMLButtonDown);


procedure WMMButtonDblClick(var Message: TWMMButtonDown);


procedure WMMouseMove(var Message: TWMMouseMove);


procedure WMRButtonDblClick(var Message: TWMRButtonDown);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure SetCaption(value: TCaption);

Here starts the TOfficeLabel-code

procedure SetEnabled(value: boolean);


procedure SetFont(value: TFont);


procedure SetLabelColor(value: TColor);


procedure SetLEDType(value: TLEDType);


procedure SetTransparent(value: boolean);


Properties

property Caption : TCaption


property Enabled : boolean


property Font : TFont


property LabelColor : TColor


property LEDType : TLEDType


property Transparent : boolean


Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


Variables

FCaption : TCaption;


FEnabled : boolean;


FFont : TFont;


FGlyph : TBitmap;


FLabelColor : TColor;


FLedType : TLEDType;


FMouseEnter : TNotifyEvent;


FMouseLeave : TNotifyEvent;


FTransparent : boolean;


HasMouse : boolean;


IsClicked : boolean;


IsMouseDown : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Click;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure WMLButtonDblClick(var Message: TWMLButtonDown);


procedure WMMButtonDblClick(var Message: TWMMButtonDown);


procedure WMMouseMove(var Message: TWMMouseMove);


procedure WMRButtonDblClick(var Message: TWMRButtonDown);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure SetCaption(value: TCaption);

Here starts the TOfficeLabel-code


procedure SetEnabled(value: boolean);


procedure SetFont(value: TFont);


procedure SetLabelColor(value: TColor);


procedure SetLEDType(value: TLEDType);


procedure SetTransparent(value: boolean);


Properties


property Caption : TCaption


property Enabled : boolean


property Font : TFont


property LabelColor : TColor


property LEDType : TLEDType


property Transparent : boolean


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


Variables


FCaption : TCaption;


FEnabled : boolean;


FFont : TFont;


FGlyph : TBitmap;


FLabelColor : TColor;


FLedType : TLEDType;


FMouseEnter : TNotifyEvent;


FMouseLeave : TNotifyEvent;


FTransparent : boolean;


HasMouse : boolean;


IsClicked : boolean;


IsMouseDown : boolean;