Class THeadLabel (unit headlbl)

Inherits from

TCustomLabel

define new component

Constructors


constructor Create(AOwner: TComponent);

Public-Deklarationen

create new component-instance & set defaults



Functions

destructor Destroy;

destroy new component & free memory allocations (used by the glyph

procedure Paint;

Protected-Deklarationen

paint component


procedure SetFontColor(Value: TColor);

set fontcolor

procedure SetGlyph(Value: TBitmap);

set glyph

procedure SetLeftSpacing(Value: Byte);

set left spacing

procedure SetNumGlyphs(Value: TNumGlyphs);

set numglyphs

procedure SetRightSpacing(Value: Byte);

set right spacing

procedure SetSubCaption(Value: String);

set subcaption

procedure SetSubEllipsis(Value: Boolean);

set subellipsis

procedure SetSubStyle(Value: TFontStyles);

set substyle

Properties

property Caption :


property Color :


property FocusControl :


property FontColor : TColor


property Glyph : TBitmap


property LeftSpacing : Byte

Published-Deklarationen

property NumGlyphs : TNumGlyphs


property ParentColor :


property ParentShowHint :


property PopupMenu :


property RightSpacing : Byte


property ShowHint :


property SubCaption : String


property SubEllipsis : Boolean


property SubStyle : TFontStyles


Events

event OnClick :


event OnDblClick :


Variables

FFontColor : TColor;


FGlyph : TBitmap;


FLeftSpacing : Byte;

Private-Deklarationen

FNumGlyphs : TNumGlyphs;


FRightSpacing : Byte;


FSubCaption : String;


FSubEllipsis : Boolean;


FSubStyle : TFontStyles;



Constructors


constructor Create(AOwner: TComponent);

Public-Deklarationen

create new component-instance & set defaults


Functions


destructor Destroy;

destroy new component & free memory allocations (used by the glyph


procedure Paint;

Protected-Deklarationen

paint component


procedure SetFontColor(Value: TColor);

set fontcolor


procedure SetGlyph(Value: TBitmap);

set glyph


procedure SetLeftSpacing(Value: Byte);

set left spacing


procedure SetNumGlyphs(Value: TNumGlyphs);

set numglyphs


procedure SetRightSpacing(Value: Byte);

set right spacing


procedure SetSubCaption(Value: String);

set subcaption


procedure SetSubEllipsis(Value: Boolean);

set subellipsis


procedure SetSubStyle(Value: TFontStyles);

set substyle


Properties


property Caption :


property Color :


property FocusControl :


property FontColor : TColor


property Glyph : TBitmap


property LeftSpacing : Byte

Published-Deklarationen


property NumGlyphs : TNumGlyphs


property ParentColor :


property ParentShowHint :


property PopupMenu :


property RightSpacing : Byte


property ShowHint :


property SubCaption : String


property SubEllipsis : Boolean


property SubStyle : TFontStyles


Events


event OnClick :


event OnDblClick :


Variables


FFontColor : TColor;


FGlyph : TBitmap;


FLeftSpacing : Byte;

Private-Deklarationen


FNumGlyphs : TNumGlyphs;


FRightSpacing : Byte;


FSubCaption : String;


FSubEllipsis : Boolean;


FSubStyle : TFontStyles;