Mögliche Styles und Schriftgrößen herausfinden

[Garfield]

Ich schreibe einen Text auf den Canvas eines TImage. Für die Einstellungen möchte ich jedoch nicht den TFontDialog verwenden, sondern die Eigenschaften Schriftname, Schriftstyle und Schriftgröße über Comboboxen auswählen. Die Schriftnamen bekomme ich über Screen.Fonts. Dies ist leider nur eine StringList, so dass ich da keine weiteren Informationen erhalte. Die Eigenschaft Style des Vorschaulabels hilft auch nicht weiter, da man dort nur erfahren kann, ob fsBold und fsItalic gesetzt ist oder nicht. Dabei ist unerheblich, ob der Schalter eine Wirkung hat. Bei den Schriftgrößen ist es ähnlich. Man kann zuweisen, was man will.

Kann man die gültigen Styles und Größen abfragen?

An den Rechner ist kein Drucker angeschlossen und kein Druckertreiber instaliiert.

[Niko]

Hi,

die Funktion EnumFontFamilies sollte dir weiterhelfen.

[Garfield]

Stimmt, in der Beschreibung zu NEWTEXTMETRIC scheint das drin zu sein, was ich suche.

[berens]

Siehe auch http://www.delphipraxis.net/internal...ct.php?t=94133

[Garfield]

Danke, werde ich mir ansehen.