Windows Fonts in ComboBox laden ?

[thomas2009]

Hallo,

wenn ich den Text formatieren möchte, rufe ich den Fontdialog
Ich möchte aber den gewählten Text schnell formatieren, darum wollte ich die Windows Fonts in ComboBox laden.

[mkinzler]

Schau dir mal Screen.Fonts an

[lbccaleb]

Auch hilfreich dabei, das Delphi beigelieferte Demo (zumindest delphi5-7 sollte es dabei sein, rest weiß ich nicht)
aus dem ordner "Delphi\Demos\Ownerlst" welches die ganzen Schriften in einer ListBox auflistet, und die jeweilige Schrift in Ihrem Design zeichnet!

[thomas2009]

Zitat:

Zitat von mkinzler

Schau dir mal Screen.Fonts an

Ich habe den code in Forum. Dake
//OnCreate :
ComboBox1.Items.Assign(Screen.Fonts);
[/delphi]