diff --git a/programs/develop/examples/editbox/trunk/EDITBOX.INC b/programs/develop/examples/editbox/trunk/EDITBOX.INC index e7916027a3..ab9b98d8d6 100644 --- a/programs/develop/examples/editbox/trunk/EDITBOX.INC +++ b/programs/develop/examples/editbox/trunk/EDITBOX.INC @@ -69,7 +69,7 @@ use_key_process backspase,delete,left,right,home,end,insert ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;‡ Ј«гиЄ  ­  ®Ўа Ў®вЄг Є« ўЁи ўўҐае Ё ў­Ё§ в.Ґ. ЇаЁ ®Ў­ а㦥­ЁЁ нвЁе Є®¤®ў Їа®Ёб室Ёв ўл室 Ё§ ®Ўа Ў®взЁЄ  ;;;;;;;;;;;;;;;;;;;;;;;;;;;; -use_key_no_process up,down,esc +use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll ;--- ­ ¦ в  ¤агЈ п Є« ўЁи  --- ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Џа®ўҐаЄ  гбв ­®ў«Ґ­ «Ё д« Ј ЇаЁ Є®в®а®¬ ­г¦­® ўлў®¤Ёвм в®«мЄ® жЁдал ў ­г¦­®¬ Ў®ЄбҐ Ґб«Ё в Є®©­Ґ®Ўе®¤Ё¬®бвЁ ­Ґв ­г¦­® § Є®¬Ґ­вЁа®ў вм ¬ Єа®б diff --git a/programs/develop/examples/editbox/trunk/History b/programs/develop/examples/editbox/trunk/History index c14c59bcf2..74af51989d 100644 --- a/programs/develop/examples/editbox/trunk/History +++ b/programs/develop/examples/editbox/trunk/History @@ -6,6 +6,7 @@ You bunny wrote ..... Это не много фольклера, связанное, с тем, что написание программ длинные и муторный процесс, и он не обходиться без выражений подобного содержания, но не попадающего в коментарии и основной код..... Теплов Алексей Юрьевич aka +; 13.02.2009 По умолчанию используется обрабатывается клавиши NUM Lock, Caps Lock, Scroll Lock, ранее нажатие на них приводило к отображению пустых значений в боксе ; 23.07.2008 Переписана обработка мышки без использования 9-ой функции, уменьшил примерно на 50 байт код. ; 20.07.2007 Косметические улучшения в коде программы, исправлен один несущественный баг. ; 18.05.2007 Улучшение понимания работы программы за счет вынеса основных функций в отдельные макросы diff --git a/programs/develop/examples/editbox/trunk/build_ru.bat b/programs/develop/examples/editbox/trunk/build_ru.bat index 5e71f3c267..838d8dfd03 100644 --- a/programs/develop/examples/editbox/trunk/build_ru.bat +++ b/programs/develop/examples/editbox/trunk/build_ru.bat @@ -1,3 +1,3 @@ -@fasm editbox.asm editbox.kex +@fasm -m 16384 editbox.asm editbox.kex REM @kpack editbox @pause \ No newline at end of file diff --git a/programs/develop/examples/editbox/trunk/editbox.mac b/programs/develop/examples/editbox/trunk/editbox.mac index f1c2beeb58..896e6047e5 100644 --- a/programs/develop/examples/editbox/trunk/editbox.mac +++ b/programs/develop/examples/editbox/trunk/editbox.mac @@ -587,23 +587,52 @@ else jz .insert end if } -macro use_key_no_process up,down,esc +macro use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll { if up eq else cmp ah,177 - jz .editbox_exit + jz edit_box.editbox_exit end if if down eq else cmp ah,178 - jz .editbox_exit + jz edit_box.editbox_exit end if if esc eq else cmp ah,27 ;ESC - Є« ўЁи  )) - jz .editbox_exit + 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