Einzelnen Beitrag anzeigen

HannsW

Registriert seit: 6. Jan 2010
26 Beiträge
 
#1

TFontDialog: wie einzelne Style-Typen extrahieren ?

  Alt 24. Jan 2010, 18:52
Guten Abend.
Bevor ich einen Fontdialog aufrufe setze ich u.a. auch den Style
Delphi-Quellcode:
     FontDialog1.Font.Style:= [];
     if fsBold1 then
          FontDialog1.Font.Style:= FontDialog1.Font.Style + [fsBold];
     if fsItalic1 then
          FontDialog1.Font.Style:= FontDialog1.Font.Style + [fsItalic];
      ...
Wie kann ich jetzt nach Execute feststellen, welche Style-Art gesetzt wurde?
Delphi-Quellcode:
    if FontDialog1.Execute then begin
        FontName1 := FontDialog1.Font.Name;
        fontSize1 := FontDialog1.Font.Size;
        fsBold1 := ???????
Danke Hanns
  Mit Zitat antworten Zitat