;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Basic macros for use editbox ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; macro use_editbox_draw { edit_box: .draw: pushad .draw_1: ;--- рисуем рамку --- mov edi,dword [esp+36] call .draw_border .draw_bg_cursor_text: ;--- изменяем смещение, если надо --- call .check_offset ;--- рисуем внутреннюю область --- call .draw_bg ;--- рисуем выделение, по shift если есть --- call .draw_shift .draw_cursor_text: call .draw_text ;--- рисуем курсор --- ;--- может его не надо рисовать --- test word ed_flags,ed_focus jz .editbox_exit call .draw_cursor ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Общий выход из editbox для всех функций и пост обработчиков;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; .editbox_exit: popad ret 4 } macro use_editbox_key { ;========================================================== ;=== обработка клавиатуры ================================= ;========================================================== edit_box_key: pushad mov edi,dword [esp+36] test word ed_flags,ed_focus ; если не в фокусе, выходим jz edit_box.editbox_exit test word ed_flags,ed_mouse_on or ed_disabled jnz edit_box.editbox_exit ;-------------------------------------- ; this code for Win-keys, works with ; kernel SVN r.3356 or later push eax push ebx mcall 66,3 test ax,0x200 ; LWin jnz .win_key_pressed test ax,0x400 ; RWin jz @f .win_key_pressed: pop ebx pop eax jmp edit_box.editbox_exit @@: pop ebx pop eax ;-------------------------------------- ;Проверка нажат shift ? call edit_box_key.check_shift_ctrl_alt ;---------------------------------------------------------- ;--- проверяем, что нажато -------------------------------- ;---------------------------------------------------------- cmp ah,8 jz edit_box_key.backspace cmp ah,0xb6 jz edit_box_key.delete cmp ah,176 jz edit_box_key.left cmp ah,179 jz edit_box_key.right cmp ah,180 jz edit_box_key.home cmp ah,181 jz edit_box_key.end cmp ah,185 ;insert jz edit_box_key.insert ; комбинации Ctrl + клавиша test word ed_flags,ed_ctrl_on jz @f ; проверка сканкода ror eax,8 cmp ah,46 ; Ctrl + C je edit_box_key.ctrl_c cmp ah,47 ; Ctrl + V je edit_box_key.ctrl_v rol eax,8 @@: ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Заглушка на обработку клавиш вверх и вниз т.е. при обнаружении этих кодов происходит выход из обработчика ;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll ;--- нажата другая клавиша --- ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Проверка установлен ли флаг при котором нужно выводить только цифры в нужном боксе, если такой необходимости нет, нужно закоментировать макрос ;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_key_figures_only ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;проверка на shift, был ли нажат ;;;;;;;;;;;;;;;;;;;;;;;;;;;; are_key_shift_press ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; проверяем, находится ли курсор в конце + дальнейшая обработка ;;;;;;;;;;;;;;;;;;;;;;;;;;;; are_key_cur_end ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Обработка клавиш insert,delete.backspace,home,end,left,right ;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_work_key } macro use_editbox_mouse { ;========================================================== ;=== обработка мыши ======================================= ;========================================================== ;save for stdcall ebx,esi,edi,ebp edit_box_mouse: pushad mov edi,dword [esp+36] test word ed_flags,ed_disabled jnz edit_box.editbox_exit ;debug ;---------------------------------------------------------- ;--- получаем состояние кнопок мыши ----------------------- ;---------------------------------------------------------- mcall 37,2 ;---------------------------------------------------------- ;--- проверяем состояние ---------------------------------- ;---------------------------------------------------------- test eax,1 jnz edit_box_mouse.mouse_left_button and word ed_flags,ed_mouse_on_off mov ebx,dword ed_mouse_variable push 0 pop dword [ebx] ; mov dword [ebx],ebx jmp edit_box.editbox_exit .mouse_left_button: ;---------------------------------------------------------- ;--- блокировка от фокусировки в других боксах при попадании на них курсора ;---------------------------------------------------------- mov eax,dword ed_mouse_variable push dword [eax] pop eax test eax,eax jz @f cmp eax,edi je @f jmp edit_box_mouse._blur ;---------------------------------------------------------- ;--- получаем координаты мыши относительно 0 т.е всей области экрана ;---------------------------------------------------------- @@: mcall 37,1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Функция обработки мышки получение координат и проверка их + выделения ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_work_mouse ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Общие функции обработки ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_general_func ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Функции для работы с key ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_key_func ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Функции для работы с mouse ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; use_mouse_func ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Bit mask from editbox ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; } ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;ниже расположены функции которыми реализуется весь алгоритм ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;Макрос для вывода основных функций которые используются боксом macro use_general_func { ;debug_func ;---------------------------------------------------------- ;--- процедура прорисовки выделенной части ---------------- ;---------------------------------------------------------- edit_box.draw_shift: test word ed_flags,ed_shift_bac ;установка флага, выделенной области jz @f mov ebp,shift_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ @@: ret ;---------------------------------------------------------- ;--- процедура прорисовки текста -------------------------- ;---------------------------------------------------------- edit_box.draw_text: ;--- вычисляем, сколько помещается символов --- call edit_box.get_n mov esi,ed_size mov ebx,ed_offset sub esi,ebx cmp eax,esi jae @F mov esi,eax ;--- рисуем текст --- @@: mov eax,4 mov ebx,ed_left mov edx,ed_offset add ebx,2 shl ebx,16 add ebx,ed_top mov ecx,ed_text_color add ebx,4 add edx,ed_text test word ed_flags,ed_pass jnz edit_box.draw_password mcall ret txt_pass db '*',0 proc edit_box.draw_password locals s_len dw ? ;длина выводимого текста endl cmp esi,1 jl .end_f ;если строка пустая mov [s_len],si xor esi,esi inc esi lea edx,[txt_pass] @@: mcall add ebx,6 shl 16 ;добавляем стандартную ширину символа dec word[s_len] cmp word[s_len],0 jg @b .end_f: ret endp ;---------------------------------------------------------- ;--- процедура прорисовки фона ---------------------------- ;входные данные ;eax ;edx - color ;---------------------------------------------------------- edit_box.draw_bg: mov ebx,ed_left add ebx,1 mov edx,ed_color test word ed_flags, ed_disabled jz @f mov edx, 0x00cacaca ; TODO: add new value disabled_color to editbox struct @@: shl ebx,16 add ebx,ed_width sub ebx,1 ;вход только цвет edx edit_box.draw_bg_eax: mov ecx,ed_top mov eax,13 add ecx,1 shl ecx,16 add ecx,ed_height dec ecx mcall ret ;---------------------------------------------------------- ;--- процедура получения количества символов в текущей ширине компонента ;---------------------------------------------------------- edit_box.get_n: mov eax,ed_width ;получем ширину компонента xor edx,edx ;результат располагается в паре edx:eax в eax - остаток sub eax,4 ;вычтем 4 mov ebx,6 ;загрузим делитель div ebx ;разделим на 6 ret ;---------------------------------------------------------- ;--- процедура рисования курсора -------------------------- ;---------------------------------------------------------- ;входные ebp- цвет edit_box.clear_cursor: mov edx,ebp mov ebx,cl_curs_x mov ecx,cl_curs_y jmp edit_box.draw_curs edit_box.draw_cursor: mov edx,ed_text_color mov ebx,ed_pos mov ecx,ed_offset sub ebx,ecx lea ebx,[ebx*2+ebx] shl ebx,1 ;imul ebx,6 add ebx,ed_left mov ecx,ed_top inc ebx add ecx,2 mov ebp,ebx shl ebx,16 mov bx,bp mov ebp,ecx shl ecx,16 mov cx,bp add ecx,ed_height-4 mov cl_curs_x,ebx mov cl_curs_y,ecx edit_box.draw_curs: mcall 38 ret ;---------------------------------------------------------- ;--- процедура рисования рамки ---------------------------- ;---------------------------------------------------------- edit_box.draw_border: ;--- цвет рамки --- test word ed_flags,ed_focus mov edx,ed_focus_border_color jne @f mov edx,ed_blur_border_color @@: ;--- сверху --- mov eax,38 mov ebx,ed_left mov ecx,ebx shl ebx,16 mov bx,cx add ebx,ed_width mov ecx,ed_top mov esi,ecx shl ecx,16 mov cx,si mcall ;--- снизу --- mov esi,ecx add ecx,ed_height mov ebp,ecx shl ecx,16 mov cx,bp mcall ;--- слева --- mov cx,si mov ebp,ebx sub ebx,ed_width mcall ;--- справа --- mov ebx,ebp shl ebx,16 mov bx,bp mcall ret ;---------------------------------------------------------- ;--- проверка, зашел ли курсор за границы и, если надо, --- ;--- изменяем смещение ------------------------------------ ;--- если смещение было, установка флага ed_offset_cl, иначе, ; если ничего не изменилось, то выставление ed_offset_fl ; в общей битовой матрице состояния компонентов word ed_flags ;---------------------------------------------------------- edit_box.check_offset: pushad mov ecx,ed_pos mov ebx,ed_offset cmp ebx,ecx ja edit_box.sub_8 push ebx call edit_box.get_n ;получим кол-во символов которые умещаются в ширине компонента, в паре регистров edx:eax pop ebx mov edx,ebx add edx,eax ;ed_offset+width editbox inc edx ;необходимо для нормального положения курсора в крайней левой позиции cmp edx,ecx ja @f mov edx,ed_size cmp edx,ecx je edit_box.add_end sub edx,ecx cmp edx,8 jbe edit_box.add_8 add ebx,8 jmp edit_box.chk_d edit_box.sub_8: test ecx,ecx jz edit_box.sub_min cmp ebx,8 jbe edit_box.sub_min sub ebx,8 ;ebx=ed_offset jmp edit_box.chk_d edit_box.sub_min: xor ebx,ebx jmp edit_box.chk_d edit_box.add_end:sub edx,eax mov ebx,edx jmp edit_box.chk_d edit_box.add_8: add ebx,edx edit_box.chk_d: mov ed_offset,ebx call edit_box.draw_bg and word ed_flags,ed_offset_cl edit_ex @@: or word ed_flags,ed_offset_fl edit_ex align 4 proc edit_box_set_text, edit:dword, text:dword pushad mov edi,dword[edit] mov ecx,ed_max inc ecx ;учитываем будущее обрезание строки для ascii 0 mov edi,dword[text] xor al,al cld repne scasb ;поиск в строке edi символа al mov ecx,edi ;ecx = text + мин. значение из: 1) ed_max или 2) длины строки text mov edi,dword[edit] mov esi,dword[text] sub ecx,esi ;ecx = длина строки text (но не больше чем ed_max) dec ecx mov ed_size,ecx ;ставим новый размер строки mov ed_pos,ecx ;ставим курсор в конец новой строки and word ed_flags,ed_shift_cl ;снимаем выделение если оно было mov edi,ed_text repne movsb ;копирование текстовой строки text в edit_box mov byte[edi],0 ;ставим ascii 0 в конце строки popad ret endp } macro use_key_func { ;Обработка Shift для снятия выделения неизвестной области edit_box_key.shift: ;;;;;;;SHIFT call edit_box.draw_bg test word ed_flags,ed_shift je edit_box_key.f_exit mov ebp,shift_color or word ed_flags,ed_shift_bac ;установка флага, выделенной области mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ jmp edit_box.draw_cursor_text ;;;;;;;;;;;;;;;;;;;;; edit_box_key.f_exit: call edit_box.check_offset and word ed_flags,ed_shift_cl call edit_box_key.enable_null jmp edit_box.draw_cursor_text edit_box_key.sh_cl_: ;;;;;;SHIFT end ;обработка очистки, при левом - правом движении выделения ;для обработки снятия выделения ;входные параметры ebp=color ebx=ed_shift_pos mov eax,dword ed_pos cmp eax,ebx jae edit_box_key.sh_n push eax ;меньшее в eax push ebx ;большее jmp edit_box_key.sh_n1 ;если иначе edit_box_key.sh_n: push ebx push eax edit_box_key.sh_n1: call edit_box.check_offset call edit_box.get_n mov edx,eax ;size of ed_box mov ecx,ed_offset add eax,ecx ;eax = w_off= ed_offset+width mov edx,eax ;save pop ebx ;большее pop eax ;меньшее cmp eax,ecx ;сравнение меньшего с offset. jae edit_box_key.f_f ;если больше xor eax,eax cmp edx,ebx ;cравним размер w_off с большим jb @f sub ebx,ecx jmp edit_box_key.nxt_f @@: mov ebx,edx sub ebx,ecx jmp edit_box_key.nxt_f edit_box_key.f_f: sub eax,ecx cmp edx,ebx ;cравним размер w_off с большим jle @f sub ebx,ecx sub ebx,eax jmp edit_box_key.nxt_f @@: mov ebx,edx sub ebx,ecx sub ebx,eax edit_box_key.nxt_f: mov edx,ebx lea ebx,[eax*2+eax] shl ebx,1 add ebx,ed_left inc ebx shl ebx,16 lea ecx,[edx*2+edx] shl ecx,1 mov bx,cx inc ebx mov edx,ebp;shift_color call edit_box.draw_bg_eax @@: call edit_box_key.enable_null ret ;;;;;;;;;;;;;;;;;;;;; ;Установка- снятие выделения в один символ ;;;;;;;;;;;;;;;;;;;;; edit_box_key.drw_sim: mov eax,dword ed_pos call edit_box_key.draw_rectangle ;нарисовать прямоугольник с заданным цветом jmp @b ;;;;;;;;;;;;;;;;;;;;; ;Функция установки выделения при движении влево и вправо и нажатии shift ;Логика: ;;;;;;;;;; edit_box_key.draw_wigwag: ;функция установки переменных mov ebp,shift_color call edit_box.clear_cursor or word ed_flags,ed_shift_bac ;установка флага выделенной области mov ebp,shift_color mov eax,dword ed_pos test word ed_flags,ed_left_fl jz edit_box_key.low jmp @f ;;;;;;;;;; ;Функция удаления выделения при движении влево и вправо и нажатии shift ;Логика: ;;;;;;;;;; edit_box_key.draw_wigwag_cl: ;функция установки переменных mov ebp,ed_color call edit_box.clear_cursor mov ebp,ed_color mov eax,dword ed_pos test word ed_flags,ed_left_fl jz edit_box_key.low @@: call edit_box_key.draw_rectangle ;нарисовать прямоугольник закрашиваемой области ret edit_box_key.low: dec eax jmp @b ;входной параметр ebx - ed_pos edit_box_key.sh_first_sh: test word ed_flags,ed_shift je @f mov dword ed_shift_pos_old,ebx test word ed_flags,ed_shift_on jne @f mov dword ed_shift_pos,ebx or word ed_flags,ed_shift_on @@: ret ;Обработка крайних положений в editbox при нажатом shift ;производит снятие выделения, если нет shift ;иначе вообще выходит edit_box_key.sh_st_of: test word ed_flags,ed_shift jne @f test word ed_flags,ed_shift_bac je @f call edit_box.draw_bg mov ebp,ed_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ ;очистка выделеного фрагмента and word ed_flags,ed_shift_cl ; очистка от того, что убрали выделение jmp edit_box.draw_cursor_text @@: and word ed_flags,ed_shift_off popad ret 4 ;проверка состояния shift, был ли он нажат раньше? edit_box_key.sh_enable: test word ed_flags,ed_shift jne edit_box_key.sh_ext_en ;нарисовать закрашенный прямоугольник test word ed_flags,ed_shift_bac je @f call edit_box.check_offset mov ebp,ed_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ ;очистка выделенного фрагмента call edit_box_key.draw_wigwag_cl and word ed_flags,ed_shift_cl ; 1вар не нужно ret @@: mov ebp,ed_color call edit_box.clear_cursor call edit_box.check_offset ret edit_box_key.sh_ext_en: call edit_box.check_offset test word ed_flags,ed_offset_fl je @f ;Рисование закрашенных прямоугольников и их очистка mov eax,dword ed_shift_pos mov ebx,dword ed_pos mov ecx,dword ed_shift_pos_old ;проверка и рисование закрашенных областей cmp eax,ecx je edit_box_key.1_shem jb edit_box_key.smaller cmp ecx,ebx ja edit_box_key.1_shem call edit_box_key.draw_wigwag_cl ;clear jmp edit_box_key.sh_e_end edit_box_key.smaller: cmp ecx,ebx jb edit_box_key.1_shem call edit_box_key.draw_wigwag_cl ;clear jmp edit_box_key.sh_e_end ;alike = edit_box_key.1_shem: call edit_box_key.draw_wigwag edit_box_key.sh_e_end: and word ed_flags,ed_shift_off ret @@: mov ebp,shift_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ jmp edit_box_key.sh_e_end ;функция для обработки shift при нажатии home and end edit_box_key.sh_home_end: mov ebp,ed_color call edit_box.clear_cursor test word ed_flags,ed_shift_bac je @f mov ebp,ed_color mov ebx,dword ed_shift_pos_old call edit_box_key.sh_cl_ @@: test word ed_flags,ed_shift je edit_box_key.sh_exit_ ;выйти mov ebp,shift_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ or word ed_flags,ed_shift_bac ;установка флага, выделенной области jmp edit_box_key.sh_e_end edit_box_key.sh_exit_: call edit_box.draw_bg call edit_box.check_offset ret ;функция внесения 0 по адресу ed_size+1 edit_box_key.enable_null: pusha mov eax,ed_size mov ebx,ed_text test eax,eax add eax,ebx jne @f inc eax @@: xor ebx,ebx mov [eax],bl edit_ex ;- удаление символа ;Входные данные edx=ed_size;ecx=ed_pos edit_box_key.del_char: mov esi,ed_text test word ed_flags,ed_shift_on je @f mov eax,dword ed_shift_pos mov ebx,esi cmp eax,ecx jae edit_box_key.dh_n mov ed_pos,eax ;чтобы не было убегания курсора mov ebp,ecx sub ebp,eax add ebx,eax ;eax меньше sub edx,ecx add esi,ecx mov dword ed_shift_pos,ebp jmp edit_box_key.del_ch_sh ;если иначе edit_box_key.dh_n: mov ebp,eax sub ebp,ecx add ebx,ecx sub edx,eax add esi,eax mov dword ed_shift_pos,ebp jmp edit_box_key.del_ch_sh @@: add esi,ecx ;указатель + смещение к реальному буферу mov ebx,esi inc esi cld sub edx,ecx edit_box_key.del_ch_sh: push edi mov edi,ebx @@: lodsb stosb dec edx jns @b pop edi ret ;вычислить закрашиваемую область ;соглашение в ebp - передается ed_size edit_box_key.clear_bg: call edit_box.get_n ;получить размер в символах ширины компонента push eax mov ebx,ed_offset add eax,ebx ;eax = w_off= ed_offset+width mov ebx,ebp ;ed_size cmp eax,ebx jb @f mov eax,ed_pos sub ebx,eax mov ecx,ed_offset sub eax,ecx jmp edit_box_key.nxt @@: mov ebx,ed_pos push ebx sub eax,ebx mov ebx,eax ;It is not optimal pop eax ;ed_pos mov ecx,ed_offset sub eax,ecx edit_box_key.nxt: mov ebp,eax ;проверка на выход закрашиваемой области за пределы длины add ebp,ebx pop edx cmp ebp,edx je @f inc ebx @@: mov edx,ebx lea ebx,[eax*2+eax] shl ebx,1 add ebx,ed_left inc ebx shl ebx,16 lea ecx,[edx*2+edx] shl ecx,1 mov bx,cx mov edx,ed_color call edit_box.draw_bg_eax ret ;;;;;;;;;;;;;;;;;;; ;;; Обработка примитивов ;;;;;;;;;;;;;;;;;;;; ;Нарисовать прямоугольник, цвет передается в ebp ;входные параметры: ;eax=dword ed_pos ;ebp=-цвет ed_color or shift_color edit_box_key.draw_rectangle: mov ecx,dword ed_offset sub eax,ecx lea ebx,[eax*2+eax] shl ebx,1 inc ebx add ebx,ed_left shl ebx,16 add ebx,6 mov edx,ebp call edit_box.draw_bg_eax ret ;;;;;;;;;;;;;;;;;; ;;Проверка нажат ли shift ;;;;;;;;;;;;;;;;;; edit_box_key.check_shift_ctrl_alt: pusha ;сохраним все регистры mcall 66,3 test al,11b je @f or word ed_flags,ed_shift ;установим флаг Shift @@: and word ed_flags,ed_ctrl_off ; очистим флаг Ctrl test al,1100b je @f or word ed_flags,ed_ctrl_on ;установим флаг Ctrl @@: and word ed_flags,ed_alt_off ; очистим флаг Alt test al,110000b je @f or word ed_flags,ed_alt_on ;установим флаг Alt @@:edit_ex } macro use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll { if up eq else cmp ah,177 jz edit_box.editbox_exit end if if down eq else cmp ah,178 jz edit_box.editbox_exit end if if esc eq else cmp ah,27 ;ESC - клавиша )) jz edit_box.editbox_exit end if if enter eq else cmp ah,13 ;ENTER - клавиша )) jz edit_box.editbox_exit end if if tab eq else cmp ah,9 ;TAB - клавиша )) jz edit_box.editbox_exit end if if numl eq else cmp ah,4 ;Num Lock - клавиша )) jz edit_box.editbox_exit end if if capsl eq else cmp ah,2 ;Caps Lock - клавиша )) jz edit_box.editbox_exit end if if scrolll eq else cmp ah,1 ;Scroll Lock - клавиша )) jz edit_box.editbox_exit end if } macro use_key_figures_only { test word ed_flags,ed_figure_only ; только цифры? jz @f cmp ah,'0' jb edit_box.editbox_exit cmp ah,'9' ja edit_box.editbox_exit @@: } macro are_key_shift_press { test word ed_flags,ed_shift_on je @f ;Входные данные edx=ed_size;ecx=ed_pos push eax mov edx,ed_size mov ecx, ed_pos pusha ;;;;;;;;;;;;;;;;;;;;; ;clear input arrea mov ebp,ed_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ mov ebp,ed_size call edit_box_key.clear_bg ;;;;;;;;;;;;;;;;;;;;; popa call edit_box_key.del_char ;;;; mov ebx,ed_size sub ebx,dword ed_shift_pos mov ed_size,ebx pop eax @@: } macro are_key_cur_end { mov ecx,ed_size mov edx, ed_max test word ed_flags,ed_insert jne @f cmp ecx,edx jae edit_box.editbox_exit @@: mov ebx, ed_pos cmp ebx,edx jl @f ; если меньше или равно jmp edit_box.editbox_exit @@: ; сдвигаем символы после курсора вправо mov ecx,ed_size push edi eax mov ebp,edi mov esi,ed_text ; Указатель на буфер ;Будем работать со строкой add esi,ecx ;add ed_size добавим max size mov edi,esi cmp ecx,ebx ;Если у нас позиция курсора = текущему размеру напечатанных символов т.е. курсор стоит в конце je edit_box_key.In_k test dword bp_flags,ed_insert ;IF insert is enabled т.к. edi изменен, адресуем через ebp jne edit_box_key.ins_v ;clear pusha mov edi,ebp mov ebp,ed_size call edit_box_key.clear_bg popa sub ecx,ebx ;Найдем кол-во символов для передвижения. inc edi ;Сместим наши символы вправо std inc ecx @@: ;-------- lodsb stosb ;-------- loop @b edit_box_key.In_k: cld pop eax mov al,ah stosb pop edi ; вставляем код клавиши туда, где курсор ; увеличиваем значение размера и позиции inc dword ed_size inc dword ed_pos call edit_box_key.draw_all2 jmp edit_box_key.shift } macro use_work_key { edit_box_key.insert: test word ed_flags,ed_insert ;not word ed_insert je @f and word ed_flags,ed_insert_cl jmp edit_box.editbox_exit @@: or word ed_flags,ed_insert jmp edit_box.editbox_exit edit_box_key.ins_v: ; dec dword [ebp+48];ed_size ;processing is insert dec dword bp_size sub esi,ecx add esi,ebx mov edi,esi ;clear pusha mov edi,ebp mov ebp,ed_pos call edit_box_key.clear_bg popa jmp edit_box_key.In_k ;;;;;;;;;;;;;;;;;;;;;;;;;;;; edit_box_key.delete: mov edx,ed_size mov ecx,ed_pos cmp edx,ecx jg edit_box_key.bac_del test word ed_flags,ed_shift_on jne edit_box_key.del_bac popad ret 4 edit_box_key.bac_del: call edit_box_key.del_char jmp edit_box_key.draw_all ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;--- нажата клавиша backspace --- edit_box_key.backspace: test word ed_flags,ed_shift_on jne edit_box_key.delete ; проверяем, курсор у левого края? mov ecx,ed_pos test ecx,ecx jnz edit_box_key.del_bac popad ret 4 edit_box_key.del_bac: mov edx,ed_size cmp edx,ecx ;if ed_pos=ed_size je @f dec ecx call edit_box_key.del_char @@: test word ed_flags,ed_shift_on jne edit_box_key.bac_del dec dword ed_pos edit_box_key.draw_all: push edit_box_key.shift;.draw_cursor_text;eax test word ed_flags,ed_shift_on je @f mov eax,dword ed_shift_pos mov ebx,ed_size sub ebx,eax mov ed_size,ebx mov ebp,ed_color call edit_box.clear_cursor call edit_box.check_offset call edit_box.draw_bg ret @@: dec dword ed_size edit_box_key.draw_all2: and word ed_flags,ed_shift_cl mov ebp,ed_color call edit_box.clear_cursor call edit_box.check_offset mov ebp,ed_size call edit_box_key.clear_bg ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;--- нажата клавиша left --- edit_box_key.left: mov ebx,ed_pos test ebx,ebx jz edit_box_key.sh_st_of or word ed_flags,ed_left_fl call edit_box_key.sh_first_sh dec dword ed_pos call edit_box.draw_bg call edit_box.draw_shift call edit_box_key.sh_enable jmp edit_box.draw_cursor_text ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;--- нажата клавиша right --- edit_box_key.right: mov ebx,ed_pos cmp ebx,ed_size je edit_box_key.sh_st_of and word ed_flags,ed_right_fl call edit_box_key.sh_first_sh inc dword ed_pos call edit_box.draw_bg call edit_box.draw_shift call edit_box_key.sh_enable jmp edit_box.draw_cursor_text ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; edit_box_key.home: mov ebx,ed_pos test ebx,ebx jz edit_box_key.sh_st_of call edit_box_key.sh_first_sh xor eax,eax mov ed_pos,eax call edit_box.draw_bg call edit_box.draw_shift call edit_box_key.sh_home_end jmp edit_box.draw_cursor_text ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; edit_box_key.end: mov ebx,ed_pos cmp ebx,dword ed_size je edit_box_key.sh_st_of call edit_box_key.sh_first_sh mov eax,ed_size mov ed_pos,eax call edit_box.draw_bg call edit_box.draw_shift call edit_box_key.sh_home_end jmp edit_box.draw_cursor_text ;----------------------------------------------------------------------------- edit_box_key.ctrl_c: ; add memory area mov ecx,ed_size add ecx,3*4 mcall 68,12 ; building the clipboard slot header xor ecx,ecx mov [eax+4],ecx ; type 'text' inc ecx mov [eax+8],ecx ; cp866 text encoding mov ecx,ed_size add ecx,3*4 mov [eax],ecx sub ecx,3*4 ; copy data mov esi,ed_text push edi mov edi,eax add edi,3*4 cld rep movsb pop edi ; put slot to the kernel clipboard mov edx,eax mov ecx,[edx] push eax mcall 54,2 pop ecx ; remove unnecessary memory area mcall 68,13 ;-------------------------------------- .exit: jmp edit_box.editbox_exit ;----------------------------------------------------------------------------- edit_box_key.ctrl_v: mcall 54,0 ; no slots of clipboard ? test eax,eax jz .exit ; main list area not found ? inc eax test eax,eax jz .exit sub eax,2 mov ecx,eax mcall 54,1 ; main list area not found ? inc eax test eax,eax jz .exit ; error ? sub eax,2 test eax,eax jz .exit inc eax ; check contents of container mov ebx,[eax+4] ; check for text test ebx,ebx jnz .no_valid_text mov ebx,[eax+8] ; check for cp866 cmp bl,1 jnz .no_valid_text mov ecx,[eax] sub ecx,3*4 cmp ecx,ed_max jb @f mov ecx,ed_max @@: mov esi,eax add esi,3*4 mov ed_size,ecx mov ed_pos,ecx push eax edi mov edi,ed_text cld @@: lodsb cmp al,0x0d ; EOS (end of string) je .replace cmp al,0x0a ; EOS (end of string) jne .continue .replace: mov al,0x20 ; space .continue: stosb dec ecx jnz @b ; rep movsb pop edi eax ;-------------------------------------- .no_valid_text: ; remove unnecessary memory area mov ecx,eax mcall 68,13 ;-------------------------------------- .exit: jmp edit_box.draw_1 } macro use_mouse_func { ;---------------------------------------------------------- ;--- Обработка .mouse_wigwag ;---------------------------------------------------------- edit_box_mouse.mouse_wigwag: push eax call edit_box.draw_bg call edit_box.draw_shift pop eax shr eax,16 or word ed_flags,ed_shift_bac+ed_shift_on+ed_shift ;;;;;;;;;;;;;;;;;; ;;процедура обработки положения выделенного текста, когда происходит выход за пределы editbox ;;;;;;;;;;;;;;;;;; test ax,0x8000 jnz edit_box_mouse.mleft mov ebx,ed_left cmp eax,ebx jb edit_box_mouse.mleft add ebx,ed_width cmp eax,ebx ja edit_box_mouse.mright sub ebx,ed_width xor edx,edx sub eax,ebx ; вычтем из координат мышки по оси х координаты до editbox по оси х mov ebx,6 div ebx ;;;;;;;;;;;;;;;;;; ;;процедура обработки положения выделенного текста, в пределах области editbox ;;;;;;;;;;;;;;;;;; ;Получили координаты в eax мышки, т.е. куда она переместилась ;Рисование закрашенных прямоугольников и их очистка add eax,ed_offset ;добавим смещение cmp eax,dword ed_size ;если вышли за пределы, то ничего не делать ja edit_box_mouse.mwigvag edit_box_mouse.mdraw: mov dword ed_pos,eax ;сохраним новое значение ;Рисование закрашенных прямоугольников и их очистка mov ecx,dword ed_shift_pos mov ebx,dword ed_shift_pos_old mov dword ed_shift_pos_old,eax ;внесем новое значение старой позиции курсора ;проверка и рисование закрашенных областей cmp ecx,ebx ;выясняем куда было движение на один шаг назад je edit_box_mouse.m1_shem ;движения не было ранее jb edit_box_mouse.msmaller ;движение было -> cmp ebx,eax ;движение было до этого <- и тут мы проверяем сейчас куда движение происходит ja edit_box_mouse.m1_shem ;если было движение <- то нужно закрасить область je edit_box_mouse.mwigvag ;если изменения не было, то ничего не делать mov ebp,ed_color ;тут нужно очистить область c ed_pos ed_shift_pos_old ;входные параметры ebp=color ebx=ed_shift_pos call edit_box_key.sh_cl_ jmp edit_box_mouse.mwigvag edit_box_mouse.msmaller: cmp ebx,eax jb edit_box_mouse.m1_shem mov ebp,ed_color ;входные параметры ebp=color ebx=ed_shift_pos call edit_box_key.sh_cl_ jmp edit_box_mouse.mwigvag ;alike = edit_box_mouse.m1_shem: mov ebp,shift_color ;входные параметры ebp=color ebx=ed_shift_pos mov ebx,ecx call edit_box_key.sh_cl_ jmp edit_box_mouse.mwigvag edit_box_mouse.mwigvag: and word ed_flags,ed_shift_mcl jmp edit_box.draw_cursor_text edit_box_mouse.mleft: mov eax,ed_pos cmp eax,0 jbe edit_box_mouse.mwigvag dec eax call edit_box.check_offset push eax mov ebx,ed_shift_pos mov ebp,shift_color call edit_box_key.sh_cl_ pop eax jmp edit_box_mouse.mdraw edit_box_mouse.mright: mov eax,ed_pos mov ebx,ed_size cmp eax,ebx jae edit_box_mouse.mwigvag inc eax call edit_box.check_offset mov ebx,ed_shift_pos mov ebp,shift_color push eax call edit_box_key.sh_cl_ pop eax jmp edit_box_mouse.mdraw } macro use_work_mouse ;---------------------------------------------------------- ;--- А не удерживаем ли мы клавишу мышки, перемещая курсор, во все разные стороны? ;---------------------------------------------------------- { test word ed_flags,ed_mouse_on jne edit_box_mouse.mouse_wigwag ;---------------------------------------------------------- ;--- проверяем, попадает ли курсор в edit box ------------- ;---------------------------------------------------------- mov ebx,ed_top cmp ax,bx jl edit_box_mouse._blur;.mouse_end_no_focus add ebx,ed_height cmp ax,bx jg edit_box_mouse._blur;.mouse_end_no_focus shr eax,16 mov ebx,ed_left cmp ax,bx jl edit_box_mouse._blur;.mouse_end_no_focus add ebx,ed_width cmp ax,bx jg edit_box_mouse._blur;.mouse_end_no_focus ;--- изменяем позицию курсора --- push eax mov ebp,ed_color call edit_box.clear_cursor pop eax edit_box_mouse._mvpos: xor edx,edx sub eax,ed_left mov ebx,6 div bx add eax,ed_offset cmp eax,ed_size jna edit_box_mouse._mshift mov eax,ed_size edit_box_mouse._mshift: ;;;;;;; ;;Секция обработки shift и выделения по shift ;;;;;;; test word ed_flags,ed_shift_bac je @f mov ebp,dword ed_color mov ebx,dword ed_shift_pos push eax call edit_box_key.sh_cl_ and word ed_flags,ed_shift_bac_cl pop eax @@: test word ed_flags,ed_mouse_on jne @f mov dword ed_shift_pos,eax or word ed_flags,ed_mouse_on mov dword ed_pos,eax mov ebx,dword ed_mouse_variable push edi pop dword [ebx] bts word ed_flags,1 ;установка фокуса call edit_box.draw_bg jmp edit_box_mouse.m_sh @@: cmp eax,dword ed_shift_pos ;если позиции не изменились je edit_box.editbox_exit mov ed_pos,eax call edit_box.draw_bg mov ebp,dword shift_color mov ebx,dword ed_shift_pos call edit_box_key.sh_cl_ or word ed_flags,ed_mous_adn_b ;установим бит, что мы выделили +shift_on + edit_box_mouse.m_sh: call edit_box.draw_text call edit_box.draw_cursor ;---------------------------------------------------------- ;--- процедура установки фокуса --------------------------- ;---------------------------------------------------------- jmp edit_box_mouse.drc edit_box_mouse._blur: test word ed_flags,ed_always_focus jne edit_box.editbox_exit btr word ed_flags,1 ; если не в фокусе, выходим jnc edit_box.editbox_exit mov ebp,ed_color call edit_box.clear_cursor edit_box_mouse.drc: call edit_box.draw_border jmp edit_box.editbox_exit } ; Макрос выхода macro edit_ex { popad ret } macro debug { ;----------- отладка pushad ; mov dword [ed_buffer.2],0 ; mov eax,edi mov eax,dword [ed_buffer.2] mov edi,ed_buffer.3 call .str ;рисование фона mov eax,13 mov ebx,178*65536+70 mov ecx,28*65536+10 xor edx,edx int 0x40 ;вывод значения на экран mov eax,4 mov ebx,180*65536+30 mov ecx,0x10DDBBCC mov edx,ed_buffer.3 mov esi,8 int 0x40 popad ;----------- отладка } macro debug_func { .str: mov ecx,0x0a ;задается система счисления, изменяются регистры ebx,eax,ecx,edx, входные параметры eax - число ;перевод числа в ASCII строку, входные данные ecx=система счисления, edi адрес куда будем записывать строку, причем конец переменной cmp eax,ecx ;сравнить, если в eax меньше, чем в ecx, то перейти на @@-1 т.е. на pop eax jb @f xor edx,edx ;очистить edx div ecx ;разделить - остаток в edx push edx ;положить в стек ;dec edi ;смещение необходимое для записи с конца строки call .str ;перейти на саму себя т.е. вызвать саму себя и так до того момента, пока в eax не станет меньше чем в ecx pop eax @@: ;cmp al,10 ;проверить не меньше ли значение в al, чем 10 (для системы счисления 10 данная команда - лишная)) ;sbb al,$69 ;- честно, данная инструкция меня заставляет задуматься т.е. я не знаю как это работает ;das ;после данной команды как бы происходит уменьшение al на 66h (в книге написано другое) or al,0x30 ;данная команда короче, чем две выше stosb ;записать элемент из регистра al в ячейку памяти es:edi ret ;вернуться очень интересный ход, т.к. пока в стеке хранится кол-во вызовов, то столько раз мы и будем вызываться } ed_struc_size=76