Скачать: CL | DM;

RichEdit   Найти похожие ветки 

← →
Serg1981 ©   (2006-02-01 20:38) [0]

Здравствуйте! У меня программа выделяет красным цветом нужные фрагменты в RichEdit таким образом:
         while true do
          begin
           num := PosEx("123", Editor.Text, num + 1);
           if num <> 0 then
            begin
             Editor.SelStart := num - 1;
             Editor.SelLength := Length("123");
             Editor.SelAttributes.Color := clRed;
            end
             else Break;
          end;
Вопрос: почему этот же фрагмент не работает с RxRichEdit ? В нём у меня выделяются не те фрагменты.
Спасибо.

---

← →
begin...end ©   (2006-02-01 20:59) [1]

А метод FindText работает? Что-то вроде этого:

var
 N, L: Integer;
begin
 with Editor do
 begin
   L := GetTextLen;
   N := FindText("123", 0, L, [stMatchCase]);
   while N <> -1 do
   begin
     SelStart := N;
     SelLength := 3;
     SelAttributes.Color := clRed;
     N := FindText("123", N + 1, L, [stMatchCase]);
   end;
 end;
end

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c