Class TUhwLabel (unit UhwLabel) |
Inherits from
tgraphiccontrol
constructor Create(AOwner: TComponent);
- -----------------------------------------------------------------------------} {------------------- TUHOLABEL ------------------------------------} {-----------------------------------------------------------------------------
procedure AdjustBounds;
-----------------------------------------------------------------------------
procedure CMMouseEnter(var msg: TMessage);
-----------------------------------------------------------------------------
procedure CMMouseLeave(var msg: TMessage);
-----------------------------------------------------------------------------
procedure CMTextChanged(var Message: TMessage);
-----------------------------------------------------------------------------
function GetTransparent: Boolean;
-----------------------------------------------------------------------------
procedure MyPaint (doTxt,doUnderline:boolean);
-----------------------------------------------------------------------------
procedure Paint;
-----------------------------------------------------------------------------
procedure SetAlignmentX (Value: TAlignment);
-----------------------------------------------------------------------------
procedure SetAlignmentY (Value: TAlignmentY);
-----------------------------------------------------------------------------
procedure SetAutoSize(Value: Boolean);
-----------------------------------------------------------------------------
procedure SetFont(Value: TUhwFont);
-----------------------------------------------------------------------------
procedure SetPal (Value: TUhwPal);
-----------------------------------------------------------------------------
procedure SetPalFrom(Value: TColor);
-----------------------------------------------------------------------------
procedure SetPalMono(Value: TColor);
-----------------------------------------------------------------------------
procedure SetPalTo (Value: TColor);
-----------------------------------------------------------------------------
procedure SetPalTyp (Value: TLabelPal);
-----------------------------------------------------------------------------
procedure SetTransparent(Value: Boolean);
-----------------------------------------------------------------------------
procedure SetUnderline (Value: Boolean);
-----------------------------------------------------------------------------
procedure SetUnderlineColor (Value: TColor);
-----------------------------------------------------------------------------
procedure SetUnderlineY (Value: Shortint);
-----------------------------------------------------------------------------
procedure SetVisible (Value: Boolean);
-----------------------------------------------------------------------------
procedure SetWordWrap (Value: boolean);
-----------------------------------------------------------------------------
property Align :
property AlignmentX : TAlignment
property AlignmentY : TAlignmentY
property AutoSize : Boolean
property Caption :
property Color :
property DragCursor :
property DragMode :
property Enabled :
property Font : tuhwfont
property PaletteFrom : TColor
property PaletteMonoColor : TColor
property PaletteTo : TColor
property PaletteType : TLabelPal
property ParentColor :
property ParentShowHint :
property ShowHint :
property Transparent : Boolean
property UhwPal : TUhwPal
property Underline : Boolean
property UnderlineColor : TColor
property UnderlineY : Shortint
property Visible : boolean
property WordWrap : Boolean
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnMouseMove :
event OnMouseUp :
FAlignmentX : TAlignment;
FAlignmentY : TAlignmentY;
fAutoSize : boolean;
ffont : TUhwFont;
FOnMouseEnter : TNotifyEvent;
FOnMouseLeave : TNotifyEvent;
fPal : TUhwPal;
FPalFrom : TColor;
FPalMono : TColor;
FPalTo : TColor;
FPalTyp : TLabelPal;
fUnderline : boolean;
fUnderlineColor : TColor;
fUnderlineY : shortint;
fVisible : boolean;
FWordWrap : boolean;
constructor Create(AOwner: TComponent);
-----------------------------------------------------------------------------} {------------------- TUHOLABEL ------------------------------------} {-----------------------------------------------------------------------------
procedure AdjustBounds;
-----------------------------------------------------------------------------
procedure CMMouseEnter(var msg: TMessage);
-----------------------------------------------------------------------------
procedure CMMouseLeave(var msg: TMessage);
-----------------------------------------------------------------------------
procedure CMTextChanged(var Message: TMessage);
-----------------------------------------------------------------------------
function GetTransparent: Boolean;
-----------------------------------------------------------------------------
procedure MyPaint (doTxt,doUnderline:boolean);
-----------------------------------------------------------------------------
procedure Paint;
-----------------------------------------------------------------------------
procedure SetAlignmentX (Value: TAlignment);
-----------------------------------------------------------------------------
procedure SetAlignmentY (Value: TAlignmentY);
-----------------------------------------------------------------------------
procedure SetAutoSize(Value: Boolean);
-----------------------------------------------------------------------------
procedure SetFont(Value: TUhwFont);
-----------------------------------------------------------------------------
procedure SetPal (Value: TUhwPal);
-----------------------------------------------------------------------------
procedure SetPalFrom(Value: TColor);
-----------------------------------------------------------------------------
procedure SetPalMono(Value: TColor);
-----------------------------------------------------------------------------
procedure SetPalTo (Value: TColor);
-----------------------------------------------------------------------------
procedure SetPalTyp (Value: TLabelPal);
-----------------------------------------------------------------------------
procedure SetTransparent(Value: Boolean);
-----------------------------------------------------------------------------
procedure SetUnderline (Value: Boolean);
-----------------------------------------------------------------------------
procedure SetUnderlineColor (Value: TColor);
-----------------------------------------------------------------------------
procedure SetUnderlineY (Value: Shortint);
-----------------------------------------------------------------------------
procedure SetVisible (Value: Boolean);
-----------------------------------------------------------------------------
procedure SetWordWrap (Value: boolean);
-----------------------------------------------------------------------------
property Align :
property AlignmentX : TAlignment
property AlignmentY : TAlignmentY
property AutoSize : Boolean
property Caption :
property Color :
property DragCursor :
property DragMode :
property Enabled :
property Font : tuhwfont
property PaletteFrom : TColor
property PaletteMonoColor : TColor
property PaletteTo : TColor
property PaletteType : TLabelPal
property ParentColor :
property ParentShowHint :
property ShowHint :
property Transparent : Boolean
property UhwPal : TUhwPal
property Underline : Boolean
property UnderlineColor : TColor
property UnderlineY : Shortint
property Visible : boolean
property WordWrap : Boolean
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnMouseMove :
event OnMouseUp :
FAlignmentX : TAlignment;
FAlignmentY : TAlignmentY;
fAutoSize : boolean;
ffont : TUhwFont;
FOnMouseEnter : TNotifyEvent;
FOnMouseLeave : TNotifyEvent;
fPal : TUhwPal;
FPalFrom : TColor;
FPalMono : TColor;
FPalTo : TColor;
FPalTyp : TLabelPal;
fUnderline : boolean;
fUnderlineColor : TColor;
fUnderlineY : shortint;
fVisible : boolean;
FWordWrap : boolean;