Главная страница
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.043 c
1-89336
Users
2003-10-16 15:20
2003.10.27
Разделение периода дат на доп-е периоды.


7-89591
luckygluck
2003-08-10 17:19
2003.10.27
Включение компьютера


1-89265
Марат
2003-10-14 13:52
2003.10.27
Модальность форм


1-89299
ilka
2003-10-16 20:31
2003.10.27
TRegistryIniFile & TRegistry


1-89206
Checist [root]
2003-10-15 13:58
2003.10.27
Сохранение картинки из веб страници