Delphi-PRAXiS - Delphi TFontStyle

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi TFontStyle (https://www.delphipraxis.net/10141-tfontstyle.html)

Hi,

Ich habe ein TRichedit und 3 Buttons für Fett, Kursiv und Unterstrichen.
Wie kann ich jetzt die 3 Attribute auf die aktuelle Selektion übernehmen, und zwar so, dass sie sich ergänzen?

Ich kann zwar in das OnClick jedes Buttons schreiben
- richedit1.selAttributes := [fsBold];
- richedit1.selAttributes := [fsItalic];
- richedit1.selAttributes := [fsUnderlined];

aber wenn ich dann etwas fett mache und anschließend kursiv, dann ist es (logischerweise) nur kursiv, nicht mehr fett.
Wie kann ich das verhindern, also dass ich alle 3 Attribute belieibig kombinieren kann?

Ich bin mir ziemlich sicher, dass das schöner geht als über 30 verschiedene IF-Abfragen zu machen, die gucken, was für Attribute zu verwenden sind :stupid:

Viele Grüße und einen schönen Sonntag

Florian

probier das mal so:

Delphi-Quellcode:

richedit1.selAttributes.style := richedit1.selAttributes.style +[fsBold];

oh mann, aufs einfachste und natürlichste kommt man nicht...

DANKE! :thuimb:

war auch nur geraten :mrgreen:

und wenn du überprüfen willst ob jetzt fsbold drinne is dann kannste das so machen:

Delphi-Quellcode:

			if fsbold in richedit1.selattributes.style then

...