| Class TOfficeLabel (unit OContrls) |
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);
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;