Subversion Repositories Kolibri OS

Rev

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

Rev 3090 Rev 3130
Line 52... Line 52...
52 
;à®¢¥àª  ­ ¦ â shift ?
 52 
;à®¢¥àª  ­ ¦ â shift ?
53 
        call    edit_box_key.check_shift
 53 
        call    edit_box_key.check_shift
54 
;----------------------------------------------------------
 54 
;----------------------------------------------------------
55 
;--- ¯à®¢¥à塞, çâ® ­ ¦ â® --------------------------------
 55 
;--- ¯à®¢¥à塞, çâ® ­ ¦ â® --------------------------------
56 
;----------------------------------------------------------
 56 
;----------------------------------------------------------
- 
 
 57 
        cmp     ah,8
- 
 
 58 
        jz      edit_box_key.backspace
- 
 
 59 
        cmp     ah,0xb6
- 
 
 60 
        jz      edit_box_key.delete
- 
 
 61 
        cmp     ah,176
- 
 
 62 
        jz      edit_box_key.left
- 
 
 63 
        cmp     ah,179
- 
 
 64 
        jz      edit_box_key.right
- 
 
 65 
        cmp     ah,180
- 
 
 66 
        jz      edit_box_key.home
- 
 
 67 
        cmp     ah,181
- 
 
 68 
        jz      edit_box_key.end
- 
 
 69 
        cmp     ah,185  ;insert
57 
use_key_process  backspace,delete,left,right,home,end,insert
 70 
        jz      edit_box_key.insert
58 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 71 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
59 
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
 72 
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
60 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 73 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
61 
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll
 74 
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll
62 
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
 75 
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
Line 754... Line 767...
754 
        test    al,0x03
 767 
        test    al,0x03
755 
        je      @f
 768 
        je      @f
756 
        or      word ed_flags,ed_shift   ;ãáâ ­®¢¨¬ ä« £
 769 
        or      word ed_flags,ed_shift   ;ãáâ ­®¢¨¬ ä« £
757 
@@:edit_ex
 770 
@@:edit_ex
758 
}
 771 
}
759 
;¬ ªà®á ª« ¢¨è ­  ª®â®àë¥ ¯à®¨á室¨â ॠªæ¨ï
 - 
 
760 
macro use_key_process backspace,delete,left,right,home,end,insert
 - 
 
761 
{
 - 
 
762 
if backspace eq
 - 
 
763 
else
 - 
 
764 
        cmp     ah,8
 - 
 
765 
        jz      edit_box_key.backspace
 - 
 
766 
end if
 - 
 
767 
if delete eq
 - 
 
768 
else
 - 
 
769 
        cmp     ah,0xb6
 - 
 
770 
        jz      edit_box_key.delete
 - 
 
771 
end if
 - 
 
772 
if left eq
 - 
 
773 
else
 - 
 
774 
        cmp     ah,176
 - 
 
775 
        jz      edit_box_key.left
 - 
 
776 
end if
 - 
 
777 
if right eq
 - 
 
778 
else
 - 
 
779 
        cmp     ah,179
 - 
 
780 
        jz      edit_box_key.right
 - 
 
781 
end if
 - 
 
782 
if home eq
 - 
 
783 
else
 - 
 
784 
        cmp     ah,180
 - 
 
785 
        jz      edit_box_key.home
 - 
 
786 
end if
 - 
 
787 
if home eq
 - 
 
788 
else
 - 
 
789 
        cmp     ah,181
 - 
 
790 
        jz      edit_box_key.end
 - 
 
791 
end if
 - 
 
792 
if insert eq
 - 
 
793 
else
 - 
 
794 
        cmp     ah,185  ;insert
 - 
 
795 
        jz      edit_box_key.insert
 - 
 
796 
end if
 - 
 
797 
}
 - 
 
Line 798... Line 772...
798 
 
 772 
 
799 
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll
 773 
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll
800 
{
 774 
{
801 
if up eq
 775 
if up eq
Line 872... Line 846...
872 
        call    edit_box_key.clear_bg
 846 
        call    edit_box_key.clear_bg
873 
;;;;;;;;;;;;;;;;;;;;;
 847 
;;;;;;;;;;;;;;;;;;;;;
874 
        popa
 848 
        popa
875 
        call    edit_box_key.del_char
 849 
        call    edit_box_key.del_char
876 
;;;;
 850 
;;;;
877 
        mov     eax,dword ed_shift_pos
 - 
 
878 
        mov     ebx,ed_size
 851 
        mov     ebx,ed_size
879 
        sub     ebx,eax
 852 
        sub     ebx,dword ed_shift_pos
880 
        mov     ed_size,ebx
 853 
        mov     ed_size,ebx
881 
        pop     eax
 854 
        pop     eax
882 
@@:
 855 
@@:
883 
}
 856 
}
884 
macro are_key_cur_end
 857 
macro are_key_cur_end