Подсветка в TRichEdit

← →
Stas © (2003-10-17 09:58) [0]

Есть ли у кого нибудь примеры подсветки в TRichEdit ?
Или описание принципа действия ?

← →
MBo © (2003-10-17 09:59) [1]

SelStart SelLength SelAttributes

← →
Stas © (2003-10-17 10:05) [2]

Я делаю так, но при вводе текста, заметно мерцание.

Procedure ReColor (RichEdit:TRichEdit);
var i,j,n,k:Integer; Text:WideString;
begin
k:=RichEdit.SelStart;
Richedit.SelectAll;
richedit.SelAttributes.Color:=clblack;
text:=UPPERCASE(RichEdit.Text);
for j:=1 to ColorCount do
begin
for i:=1 to WordCount do
begin
n:=pos (ColorWord[j,i],text);
if n<>0 then
begin
RichEdit.SelStart:=n-1;
RichEdit.SelLength:=Length(ColorWord[j,i]);
RichEdit.SelAttributes.Color:=tlColor[j];
end;
end;
end;
RichEdit.SelStart:=k;
RichEdit.SelLength:=0;
RichEdit.SelAttributes.Color:=clBlack;
end;

← →
MBo © (2003-10-17 10:20) [3]

lines.beginupdate/endupdate попробуй

Спасибо !
Сейчас попробую

Работает нормально !

Подсветка в TRichEdit Найти похожие ветки