Subversion Repositories Kolibri OS

Rev

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

Rev 7500 Rev 7502
Line 1... Line 1...
1 
macro use_key_no_process  up,down,super,esc,enter,tab,numl,capsl,scrolll
 1 
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll
2 
{
 2 
{
3 
if up eq
 3 
if up eq
4 
else
 4 
else
5 
        cmp     ah,178
 5 
        cmp     ah,178
6 
        jz      edit_box.editbox_exit
 6 
        jz      edit_box.editbox_exit
Line 8... Line 8...
8 
if down eq
 8 
if down eq
9 
else
 9 
else
10 
        cmp     ah,177
 10 
        cmp     ah,177
11 
        jz      edit_box.editbox_exit
 11 
        jz      edit_box.editbox_exit
12 
end if
 12 
end if
13 
if super eq
 - 
 
14 
else
 - 
 
15 
        cmp     ah,148  ;Super (Win logo)
 - 
 
16 
        jz      edit_box.editbox_exit
 - 
 
17 
end if
 - 
 
18 
if esc eq
 13 
if esc eq
19 
else
 14 
else
20 
        cmp     ah,27   ;ESC - ª« ¢¨è  ))
 15 
        cmp     ah,27   ;ESC - ª« ¢¨è  ))
21 
        jz      edit_box.editbox_exit
 16 
        jz      edit_box.editbox_exit
22 
end if
 17 
end if
Line 45... Line 40...
45 
        cmp     ah,1   ;Scroll Lock - ª« ¢¨è  ))
 40 
        cmp     ah,1   ;Scroll Lock - ª« ¢¨è  ))
46 
        jz      edit_box.editbox_exit
 41 
        jz      edit_box.editbox_exit
47 
end if
 42 
end if
48 
}
 43 
}
Line -... Line 44...
- 
 
 44 
 
- 
 
 45 
SCAN_LWIN_RELEASE = 0xDB
Line 49... Line 46...
49 
 
 46 
SCAN_RWIN_RELEASE = 0xDC
50 
 
 47 
 
51 
align 16
 48 
align 16
52 
edit_box:
 49 
edit_box:
Line 136... Line 133...
136 
        jz      edit_box_key.home
 133 
        jz      edit_box_key.home
137 
        cmp     ah,181
 134 
        cmp     ah,181
138 
        jz      edit_box_key.end
 135 
        jz      edit_box_key.end
139 
        cmp     ah,185  ;insert
 136 
        cmp     ah,185  ;insert
140 
        jz      edit_box_key.insert
 137 
        jz      edit_box_key.insert
- 
 
 138 
 
- 
 
 139 
; get scancode in ah
- 
 
 140 
        ror     eax,8
141 
; ª®¬¡¨­ æ¨¨ Ctrl + ª« ¢¨è 
 141 
; check for ctrl+ combinations
142 
        test    word ed_flags,ed_ctrl_on
 142 
        test    word ed_flags,ed_ctrl_on
143 
        jz      @f
 143 
        jz      @f
144 
; ¯à®¢¥àª  ᪠­ª®¤ 
 - 
 
145 
        ror     eax,8
 - 
 
146 
        cmp     ah,45 ; Ctrl + X
 144 
        cmp     ah,45 ; Ctrl + X
147 
        je      edit_box_key.ctrl_x
145 
        je      edit_box_key.ctrl_x
148 
        cmp     ah,46 ; Ctrl + C
 146 
        cmp     ah,46 ; Ctrl + C
149 
        je      edit_box_key.ctrl_c
 147 
        je      edit_box_key.ctrl_c
150 
        cmp     ah,47 ; Ctrl + V
 148 
        cmp     ah,47 ; Ctrl + V
151 
        je      edit_box_key.ctrl_v
 149 
        je      edit_box_key.ctrl_v
152 
        rol     eax,8
 - 
 
153 
@@:
 150 
@@:
- 
 
 151 
        cmp     ah,SCAN_LWIN_RELEASE
- 
 
 152 
        jz      edit_box.editbox_exit
- 
 
 153 
        cmp     ah,SCAN_RWIN_RELEASE
- 
 
 154 
        jz      edit_box.editbox_exit
- 
 
 155 
; restore ascii code
- 
 
 156 
        rol     eax,8
154 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 157 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
155 
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
 158 
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
156 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 159 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
157 
use_key_no_process   up,down,super,esc,enter,tab,numl,capsl,scrolll
 160 
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll
158 
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
 161 
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
159 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 162 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
160 
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥, ¥á«¨ â ª®© ­¥®¡å®¤¨¬®á⨠­¥â, ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
 163 
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥, ¥á«¨ â ª®© ­¥®¡å®¤¨¬®á⨠­¥â, ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
161 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 164 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
162 
        test    word ed_flags,ed_figure_only  ; ⮫쪮 æ¨äàë?
 165 
        test    word ed_flags,ed_figure_only  ; ⮫쪮 æ¨äàë?