Subversion Repositories Kolibri OS

Rev

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

Rev 7502 Rev 7507
Line 1... Line 1...
1 
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll
 1 
macro use_key_no_process  up,down,esc,enter,tab,numl,capsl,scrolll,pgup,pgdown
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 38... Line 38...
38 
if scrolll eq
 38 
if scrolll eq
39 
else
 39 
else
40 
        cmp     ah,1   ;Scroll Lock - ª« ¢¨è  ))
 40 
        cmp     ah,1   ;Scroll Lock - ª« ¢¨è  ))
41 
        jz      edit_box.editbox_exit
 41 
        jz      edit_box.editbox_exit
42 
end if
 42 
end if
- 
 
 43 
if pgup eq
- 
 
 44 
else
- 
 
 45 
        cmp     ah,184 ;Page Up - ª« ¢¨è  ))
- 
 
 46 
        jz      edit_box.editbox_exit
- 
 
 47 
end if
- 
 
 48 
if pgdown eq
- 
 
 49 
else
- 
 
 50 
        cmp     ah,183 ;Page Dwon - ª« ¢¨è  ))
- 
 
 51 
        jz      edit_box.editbox_exit
- 
 
 52 
end if
43 
}
 53 
}
Line 44... Line 54...
44 
 
 54 
 
45 
SCAN_LWIN_RELEASE = 0xDB
 55 
SCAN_LWIN_RELEASE = 0xDB
Line 155... Line 165...
155 
; restore ascii code
 165 
; restore ascii code
156 
        rol     eax,8
 166 
        rol     eax,8
157 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 167 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
158 
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
 168 
;‡ £«ã誠 ­  ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢­¨§ â.¥. ¯à¨ ®¡­ à㦥­¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪 
159 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 169 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
160 
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll
 170 
use_key_no_process   up,down,esc,enter,tab,numl,capsl,scrolll,pgup,pgdown
161 
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
 171 
;--- ­ ¦ â  ¤àã£ ï ª« ¢¨è  ---
162 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 172 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
163 
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥, ¥á«¨ â ª®© ­¥®¡å®¤¨¬®á⨠­¥â, ­ã¦­® § ª®¬¥­â¨à®¢ âì ¬ ªà®á
 173 
;à®¢¥àª  ãáâ ­®¢«¥­ «¨ ä« £ ¯à¨ ª®â®à®¬ ­ã¦­® ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ ­ã¦­®¬ ¡®ªá¥
164 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 174 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
165 
        test    word ed_flags,ed_figure_only  ; ⮫쪮 æ¨äàë?
 175 
        test    word ed_flags,ed_figure_only  ; ⮫쪮 æ¨äàë?
166 
        jz      @f
 176 
        jz      @f
167 
        cmp     ah,'0'
 177 
        cmp     ah,'0'
168 
        jb      edit_box.editbox_exit
 178 
        jb      edit_box.editbox_exit
Line 239... Line 249...
239 
        inc     dword ed_pos
 249 
        inc     dword ed_pos
240 
        call    edit_box_key.draw_all2
 250 
        call    edit_box_key.draw_all2
241 
        jmp     edit_box_key.shift
 251 
        jmp     edit_box_key.shift
Line 242... Line 252...
242 
 
 252 
 
243 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 253 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
244 
;Ž¡à ¡®âª  ª« ¢¨è insert,delete.backspace,home,end,left,right
 254 
;Ž¡à ¡®âª  ª« ¢¨è insert,delete,backspace,home,end,left,right
245 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 255 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
246 
edit_box_key.insert:
 256 
edit_box_key.insert:
247 
        test    word ed_flags,ed_insert
 257 
        test    word ed_flags,ed_insert
248 
        je      @f
 258 
        je      @f