ТЕОРИЯ
Подсветка синтаксиса - это предмет жарких дискуссий между создателями текстовых редакторов. Лучший метод (на мой взгляд) - это создать собственный edit control. Именно этот метод применяется во многих коммерческих приложений. Тем не менее для тех из нас, у кого нет времени на создание подобного контрола, лучшим вариантом будет приспособить существующий контрол к нашим нуждам.
Давайте посмотрим, как может нам помочь richedit в реализации цветовой подсветки. Я должен сказать, что следующий метод "неверен": я всего лишь продемонстрирую ловушку, в которую угодили многие. richedit предоставляет сообщение em_setcharformat, которое позволяет вам менять цвет текста. На первый взгляд это именно то, что нам нужно (я знаю, потому что я стал одной из жертв этого подхода). Тем не менее, более детальное исследование покажет вам, что у данного сообщения есть несколько недостатков:
em_setcharformat работает либо со всем текстом сразу, либо только с тем, который сейчас выделен. Если вам потребуется изменить цвет определенного слова, вам сначала придется выделить его.
em_setcharformat очень медленна.
У нее есть проблемы с позицией курсора в контроле richedit.
Из всего вышеизложенного вы можете сделать вывод, что использование em_setcharformat - неправильный выбор. Я покажу вам "относительно верный" выбор.
Мой метод заключает только в том, чтобы подсвечивать только видимую часть текста. В этом случае скорость подсветки не будет зависеть от размера файла. Вне зависимости от того, как велик файл, только маленькая его часть видна на экране.
Как это сделать? Ответ прост:
Субклассируйте контрол richedit и обрабатывайте сообщение wm_paint внутри вашей оконной процедуры.
Когда она встречает сообщение wm_paint, вызывается оригинальная оконная функция, которая обновляет экран как обычно.
После этого мы перерисовываем слова, которые нужно отобразить другим цветом.
Конечно, этот путь не так прост: есть несколько вещей, которые нужно пофиксить, но вышеизложенный метод работает достаточно хорошо. Скорость отображения на экране более чем удовлетворительна.
Теперь давайте сконцентрируемся на деталях. Процедура сабклассинга проста и не требует внимательного рассмотрения. Действительно сложная часть - это когда мы находим быстрый способ поиска слов, которые нужно подсветить. Это усложняется тем, что не надо подсвечивать слова внутри комментариев.
Метод, который я использовал, возможно, не самый лучший, но он работает хорошо. Я уверен, что вы сможете найти более быстрый путь. Как бы то ни было, вот он:
Я создал массив на 256 двойных слов, заполненный нулями. Каждый dword соответствует возможному ascii-символу. Я назвал массив asmsyntaxarray. Например, 21-ый элемент представляет собой 20h (пробел). Я использовал массив для быстрого просмотра таблицы: например, если у меня есть слово "include", я извлекаю первый символ из слова и смотрю значение соответствующего элемента. Если оно равно 0, я знаю, что среди слов, которые нужно подсвечивать, нет таких, которые бы начинались с "i". Если элемент не равен нулю, он содержит указатель на структуру wordinfo, в которой находится информацию о слове, которое должно быть подсвечено.
Я читаю слова, которые нужно подсвечивать, и создаю структуру wordinfo для каждого из них.
wordinfo struct
wordlen dd ? ; длина слова: используется для быстрого сравнения
pszword dd ? ; указатель на слово
pcolor dd ? ; указатель на dword, содержащий цвет, которым
; нужно подсвечивать слово
nextlink dd ? ; указатель на следующую структуру wordinfo
wordinfo ends
Как вы можете видеть, я использовал длину слова для убыстрения процесса сравнивания. Если первый символ слова совпадает, мы можем сравнить его длину с доступными словами. Каждый dword в asmsyntaxarray содержит указатель на начало ассоциированного с ним массива wordinfo. Например dword, который представляет символ "i", будет содержать указатель на связанный список слов, которые начинаются с "i". Поле pcolor указывает на слово, содержащее цвет, которым будет подсвечиваться слово. pszword указывает на слово, которое будет подсвечиваться, преобразованное к нижнему регистру.
Память для связанного списка занимается из кучи программы по умолчанию, поэтому очищать ее легко и быстро: никакой чистки не требуется вообще.
Список слов сохраняется в файле под названием "wordfile.txt", я получаю к нему доступ через api-функцию getprivateprofilestring. Есть десять различных подсветок символов, начинающиеся с c1 до c10. Массив цветов называется asmcolorarray. Поле pcolor каждой структуры wordinfo указывает на один из элементов asmcolorarray. Поэтому можно легко изменять подсветку синтаксиса на лету: вам всего лишь нужно изменить dword в asmcolorarray и все слова, которые используют этот цвет, будут использовать новое значение.
ПРИМЕР
Здесь исходник. Возмите его из архива 
АНАЛИЗ
Первое действие, совершаемое до вызова winmain, это вызов fillhiliteinfo. Эта функция считывает содержимое wordfile.txt и обрабатывает его.
fillhiliteinfo proc uses edi
local buffer[1024]:byte
local ptemp:dword
local blocksize:dword
invoke rtlzeromemory,addr asmsyntaxarray,sizeof asmsyntaxarray
initialize asmsyntaxarray to zero.
invoke getmodulefilename,hinstance,addr buffer,sizeof buffer
invoke lstrlen,addr buffer
mov ecx,eax
dec ecx
lea edi,buffer
add edi,ecx
std
mov al,""
repne scasb
cld
inc edi
mov byte ptr [edi],0
invoke lstrcat,addr buffer,addr wordfilename
Создаем путь до wordfile.txt: я предполагаю, что он всегда находится в той же папке, что и сама программа.
invoke getfileattributes,addr buffer
.if eax!=-1
Я использую этот метод как быстрый путь для проверки, существует ли файл.
mov blocksize,1024*10
invoke heapalloc,hmainheap,0,blocksize
mov ptemp,eax
Резервируем блок памяти, чтобы сохранять слова. По умолчанию - 10 килобайт. Память занимаем из кучи по умолчанию.
@@:
invoke getprivateprofilestring,addr asmsection,
addr c1key,addr zerostring,ptemp,
blocksize,addr buffer
.if eax!=0
Я использовал getprivateprofilestring, чтобы получить содержимое каждого ключевого слова в wordfile.txt, начиная с c1 и до c10.
inc eax
.if eax==blocksize ; the buffer is too small
add blocksize,1024*10
invoke heaprealloc,hmainheap,0,ptemp,blocksize
mov ptemp,eax
jmp @b
.endif
Проверяем, достаточно ли велик блок памяти. Если это не так, мы увеличиваем размер на 10k, пока он не окажется достаточно велик.
mov edx,offset asmcolorarray
invoke parsebuffer,hmainheap,
ptemp,eax,edx,addr asmsyntaxarray
Передаем слова, хэндл на блок памяти, размер данных, считанных из wordfile.txt, адрес dword с цветом, который будет использоваться для подсветки слов и адреса asmsyntaxarray.
Теперь давайте посмотрим, что делает parsebuffer. В сущности, эта функция принимает буфер, содержащий слова, которые должны быть выделены, парсит их на отдельные слова и сохраняет каждое из них в массиве структур wordinfo, к которому можно легко получить доступ из asmsyntaxarray.
parsebuffer proc uses edi esi hheap:dword,
pbuffer:dword, nsize:dword,
arrayoffset:dword,parray:dword
local buffer[128]:byte
local inprogress:dword
mov inprogress,false
inprogress - это флаг, который я использовал, чтобы суметь определить, начался ли процесс сканирования. Если значение равно false, vs
lea esi,buffer
mov edi,pbuffer
invoke charlower,edi
esi указывает на наш буфер, который будет содержать слово, взятое нами из списка слов. edi указывает на строку-список слов. Чтобы упростить поиск, мы приводим все символы к нижнему регистру.
mov ecx,nsize
searchloop:
or ecx,ecx
jz finished
cmp byte ptr [edi]," "
je endofword
cmp byte ptr [edi],9 ; tab
je endofword
Сканируем весь список слов в буфере, ориентируясь по пробелам, по которым определяем конец или начало слова.
mov inprogress,true
mov al,byte ptr [edi]
mov byte ptr [esi],al
inc esi
skipit:
inc edi
dec ecx
jmp searchloop
Если оказывается, что байт не является пробелом, то мы копируем его в буфер, где создается слово, а затем продолжаем поиск.
endofword:
cmp inprogress,true
je wordfound
jmp skipit
Если пробел был найден, то мы проверяем значение в inprogress. Если значение равно true, мы можем предположить, что был достигнут конец слова и мы можем поместить то, что у нас получилось в наш буфер (на который указывает esi) в структуру wordinfo. Если значение равно false, мы продолжамем сканирование дальше.
wordfound:
mov byte ptr [esi],0
push ecx
invoke heapalloc,hheap,heap_zero_memory,sizeof wordinfo
Если был достигнут конец слова, мы прибавляем 0 к буферу, чтобы сделать из слова строку формата asciiz. Затем мы занимаем для этого слова блок памяти из кучи размером в wordinfo.
push esi
mov esi,eax
assume esi:ptr wordinfo
invoke lstrlen,addr buffer
mov [esi].wordlen,eax
Мы получаем длину слова в нашем буфере и сохраняем ее в поле wordlen структуры wordinfo, чтобы использовать в дальнейшем при быстром сравнении.
push arrayoffset
pop [esi].pcolor
Сохраняем адрес dword'а, который содержит цвет для подсветки слова, в поле pcolor.
inc eax
invoke heapalloc,hheap,heap_zero_memory,eax
mov [esi].pszword,eax
mov edx,eax
invoke lstrcpy,edx,addr buffer
Занимает блок памяти из кучи, чтобы сохранить само слово. В настоящее время структура wordinfo готова для вставки в соответствующий связанный список.
mov eax,parray
movzx edx,byte ptr [buffer]
shl edx,2 ; multiply by 4
add eax,edx
parray содержит адрес asmsyntaxarray. Нам нужно перейти к dword'у, у которого тот же индекс, что и у значения первого символа слова. Поэтому мы помещаем первый символ в edx, а затем умножаем edx на 4 (так как каждый элемент в asmsyntaxarray равен 4 байтам), а затем добавляем получившееся смещение к адресу asmsyntaxarray. Теперь адрес нужного dword'а находится в eax.
.if dword ptr [eax]==0
mov dword ptr [eax],esi
.else
push dword ptr [eax]
pop [esi].nextlink
mov dword ptr [eax],esi
.endif
Проверяем значение dword'а. Если оно равно 0, это означает, что в настоящее время ключевых слов, которые начинаются с этого символа, нет. Затем мы помещаем адрес текущей структуры wordinfo в этот dword.
Если значение dword'а не равно 0, это означает, что есть по крайней мере одно ключевое слово, которое начинается с этого символа. Затем мы вставляем эту структуру wordinfo в голову связанного списка и обновляем его поле nextlink, чтобы оно указывало на структуру wordinfo.
pop esi
pop ecx
lea esi,buffer
mov inprogress,false
jmp skipit
После того как операция завершена, мы начинаем следующую цикл сканирования, пока не будет достигнуть конец буфера.
invoke sendmessage,hwndrichedit,em_settypographyoptions,
to_simplelinebreak,to_simplelinebreak
invoke sendmessage,hwndrichedit,em_gettypographyoptions,1,1
.if eax==0 ; means this message is not processed
mov richeditversion,2
.else
mov richeditversion,3
invoke sendmessage,hwndrichedit,em_seteditstyle,
ses_emulatesysedit,ses_emulatesysedit
.endif
После того, как контрол richedit создан, нам нужно определить его версию. Этот шаг необходим, так как поведение em_posfromchar отличается в зависимости от версии richedit, а em_posfromchar жизненно важна для нашей процедуры подсветки. Я никого не видел документированного способа определения версии richedit, поэтому я пошел окольным путем. Я устанавливаю опцию, которая свойственная версии 3.0 и немедленно возвращает его значение. Если я могу получить значение, я предполагаю, что версия этого контрола 3.0.
Если вы используете контрол richedit версии 3.0, вы можете заметить, что обновление цвета фонт на больших файлах занимает довольно много времени. Похоже, что эта проблема существует только в версии 3.0. Я нашел способ обойти это, заставив конрол эмулировать поведение контрола edit, послав сообщение em_seteditstyle.
После того, как мы получили информацию о версии контрола, мы переходим к сабклассированию контрола richedit. Сейчас мы рассмотрим новую процедуру для обработки сообщений.
newricheditproc proc hwnd:dword, umsg:dword,
wparam:dword, lparam:dword
.......
.......
.if umsg==wm_paint
push edi
push esi
invoke hidecaret,hwnd
invoke callwindowproc,oldwndproc,hwnd,
umsg,wparam,lparam
push eax
Мы обрабатываем сообщение wm_paint. Во-первых, мы прячем курсор, чтобы избежать уродливых артефактов после подсветки. Затем мы передаем сообщение оригинальной процедуре richedit, чтобы оно обновило окно. Когда callwindowproc возвращает управление, текс обновляется согласно его обычному цвету/бэкграунду. Теперь мы можем сделать подсветку синтаксиса.
mov edi,offset asmsyntaxarray
invoke getdc,hwnd
mov hdc,eax
invoke setbkmode,hdc,transparent
Сохраняем адрес asmsyntaxarray в edi. Затем мы получаем хэндл контекста устройства и делаем бэкграунд текста прозрачными, чтобы при выводе нами текста использовался текущий бэкграундный цвет.
invoke sendmessage,hwnd,em_getrect,0,addr rect
invoke sendmessage,hwnd,em_charfrompos,0,addr rect
invoke sendmessage,hwnd,em_linefromchar,eax,0
invoke sendmessage,hwnd,em_lineindex,eax,0
Мы хотим получить видимый текст, поэтому сначала нам требуется узнать размеры области, которую необходимо форматировать, послав ему em_getrect. Затем мы получаем индес ближайшего к левому верхнему углу символа с помощью сообщения em_charfrompos. Как только мы получаем индекс первого символа, мы начинаем делать цветовую подсветку, начиная с этой позиции. Но эффект может быть не так хорош, как если бы начали с первого символа линии, в которой находится символ. Вот почему мне нужно было получить номер линии, в которой находится первый видимый символ, с помощью сообщения em_linefromchar. Чтобы получить первый символ этой линии, я посылаю сообщение em_lineindex.
mov txtrange.chrg.cpmin,eax
mov firstchar,eax
invoke sendmessage,hwnd,em_charfrompos,0,addr rect.right
mov txtrange.chrg.cpmax,eax
Как только мы получили индекс первого символа, сохраняем его на будущее в переменной firstchar. Затем мы получаем последний видимый символ, посылая ему em_charfrompos, передавая нижний правый угол форматируемой области в lparam.
push rect.left
pop realrect.left
push rect.top
pop realrect.top
push rect.right
pop realrect.right
push rect.bottom
pop realrect.bottom
invoke createrectrgn,realrect.left,realrect.top,
realrect.right,realrect.bottom
mov hrgn,eax
invoke selectobject,hdc,hrgn
mov holdrgn,eax
Во время подсветки синтаксиса, я заметил один побочный эффект этого метода: если у контрола richedit'а есть отступ (который вы можете указать, послав сообщение em_setmargins контролу richedit), drawtext пишет поверх него. Поэтому мне требуется создать функцией createrectrgn ограничительный регион, в который будут выводиться результат выполнения функций gdi.
Затем нам требуется подсветить коментарии и убрать их с нашего пути. Мой метод состоит в поиске ";" и подсветке текста цветом комментария, пока не будет достигнуть перевод каретки. Я не будут анализировать здесь эту процедуру: она довольно длинна и сложна. Достаточно сказать, что когда подсвечены все комментарии, мы замещаем их нулями в нашем буфере, чтобы слова к комментарии не обрабатывались позже.
mov ecx,buffersize
lea esi,buffer
.while ecx>0
mov al,byte ptr [esi]
.if al==" " || al==0dh || al=="/" || al=="," || al=="|" ||
al=="+" || al=="-" || al=="*" || al=="&" || al=="<"
|| al==">" || al=="=" || al=="(" || al==")" || al=="{"
|| al=="}" || al=="[" || al=="]" || al=="^" || al==":"
|| al==9
mov byte ptr [esi],0
.endif
dec ecx
inc esi
.endw
Как только мы избавились от комментариев, мы разделяем слова в буфере, замещая символы "разделения" нулями. С помощью этого метода нам не нужно заботиться о символах разделения во время обработки слов в дальнейшем, так как у нас будет только один символ разделения.
lea esi,buffer
mov ecx,buffersize
.while ecx>0
mov al,byte ptr [esi]
.if al!=0
Ищем в буфере первый символ, не равный null, т.е. первый символ слова.
push ecx
invoke lstrlen,esi
push eax
mov edx,eax
Получаем длину слова и помещаем его в edx.
movzx eax,byte ptr [esi]
.if al>="a" && al<="z"
sub al,"a"
add al,"a"
.endif
Конвертируем символ в нижний регистр (если он в верхнем).
shl eax,2
add eax,edi ; edi содержит указатель на массив указателей
; на структуры wordinfo
.if dword ptr [eax]!=0
После этого мы переходим к соответствующему dword'у в asmsyntaxarray и проверяем равно ли его значение 0. Если это так, мы можем перейти к следующему слову.
mov eax,dword ptr [eax]
assume eax:ptr wordinfo
.while eax!=0
.if edx==[eax].wordlen
Если значение dword'а не равно нулю, он указывает на связанный список структур wordinfo. Мы делаем пробег по связанному списку, сравнивая длину слова в нашем буфере с длиной слова в структуре wordinfo. Это быстрый тест, проводимый до полноценного сравнения слов, что должно сохранить несколько тактов.
pushad
invoke lstrcmpi,[eax].pszword,esi
.if eax==0
Если длины обоих слов равны, мы переходим к сравнению слов с помощью lstrcmpi.
popad
mov ecx,esi
lea edx,buffer
sub ecx,edx
add ecx,firstchar
Мы создаем индекс символа из адресов первого символа совпадающего слова в буфере. Сначала мы получаем его относительное смещение из стартового адреса буфера, а затем добавляем индекс символа первого видимого символа к нему.
pushad
.if richeditversion==3
invoke sendmessage,hwnd,em_posfromchar,addr rect,ecx
.else
invoke sendmessage,hwnd,em_posfromchar,ecx,0
mov ecx,eax
and ecx,0ffffh
mov rect.left,ecx
shr eax,16
mov rect.top,eax
.endif
popad
Узнав индекс первого символа слова, которое должно быть подсвечено, мы переходим к получению его координат с помощью сообщения em_posfromchar. Тем не менее это сообщение интерпретируется различным образом в richedit 2.0 или 3.0. В richedit 2.0 wparam содержит индес символа, а lparam не используется. Сообщение возвращается в eax. В richedit 3.0 wparam - это указатель на структуру point, которая будет заполнена координатой, а lparam содержит индекс символа.
Как вы можете видеть, передача неверных аргументов em_posfromchar может привести к непредсказуемым результатам. Вот почему я должен определить версию richedit.
mov edx,[eax].pcolor
invoke settextcolor,hdc,dword ptr [edx]
invoke drawtext,hdc,esi,-1,addr rect,0
Как только мы получили координату, с которой надо начинать, мы устанавливаем цвет текста, который указан в структуре wordinfo.
В заключение я хочу сказать, что этот метод можно улучшить различными способами. Например я получаю весь текст, который начинается от первой до последней видимой линии. Если линии очень длинные, качество может пострадать из-за обработки невидимых слов. Вы можете оптимизировать это, получая видимый текст полинейно. Также можно улучшить алгоритм поиска. Поймите меня правильно: подсветка синтаксиса, используемая в этом примере, быстрая, но она может быть быстрее. 
[c] iczelion, пер. aquila
Главная » RichEdit Control: подстветка синтаксиса
Вначале я хочу вас предупредить, что это сложная тема, не подходящая для начинающего. Это последний туториал из серии о richedit.
Категория: Языки программирования | Просмотров: 209