From 00b249be6f8c5678573cc7215331f9b405d979fd Mon Sep 17 00:00:00 2001
From: "Alexey Teplov (" <Lrz) 200_u_200@mail.ru>
Date: Fri, 13 Feb 2009 08:46:15 +0000
Subject: [PATCH] bugfix, correct work NUM Lock, Caps Lock, Scroll Lock

git-svn-id: svn://kolibrios.org@1031 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 .../examples/editbox/trunk/EDITBOX.INC        |  2 +-
 .../develop/examples/editbox/trunk/History    |  1 +
 .../examples/editbox/trunk/build_ru.bat       |  2 +-
 .../examples/editbox/trunk/editbox.mac        | 37 +++++++++++++++++--
 4 files changed, 36 insertions(+), 6 deletions(-)

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 <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 Улучшение понимания работы программы за счет вынеса основных функций в отдельные макросы
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