| Class TZCustomLabel (unit z_label) |
TwinControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor destroy;
procedure Loaded;
procedure Paintlabel(adc:hdc);
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);
procedure SetAlignment(Value: TAlignment);
procedure setdirection(direction1:tdirection);
procedure setfont(nr:integer;afont:tzfont);
procedure SetLayout(Value: TTextLayout);
procedure setlogfont(adc:hdc;fontnr:tzfont);
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;