Class TZCustomLabel (unit z_label)

Inherits from

TwinControl

Constructors


constructor Create(AOwner: TComponent);

save current hDC to avoid sideeffects


Functions

destructor destroy;


procedure Loaded;


procedure Paintlabel(adc:hdc);

restore normal size

procedure paintwindow(dc:hdc);


procedure SetAutoSize(Value: Boolean);


procedure ShowText(adc:hdc;pchar1:pchar;len1:integer);


procedure AdjustBounds;


procedure CMTextChanged(var Message: TMessage);


procedure DoOutspecialtext(adc:hdc;s:string);


procedure DoOutText(adc:hdc;s:string);

copy data from font1-2 to build desired logicalfont

procedure SetAlignment(Value: TAlignment);


procedure setdirection(direction1:tdirection);

confused at size=0

procedure setfont(nr:integer;afont:tzfont);


procedure SetLayout(Value: TTextLayout);


procedure setlogfont(adc:hdc;fontnr:tzfont);

destroy new font

procedure showsubscript(adc:hdc;s:string);


procedure WMPaint(var Message: TWMPaint);


Properties

property Direction : tdirection


property Font1 : tzfont


property Font2 : tzfont


property Layout : TTextLayout


property Alignment : TAlignment


property AutoSize : Boolean


Events

Variables

FAlignment : TAlignment;


FAutoSize : Boolean;


fdirection : tdirection;


Ffont1 : tzfont;


Ffont2 : tzfont;


ffontheight : integer;


FLayout : TTextLayout;


flogfont : tlogfont;


maxheight : integer;


resizing : Boolean;


Xsize : integer;


Ysize : integer;



Constructors


constructor Create(AOwner: TComponent);

save current hDC to avoid sideeffects


Functions


destructor destroy;


procedure Loaded;


procedure Paintlabel(adc:hdc);

restore normal size


procedure paintwindow(dc:hdc);


procedure SetAutoSize(Value: Boolean);


procedure ShowText(adc:hdc;pchar1:pchar;len1:integer);


procedure AdjustBounds;


procedure CMTextChanged(var Message: TMessage);


procedure DoOutspecialtext(adc:hdc;s:string);


procedure DoOutText(adc:hdc;s:string);

copy data from font1-2 to build desired logicalfont


procedure SetAlignment(Value: TAlignment);


procedure setdirection(direction1:tdirection);

confused at size=0


procedure setfont(nr:integer;afont:tzfont);


procedure SetLayout(Value: TTextLayout);


procedure setlogfont(adc:hdc;fontnr:tzfont);

destroy new font


procedure showsubscript(adc:hdc;s:string);


procedure WMPaint(var Message: TWMPaint);


Properties


property Direction : tdirection


property Font1 : tzfont


property Font2 : tzfont


property Layout : TTextLayout


property Alignment : TAlignment


property AutoSize : Boolean


Events


Variables


FAlignment : TAlignment;


FAutoSize : Boolean;


fdirection : tdirection;


Ffont1 : tzfont;


Ffont2 : tzfont;


ffontheight : integer;


FLayout : TTextLayout;


flogfont : tlogfont;


maxheight : integer;


resizing : Boolean;


Xsize : integer;


Ysize : integer;