Hallo Sakura,
danke für die schnelle Antwort, geht prima mit FontFaces.
Was ist aber z.B. mit den Styles? Ist ja ein leider Set, und der Status "leer" eines Sets ja auch ein gültiger Status ist (also kein Fett, kein Italic etc.)
Delphi-Quellcode:
FontDialog1.Options := FontDialog1.Options + [fdNoFaceSel] + [fdNoStyleSel];
// Namen auf #0 setzen
FontDialog1.Font.
Name := #0;
if FontDialog1.Execute
then
// wenn name nicht #0 dann
if FontDialog1.Font.
Name <> #0
then
Label1.Caption := FontDialog1.Font.
Name
else
// sonst keine neue Font gewählt
Label1.Caption := '
*wuppdi*';
if Fontdialog1.Font.Style=nil ???
Eine Idee?
Danke Axel