| Class TOLabel (unit OComps) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure DoEnter;
procedure DoExit;
procedure DrawCaption;
procedure DrawFocus;
procedure DrawLed;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure SetButtonStyle(ADefault: Boolean);
procedure CmDialogChar(var Message: TCMDialogChar);
procedure CmDialogKey(var Message: TCMDialogKey);
procedure CmEnabledChanged(var Message: TWmNoParams);
procedure CmFocusChanged(var Message: TCMFocusChanged);
procedure CmMouseEnter(var Message: TCmMouseEnter);
procedure CmMouseLeave(var Message: TCmMouseLeave);
procedure CmParentColorChanged(var Message: TWMNoParams);
procedure CmParentFontChanged(var Message: TWMNoParams);
procedure CmTextChanged(var Message: TWmNoParams);
procedure CmVisibleChanged(var Message: TWmNoParams);
procedure CnCommand(var Message: TWMCommand);
procedure SetAlignment(Value: TAlignment);
procedure SetDefault(Value: Boolean);
procedure SetLedType(Value: TLedType);
procedure SetMargin(index: integer; Value: TMargin);
procedure SetTabSize(Value: TTabStop);
procedure WMMouseMove(var Message: TWMMouseMove);| Properties |
property Alignment : TAlignment
property Cancel : Boolean
property Caption :
property Default : Boolean
property Enabled :
property Font :
property Hint :
property LedType : TLedType
property MarginLeft : TMargin
property MarginRight : TMargin
property ModalResult : TModalResult
property ParentFont :
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabSize : TTabStop
property TabStop :
property Visible : | Events |
event OnClick :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseEnter : TMouseEnter
event OnMouseLeave : TMouseLeave
event OnMouseMove :
event OnMouseUp : | Variables |
FActive : boolean;
FAlignment : TAlignment;
FCancel : boolean;
FCaptRect : TRect;
FDefault : boolean;
FLed : TBitmap;
FLedType : TLedType;
FMarginLeft : TMargin;
FMarginRight : TMargin;
FModalResult : TModalResult;
FMouseEnter : TMouseEnter;
FMouseLeave : TMouseLeave;
Focused : boolean;
FTabSize : TTabStop;
HasMouse : boolean;
MouseIsDown : boolean;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure DoEnter;
procedure DoExit;
procedure DrawCaption;
procedure DrawFocus;
procedure DrawLed;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure SetButtonStyle(ADefault: Boolean);Beginning of TOLabel code...
procedure CmDialogChar(var Message: TCMDialogChar);
procedure CmDialogKey(var Message: TCMDialogKey);
procedure CmEnabledChanged(var Message: TWmNoParams);
procedure CmFocusChanged(var Message: TCMFocusChanged);
procedure CmMouseEnter(var Message: TCmMouseEnter);
procedure CmMouseLeave(var Message: TCmMouseLeave);
procedure CmParentColorChanged(var Message: TWMNoParams);
procedure CmParentFontChanged(var Message: TWMNoParams);
procedure CmTextChanged(var Message: TWmNoParams);
procedure CmVisibleChanged(var Message: TWmNoParams);
procedure CnCommand(var Message: TWMCommand);
procedure SetAlignment(Value: TAlignment);
procedure SetDefault(Value: Boolean);
procedure SetLedType(Value: TLedType);
procedure SetMargin(index: integer; Value: TMargin);
procedure SetTabSize(Value: TTabStop);
procedure WMMouseMove(var Message: TWMMouseMove);| Properties |
property Alignment : TAlignment
property Cancel : Boolean
property Caption :
property Default : Boolean
property Enabled :
property Font :
property Hint :
property LedType : TLedType
property MarginLeft : TMargin
property MarginRight : TMargin
property ModalResult : TModalResult
property ParentFont :
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabSize : TTabStop
property TabStop :
property Visible : | Events |
event OnClick :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseEnter : TMouseEnter
event OnMouseLeave : TMouseLeave
event OnMouseMove :
event OnMouseUp : | Variables |
FActive : boolean;
FAlignment : TAlignment;
FCancel : boolean;
FCaptRect : TRect;
FDefault : boolean;
FLed : TBitmap;
FLedType : TLedType;
FMarginLeft : TMargin;
FMarginRight : TMargin;
FModalResult : TModalResult;
FMouseEnter : TMouseEnter;
FMouseLeave : TMouseLeave;
Focused : boolean;
FTabSize : TTabStop;
HasMouse : boolean;
MouseIsDown : boolean;