bugfix, correct work NUM Lock, Caps Lock, Scroll Lock

git-svn-id: svn://kolibrios.org@1031 a494cfbc-eb01-0410-851d-a64ba20cac60

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
 ;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;<3B>஢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥ ¥á«¨ â ª®©­¥®¡å®¤¨¬®á⨠­¥â ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á

programs/develop/examples/editbox/trunk/History

@@ -6,6 +6,7 @@ You bunny wrote .....
 Это не много фольклера, связанное, с тем, что написание программ длинные и муторный процесс, и он не обходиться без выражений подобного содержания, но не попадающего в коментарии и основной код.....
 
 Теплов Алексей Юрьевич aka <Lrz>  
+; <Lrz> 13.02.2009 По умолчанию используется обрабатывается клавиши NUM Lock, Caps Lock, Scroll Lock, ранее нажатие на них приводило к отображению пустых значений в боксе
 ; <Lrz> 23.07.2008 Переписана обработка мышки без использования 9-ой функции, уменьшил примерно на 50 байт код.
 ; <Lrz> 20.07.2007 Косметические улучшения в коде программы, исправлен один несущественный баг.
 ; <Lrz> 18.05.2007 Улучшение понимания работы программы за счет вынеса основных функций в отдельные макросы

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

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