Как программно измененить цвет (выделить) фрагментов строки Rtf

  • Автор темы semantics
  • Дата начала
S

semantics

Гость
#1
Как правильно закрашивать в программе фрагменты строк текста в окне RichEdit?
У меня проблема в том, что после нескольких обращений процедура закрашивает весь текст.
Видимо, неправильно выполняется сброс параметров после закрашивания.
Подскажите - где что надо обнулить?

Вот такая процедура:
// rePrim:RichEdit
// закрашиваем выделенные позиции красным цветом
procedure coloring(S0:string;N,L:integer; var S1,S2:string);

var i Fl:boolean; T:string;
begin
i:=1; Fl:=true;
database.rePrim.Font.Color:=clBlack;
database.rePrim.SelAttributes.Color:=clBlack;
database.rePrim.Text:=S1;
database.rePrim.SelStart:=N-1;
database.rePrim.SelLength:=L+1;
database.rePrim.SelAttributes.Color:=clRed;


end;

Что надо исправить?