Länge eines Strings in Pixel ermitteln (ohne Komponenten) ?

[turboPASCAL]

http://www.dsdt.info/tutorials/nonvcl/?page=5

...mal was zum abschauen.

// Edit:

Code:

[b]procedure[/b] TD3dText.CalcTextSize;
[b]var[/b] textSize:TSize;
    dc:hdc;
    fnt:TFont;
[b]begin[/b]
  dc:=GetDc(0);
  [color=#ff0000]fnt.Name:=FontName; // Hier geschieht der Fehler ![/color]
  SelectObject(DC, fnt.Handle);
  GetTextExtentPoint32(dc,PChar(text),length(text),textSize);
[b]end;[/b]

Normalerweise müstest Du ja erst fnt := TFont.Create aufrufen damit fnt mit einem Font "gefüllt" wird.


CreateFont