Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

Подсветка в 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 попробуй


 
Stas ©   (2003-10-17 10:23) [4]

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


 
Stas ©   (2003-10-17 10:24) [5]

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



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

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
1-89231
Lam
2003-10-15 11:08
2003.10.27
Путь


14-89512
x_ANDREW_x
2003-10-08 00:31
2003.10.27
Народу - тьма, а дела - ноль


6-89437
DrFox
2003-08-31 20:55
2003.10.27
Определение имени компьютера в локальной сети


3-89160
SER
2003-10-06 15:17
2003.10.27
Ресурсы по


4-89646
Prov
2003-08-21 12:49
2003.10.27
Окно апи в ДЛЛ ?