Mam taką procedurkę:
procedure koloruj(tekst:string;tekst2:string);
begin
FF.RichEdit.Lines.Add(tekst+tekst2);
FF.RichEdit.SelStart:=0;
FF.RichEdit.SelLength:=Length(tekst);
FF.RichEdit.SelAttributes.Color:=clBlue;
FF.RichEdit.SelStart:=length(tekst);
FF.RichEdit.SelLength:=length(tekst2);
FF.RichEdit.SelAttributes.Color:=clGreen;
end;
Odwołuję się do niej w taki sposób:
koloruj('Dane: ','Imie i nazwisko');
Powinno się pojawić tak, że **Dane: ** będzie kolorem niebieskim, a Imie i nazwisko kolorem zielonym. No i wszystko pięknie działa - aż do dodania 2 linijki. Wtedy już nic nie koloruje. Domyślam się, że trzeba od nowa zaznaczyć odkąd ma kolorować itd, ale próbowałem kilka sposobów i gubiło mi kolory. Może ktoś wie jak to dokończyć?