Schriftarten auslesen

[Bääm]

hi!

Kann man die Schriftarten auslesen und dann in eine Combobox schreiben, wie es bei z.b bei Word etc. ist ? Und wenn es geht, könnt ihr mir dafür den Code liefern?


thx für antworten & hilfe

[Martin K]

ComboBox1.Items := Screen.Fonts; so sollte es gehen

[Bääm]

Perfekt ^^ thx vielmals ^^

[himitsu]

Zitat von Martin K:

ComboBox1.Items := Screen.Fonts; so sollte es gehen

und wenn du noch die Schriftarten sehen willst (nicht nur deren Namen), dann könnte man das OwnerDarw-Ereignis (oder wie dat nochma hieß) der ComboBox verwenden.

Aber gibt's da nicht schon eine fertige komponente in Delphi?
Na ja, zumindestens in den JEDIs gibt es eine und die zeigt auf jeden Fall auch die Schriftarten mit ihrer eigenen Schrift an.

[Martin K]

Zitat von himitsu:

Aber gibt's da nicht schon eine fertige komponente in Delphi?
Na ja, zumindestens in den JEDIs gibt es eine und die zeigt auf jeden Fall auch die Schriftarten mit ihrer eigenen Schrift an.

Ich glaub bei Delphi is ne Demo dabei, wo die Schriftarten auch in ihrer Schriftart dargestellt werden.
Guck einfach mal im Demo-Ordner in deinem Delphi-Verzeichnis.

//Edit:
Hier ist die Demo "fontdraw":
BDS: Demos\DelphiWin32\VCLWin32\OwnerList\
Delphi7: Demos\Ownerlst\

Wie es bei anderen Delphi-Versionen ist kann ich dir leider nicht sagen.
Aber falls da die Demo auch vorhanden ist, wird sich der Pfad wohl nicht allzu sehr von diesen unterscheiden.

[Bääm]

ich bins nochmal ^^

Gibts das gleiche auch für Farben ?

[Martin K]

Farben?

Meinst Du eine TColorBox ?
Oder nimm doch gleich einen TFontDialog, da hast Du alles was Du brauchst, um Schrift zu ändern.

[Bääm]

ahh ja die colorbox ! danke