aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

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

Browse Source 
git-svn-id: svn://kolibrios.org@1031 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov (
2009-02-13 08:46:15 +00:00
parent 54be51b2aa
commit 00b249be6f
4 changed files with 36 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
programs/develop/examples/editbox/trunk/editbox.mac
View File

@@ -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 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
jz .editbox_exit
jz edit_box.editbox_exit
end if
if enter eq
else
cmp ah,13 ;ENTER - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
jz edit_box.editbox_exit
end if
if tab eq
else
cmp ah,9 ;TAB - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
jz edit_box.editbox_exit
end if
if numl eq
else
cmp ah,4 ;Num Lock - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
jz edit_box.editbox_exit
end if
if capsl eq
else
cmp ah,2 ;Caps Lock - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
jz edit_box.editbox_exit
end if
if scrolll eq
else
cmp ah,1 ;Scroll Lock - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
jz edit_box.editbox_exit
end if
}
macro use_key_figures_only