Hallo,
Ich habe eine Frage bezüglich den einfärben in einem TRichEdit Feldes.
Und zwar hier ein Teil meines Quellcodes.
Delphi-Quellcode:
FormMain.REAErgebnis.lines.Add(Test);
if StrToFloat(Ergebnis[A]) > 2 then
Begin
with FormMain.REAErgebnis do
begin
SelStart := Length(FormMain.REAErgebnis.text)-Length(Test);
SelLength := Length(Test);
SelAttributes.Color := clRed;
end;
End;
Nun soll jedesmal wenn ich im TRich-Feld etwas einfüge das einen höheren Wert als 2 besitzt Rot eingefärbt werden.
nur bei diesem Code den ich mir zusammen gebastelt habe klappt dies nicht.
Auf dem Screenshot kann man genau sehen wie es jedesmal aussieht.
Screenshot hängt bei.
Hat jemand einen Tipp was ich falsch mache?