Hallo zusammen,

ich habe ein RichEdit in dem das erste Wort fett und das zweite nicht fett ist.
Markiere ich nun von links nach rechts beide Worte und möchte es unterstreichen verwende ich:

markieren

Code:

RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsUnderline]

Was dann passiert ist aber das er mir das erste Wort nicht fett geschrieben lässt sondern dem zweiten Wort anpasst.

Gibt es eine Möglichkeit das so zu ändern, dass er nur unterstreicht und den Style des jeweiligen Wortes bei behält?

Viele Grüße

Mirko

Das zweite RichEdit.SelAttributes.Style in deinem Code liest den Style an der Cursorposition aus
und das erste RichEdit.SelAttributes.Style weist dann den "gesamten" Style inkl. Fett/Kursiv/Unterstichen der ganzen Selektierung zu.

Also entweder du merkst dir die Selektierung und änderst das für jedes Zeichen einzeln
oder du teils diesen Bereich in Stückchen mit gleicher Formatierung und setzt diese bei Stückchen jeweils deine Änderung rein.

Hallo,

danke für Deine Antwort.
Für jedes Zeichen einzeln dann in etwa so?

markieren

Code:

sstart := RICHEDIT.Selstart;
slength := RICHEDIT.SelLength;

for i := 0 to slength-1 do
begin
  RICHEDIT.SelStart := sstart + i;
  RICHEDIT.SelLength := 1;
  RICHEDIT.SelAttributes.Style := RICHEDIT.SelAttributes.Style + [fsUnderline];
end;

Könntest Du mir bitte damit helfen, wie ich am besten die Aufteilung in Bereiche gleicher Formatierung mache?

Viele Grüße

Mirko