Hallo Wissende!
Ich habe ein Label und 3 Checkboxen zum de-aktivieren von Fett,Unterstrichen und Kursiv.
Folgendes mache ich, wenn zum Beispiel die Checkbox für Fett geklickt wird.
Delphi-Quellcode:
if chk_bold.Checked then
((form2.FormDesigner1.Control as TLabel).Font.Style:=
(form2.FormDesigner1.Control as TLabel).Font.Style + [fsBold])
else
((form2.FormDesigner1.Control as TLabel).Font.Style:=
(form2.FormDesigner1.Control as TLabel).Font.Style - [fsBold]);
Folgendes passiert, wenn ich auf die Checkbox für Unterstreichung klicke:
Delphi-Quellcode:
if chk_bold.Checked then
((form2.FormDesigner1.Control as TLabel).Font.Style:=
(form2.FormDesigner1.Control as TLabel).Font.Style + [fsUnderline])
else
((form2.FormDesigner1.Control as TLabel).Font.Style:=
(form2.FormDesigner1.Control as TLabel).Font.Style - [fsUnderline]);
Leider muss hier irgendwo ein fehler sein, denn die Zuweisung funktioniert nicht wirklich bzw nicht immer und ich habe keine Idee warum das so ist. Ich weiss nun auch nicht, ob dass mit dem + und - bei dem Zuweisen der Styles so korrekt ist.
Natürlich soll es so sein, dass die Schriftart im Label auch Fett und kursiv zusammen möglich sein muss und alle möglichen Kombinationen möglich sein müssen. Ich will aber auch nicht unbedingt den Weg über den FontDialog gehen, da mir das zu umständlich ist.
Wer hat einen Tipp für mich?