TFontStyle

[Florian H]

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


Viele Grüße und einen schönen Sonntag

Florian

[Alexander]

probier das mal so:
richedit1.selAttributes.style := richedit1.selAttributes.style +[fsBold];

[Florian H]

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

DANKE!

[Alexander]

war auch nur geraten

[Basic-Master]

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
...