Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1030 → Rev 1031

/programs/develop/examples/editbox/trunk/EDITBOX.INC
69,7 → 69,7
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
use_key_no_process up,down,esc
use_key_no_process up,down,esc,enter,tab,numl,capsl,scrolll
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥ ¥á«¨ â ª®©­¥®¡å®¤¨¬®á⨠­¥â ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
/programs/develop/examples/editbox/trunk/History
6,6 → 6,7
Ýòî íå ìíîãî ôîëüêëåðà, ñâÿçàííîå, ñ òåì, ÷òî íàïèñàíèå ïðîãðàìì äëèííûå è ìóòîðíûé ïðîöåññ, è îí íå îáõîäèòüñÿ áåç âûðàæåíèé ïîäîáíîãî ñîäåðæàíèÿ, íî íå ïîïàäàþùåãî â êîìåíòàðèè è îñíîâíîé êîä.....
 
Òåïëîâ Àëåêñåé Þðüåâè÷ 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
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