Subversion Repositories Kolibri OS

Rev

Rev 830 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 830 Rev 1031
Line 585... Line 585...
585 
else
 585 
else
586 
        cmp     ah,185  ;insert
 586 
        cmp     ah,185  ;insert
587 
        jz      .insert
 587 
        jz      .insert
588 
end if
 588 
end if
589 
}
 589 
}
590 
macro use_key_no_process  up,down,esc
 590 
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll
591 
{
 591 
{
592 
if up eq
592 
if up eq
593 
else
 593 
else
594 
        cmp     ah,177
 594 
        cmp     ah,177
595 
        jz      .editbox_exit
 595 
        jz      edit_box.editbox_exit
596 
end if
 596 
end if
597 
if down eq
597 
if down eq
598 
else
 598 
else
599 
        cmp     ah,178
 599 
        cmp     ah,178
600 
        jz      .editbox_exit
 600 
        jz      edit_box.editbox_exit
601 
end if
 601 
end if
602 
if esc eq
602 
if esc eq
603 
else
 603 
else
604 
        cmp     ah,27   ;ESC - ª« ¢¨è  ))
 604 
        cmp     ah,27   ;ESC - ª« ¢¨è  ))
605 
        jz      .editbox_exit
 605 
        jz      edit_box.editbox_exit
606 
end if
 606 
end if
- 
 
 607 
if enter eq
- 
 
 608 
else
- 
 
 609 
        cmp     ah,13   ;ENTER - ª« ¢¨è  ))
- 
 
 610 
        jz      edit_box.editbox_exit
- 
 
 611 
end if
- 
 
 612 
if tab eq
- 
 
 613 
else
- 
 
 614 
        cmp     ah,9   ;TAB - ª« ¢¨è  ))
- 
 
 615 
        jz      edit_box.editbox_exit
- 
 
 616 
end if
- 
 
 617 
 
- 
 
 618 
if numl eq
- 
 
 619 
else
- 
 
 620 
        cmp     ah,4   ;Num Lock - ª« ¢¨è  ))
- 
 
 621 
        jz      edit_box.editbox_exit
- 
 
 622 
end if
- 
 
 623 
 
- 
 
 624 
if capsl eq
- 
 
 625 
else
- 
 
 626 
        cmp     ah,2   ;Caps Lock - ª« ¢¨è  ))
- 
 
 627 
        jz      edit_box.editbox_exit
- 
 
 628 
end if
- 
 
 629 
 
- 
 
 630 
if scrolll eq
- 
 
 631 
else
- 
 
 632 
        cmp     ah,1   ;Scroll Lock - ª« ¢¨è  ))
- 
 
 633 
        jz      edit_box.editbox_exit
- 
 
 634 
end if
- 
 
 635 
 
607 
}
 636 
}
Line 608... Line 637...
608 
 
 637 
 
609 
macro use_key_figures_only
 638 
macro use_key_figures_only
610 
{
 639 
{