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

[Thomas233]

Hallo,

kann mir einer von euch vielleicht verraten wie man die Länge eines Strings in Pixel errechnen kann (bei einem vorgegebenem Font-Namen) ?

Ich greife dabei auf keine Komponenten zurück, d.h. meine Anwendung ist eine reine NonVCL-Anwendung (ansonsten hätte ich schon eine Lösung gefunden).

Für einen Tipp wäre ich sehr dankbar.

Vielen Dank im Vorraus !

Liebe Grüße,
Thomas

[Phistev]

Guck mal (im PSDK) nach GetTextExtentPoint32

/edit: Hab ich aus'm Delphi05-Quelltext, Graphics.pas:2615

[Thomas233]

Hallo,

vielen Dank, das dürfte weiterhelfen.

Das einzige Problem ist noch das ich nicht weiss wie ich eine Font (von der ich nur den Namen als String kenne) festlege der verwendet werden soll.

Momentan erledige ich dies so:

Delphi-Quellcode:

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

In der zweiten Zeile der Prozedur ("fnt.Name:=FontName") jedoch steigt Delphi mit einer Zugriffsverletzung aus. "FontName" ist der String in dem der Name der zu verwendenden Font drinnen steht.

Wie kann ich nun am besten die Font festlegen ?

Vielen Dank nochmals im Vorraus !

Liebe Grüße,
Thomas

[Aenogym]

hi,

der volsltädigkeit halber möchte icha uch noch TCanvas.TextWidth() erwähnen ;)

aenogym

[Phistev]

Zitat:

Zitat von Thomas233

Ich greife dabei auf keine Komponenten zurück, d.h. meine Anwendung ist eine reine NonVCL-Anwendung (ansonsten hätte ich schon eine Lösung gefunden).

Zitat:

Zitat von Aenogym

der volsltädigkeit halber möchte icha uch noch TCanvas.TextWidth() erwähnen

:roll:

[turboPASCAL]

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

...mal was zum abschauen. :wink:

// 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

[Olli]

Zitat:

Zitat von turboPASCAL

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

...mal was zum abschauen. :wink:

Igitt. Lieber nicht. Das sind Jugendsünden ... :oops:

[Thomas233]

Oooppsss....schlim sowas, wie konnte ich DAS nur vergessen *indenbodenschäm* !?! :oops: :oops: :oops:

Es scheitert halt immer am einfachsten ;-)

Vielen vielen Dank !

Liebe Grüße,
Thomas