Hab da aber schon ein neues Problem, was ich nicht geregelt bekomme
Folgender Code steht im OnChange des Memo1
Delphi-Quellcode:
Memo1.Lines.Text :=
StringReplace(Memo1.Lines.Text, '[color='+
ColorToHex(JvColorButton1.Color)+']', '<font color=#'+
ColorToHex(JvColorButton1.Color)+'>',
[rfReplaceAll, rfIgnoreCase]);
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '[/color]', '</font>',
[rfReplaceAll, rfIgnoreCase]);
Memo2.Lines.Text := Memo1.Lines.Text;
Wenn ich jetzt auf einen Button klicke und zuvor einen Farbe aus dem JvColorButton ausgewählt habe,
wird diese auch ordnungsgemäß hinzugefügt. Im WebBrowser stimmt auch die Farbe.
Führe ich dies jedoch ein zweites Mal aus, so setzt er den 2. Text in die richtige Farbe, aber den
ersten wieder in "Schwarz" ?