RichEdit

← →
Mentov (2004-02-29 17:50) [0]

В RichEdit"е есть некоторый текст. Среди прочего там есть фраза "Привет, мир"

Я хочу именно эту фразу подсветить красным цветом. Как это реализовать?

← →
Cardinal © (2004-02-29 18:31) [1]

procedure findmytext; var i: integer; begin i:=pos("Привет, мир!",richedit1.Text); if i<>0 then begin richedit1.SelStart:=pos("Привет, мир!",richedit1.Text)-1; richedit1.SelLength:=length("Привет, мир!"); richedit1.SelAttributes.Color:=clred; end; end;

← →
Rayslava © (2004-03-01 07:01) [2]

А если их несколько? Этих фраз

← →
Clift © (2004-03-01 07:18) [3]

>Rayslava © (01.03.04 07:01) [2]
А если их несколько? Этих фраз
А Если Подумать................................?????????

procedure findmytext;
var i: integer;
begin
i:=pos("Привет, мир!",richedit1.Text);
WHILE i<>0 do
begin
richedit1.SelStart:=pos("Привет, мир!",richedit1.Text)-1;
richedit1.SelLength:=length("Привет, мир!");
richedit1.SelAttributes.Color:=clred;
i:=pos("Привет, мир!",richedit1.Text);
end;
end;

← →
Clift © (2004-03-01 07:20) [4]

ОПА!
Чего-то я нетого написал ;)
//НЕбудет работать

← →
TUser © (2004-03-01 08:20) [5]

richedit1.SelAttributes.Color:=clred;
i:=pos("Привет, мир!",richedit1.Text); // <-- posex
end;
end;

← →
Mentov (2004-03-02 00:06) [6]

>posex
а что такое posex?

И еще такой вопрос. Если фраз, которые надо "украсить" много, то постоянно SelStart бегает, отчего возникает неприятное мерцание!!! Можно как-то перевести RichEdit в состоянии Update, чтобы результаты на экране не отображались. А потом, когда SelStart "отбегается" - все это резко отобразить?

> А потом, когда SelStart "отбегается" - все это резко отобразить?

Все равно будет мерцать.

Lock На уровне Lines:
RichEdit.Lines.BeginUpdate ... RichEdit.Lines.EndUpdate;

Lock на уровне Control:
SendMessage(RichEdit.Handle, WM_SETREDRAW, 0,0); ... SendMessage(RichEdit.Handle, WM_SETREDRAW, 1,0);

← →
Mentov (2004-03-03 19:04) [8]

Все равно будет мерцать

блин, а как же люди делают? Может RichEdit компонент левый для таких целей? В тех же редакторах (в IDE дельфи) подсвечивается - и ничего не мерцает

блин, а как же люди делают? Может RichEdit компонент левый для таких целей? В тех же редакторах (в IDE дельфи) подсвечивается - и ничего не мерцает

Так и есть...

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