TFontDialog: wie einzelne Style-Typen extrahieren ?

[HannsW]

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

[Matze]

Hallo,

das geht beispielsweise so:

fsBold1 := fsBold in FontDialog1.Font.Style; // falls fsBold1 ein Boolean ist Analog geht es mit den anderen Styles. Im folgenden Beispiel als if-Anweisung:

Delphi-Quellcode:

if fsBold in FontDialog1.Font.Style then
  ShowMessage('bold');

if fsItalic in FontDialog1.Font.Style then
  ShowMessage('italic');

if fsUnderline in FontDialog1.Font.Style then
  ShowMessage('underline');

if fsStrikeOut in FontDialog1.Font.Style then
  ShowMessage('strike out');

Grüße, Matze

[HannsW]

Danke Matze,
das Wars

happy Hanns