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

Тема в разделе "Delphi - Компоненты", создана пользователем semantics, 30 мар 2009.

  1. semantics

    semantics Гость

    Как правильно закрашивать в программе фрагменты строк текста в окне 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;

    Что надо исправить?
     
Загрузка...

Поделиться этой страницей