Subversion Repositories Kolibri OS

Rev

Rev 502 | Rev 551 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 502 Rev 532
Line 23... Line 23...
23 
  dd     0x2000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
 23 
  dd     0x2000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
24 
  dd     0x2000      ;  ¤à¥á ¢¥à設ë áâíª 
 24 
  dd     0x2000      ;  ¤à¥á ¢¥à設ë áâíª 
25 
  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
 25 
  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
26 
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
 26 
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
Line 27... Line 27...
27 
 
 27 
 
28 
include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
 28 
include '..\..\develop\editbox\editbox.inc'
- 
 
 29 
use_edit_box procinfo,22,5
- 
 
 30 
al equ eax      ; \ decrease kpack'ed size
Line 29... Line 31...
29 
use_edit_box procinfo,22,5
 31 
purge mov       ; /
30 
 
 32 
 
31 
;---------------------------------------------------------------------
 33 
;---------------------------------------------------------------------
Line 42... Line 44...
42 
;---------------------------------------------------------------------
 44 
;---------------------------------------------------------------------
43 
;---  –ˆŠ‹ Ž€Ž’Šˆ ‘Ž›’ˆ‰  ----------------------------------------
 45 
;---  –ˆŠ‹ Ž€Ž’Šˆ ‘Ž›’ˆ‰  ----------------------------------------
44 
;---------------------------------------------------------------------
 46 
;---------------------------------------------------------------------
Line 45... Line 47...
45 
 
 47 
 
46 
still:
 - 
 
47 
    push 10
- 
 
48 
    pop eax
48 
still:
Line 49... Line 49...
49 
    mcall
49 
    mcall 10
50 
 
 50 
 
51 
    dec  eax             ; ¯¥à¥à¨á®¢ âì ®ª­®?
 51 
    dec  eax             ; ¯¥à¥à¨á®¢ âì ®ª­®?
52 
    jz   red             ; ¥á«¨ ¤  - ­  ¬¥âªã red
 52 
    jz   red             ; ¥á«¨ ¤  - ­  ¬¥âªã red
53 
    dec  eax
53 
    dec  eax
54 
    jz   key
 54 
    jz   key
Line 55... Line 55...
55 
    dec  eax
 55 
    dec  eax
56 
    jz   button
 56 
    jz   button
57 
 
 57 
 
Line 58... Line 58...
58 
mouse:
 58 
mouse:
59 
    mouse_edit_boxes editbox,editbox_end
 59 
        mouse_edit_box editbox
60 
    jmp still
 60 
        jmp     still
Line 67... Line 67...
67 
    jne  noclose
 67 
    jne  noclose
68 
    or   eax,-1          ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
 68 
    or   eax,-1          ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
69 
    mcall
 69 
    mcall
Line 70... Line 70...
70 
 
 70 
 
71 
noclose:
 - 
 
72 
    cmp  ah,2
 71 
noclose:
73 
    jne  path_2
 72 
        push    eax
74 
    call clear_err
 73 
        call    clear_err
75 
    mov  al,16
 74 
        pop     eax
76 
    mov  ebx,1
 - 
 
77 
    mcall
 75 
        push    16
78 
    call check_for_error
 76 
        xor     ebx, ebx
79 
    jmp  still
 - 
 
80 
 path_2:
 77 
        inc     ebx     ; 16.1 = save to /FD/1
81 
    cmp  ah,3
 78 
        cmp     ah, 2
82 
    jne  path_3
 - 
 
83 
    call clear_err
 - 
 
84 
    mov  al,16
 - 
 
85 
    mov  ebx,2
 - 
 
86 
    mcall
 79 
        je      doit
87 
    call check_for_error
 - 
 
88 
    jmp  still
 - 
 
89 
 path_3:
 80 
        inc     ebx     ; 16.2 = save to /FD/2
90 
    cmp  ah,4
 81 
        cmp     ah, 3
91 
    jne  path_4
 82 
        je      doit
92 
    call clear_err
 83 
        pop     ebx
93 
    mov  al,18
 84 
        push    18
94 
    mov  ebx,6
 85 
        mov     bl, 6   ; 18.6 = save to specified folder
95 
    mov  ecx,path3
 - 
 
96 
    mcall
 - 
 
97 
    call check_for_error
 86 
        mov     ecx, path3
98 
    jmp  still
 - 
 
99 
 path_4:
 87 
        cmp     ah, 4
100 
    call clear_err
 88 
        je      doit
101 
    mov  eax,18
 89 
        mov     ecx, path4
102 
    mov  ebx,6
 90 
doit:
103 
    mov  ecx,path4
 91 
        pop     eax
104 
    mcall
 92 
        mcall
105 
    call check_for_error
 93 
        call    check_for_error
Line 106... Line 94...
106 
    jmp  still
 94 
        jmp     still
107 
 
 95 
 
108 
key:
96 
key:
109 
    mov  al,2
 97 
    mov  al,2
110 
    mcall
 98 
    mcall
Line 111... Line 99...
111 
    key_edit_boxes editbox,editbox_end
 99 
    key_edit_box editbox
112 
    jmp  still
 - 
 
113 
 
 - 
 
114 
 
 100 
    jmp  still
115 
check_for_error:                      ;Ž¡à ¡®â稪 ®è¨¡®ª
 101 
 
116 
    cmp eax,0
 - 
 
117 
    jne err1
 - 
 
118 
    mov ecx,[sc.work_text]
 102 
 
119 
    mov edx,ok
 103 
check_for_error:                      ;Ž¡à ¡®â稪 ®è¨¡®ª
120 
    jmp print
 104 
        mov     ecx, [sc.work_text]
121 
 err1:
 105 
        mov     edx, ok
122 
    cmp eax,1
 - 
 
123 
    jne err3
 - 
 
124 
    mov ecx,0xdd2222
 106 
        test    eax, eax
125 
    mov edx,error11
 107 
        jz      print
126 
    jmp print
 108 
        mov     ecx, 0xdd2222
127 
 err3:
 109 
        add     edx, error3 - ok
128 
    cmp eax,3
 - 
 
129 
    jne err5
 - 
 
130 
    mov ecx,0xdd2222
 110 
        dec     eax
131 
    mov edx,error3
 111 
        dec     eax
132 
    jmp print
 112 
        jz      print
133 
 err5:
 113 
        add     edx, error5 - error3
134 
    cmp eax,5
 - 
 
135 
    jne err8
 - 
 
136 
    mov ecx,0xdd2222
 114 
        dec     eax
137 
    mov edx,error5
 - 
 
138 
    jmp print
 115 
        dec     eax
139 
 err8:
 116 
        jz      print
140 
    cmp eax,8
 117 
        add     edx, error8 - error5
141 
    jne err9
 - 
 
142 
    mov ecx,0xdd2222
 - 
 
143 
    mov edx,error8
 - 
 
144 
    jmp print
 118 
        dec     eax
145 
 err9:
 119 
        dec     eax
146 
    cmp eax,9
 120 
        dec     eax
147 
    jne err10
 - 
 
148 
    mov ecx,0xdd2222
 121 
        jz      print
149 
    mov edx,error9
 122 
        add     edx, error9 - error8
150 
    jmp print
 123 
        dec     eax
151 
err10:
 124 
        jz      print
152 
    cmp eax,10
 125 
        add     edx, error10 - error9
153 
    jne err11
 - 
 
154 
    mov ecx,0xdd2222
 126 
        dec     eax
155 
    mov edx,error10
 127 
        jz      print
156 
    jmp print
 - 
 
Line 157... Line 128...
157 
 err11:
 128 
        add     edx, error11 - error10
158 
    mov ecx,0xdd2222
 129 
        dec     eax
159 
    mov edx,error11
 130 
        jz      print
160 
    jmp print
 131 
        add     edx, aUnknownError - error11
161 
 
 132 
 
162 
 print:
 133 
 print:
Line 163... Line 134...
163 
    mov eax,4                              ;­ ¤¯¨á¨
 134 
    mov eax,4                              ;­ ¤¯¨á¨
164 
    mov ebx,20 shl 16 + 148
 135 
    mov ebx,20 shl 16 + 148
165 
    or  ecx,0x80000000
 136 
    or  ecx,0x80000000
166 
    mcall
 137 
    mcall
167 
    ret
 138 
    ret
168 
 
 139 
 
169 
clear_err:
 140 
clear_err:
Line 197... Line 168...
197 
   mov edx,[sc.work]                     ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
 168 
   mov edx,[sc.work]                     ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
198 
   or  edx,0x33000000
 169 
   or  edx,0x33000000
199 
   mov edi,title                        ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
 170 
   mov edi,title                        ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
200 
   mcall
 171 
   mcall
Line 201... Line 172...
201 
 
 172 
 
Line 202... Line 173...
202 
draw_edit_boxes editbox,editbox_end,use_f9,procinfo  ;à¨á®¢ ­¨¥ edit box'®¢
 173 
draw_edit_box editbox,use_f9,procinfo   ;à¨á®¢ ­¨¥ edit box'®¢
203 
 
 174 
 
204 
   mov al,13                             ;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
 175 
   mov al,13                            ;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
205 
   mov ebx,194 shl 16 + 60
 176 
   mov ebx,194 shl 16 + 60
206 
   mov ecx,34 shl 16 +15
 177 
   mov ecx,34 shl 16 +15
Line 304... Line 275...
304 
error5  db '¥áãé¥áâ¢ãî騩 ¯ãâì',0
 275 
error5  db '¥áãé¥áâ¢ãî騩 ¯ãâì',0
305 
error8  db '¥â ¬¥áâ  ­  ¤¨áª¥',0
 276 
error8  db '¥â ¬¥áâ  ­  ¤¨áª¥',0
306 
error9  db '’ ¡«¨æ  FAT à §àã襭 ',0
 277 
error9  db '’ ¡«¨æ  FAT à §àã襭 ',0
307 
error10 db '„®áâ㯠§ ¯à¥é¥­',0
 278 
error10 db '„®áâ㯠§ ¯à¥é¥­',0
308 
error11 db 'Žè¨¡ª  ãáâனá⢠',0
 279 
error11 db 'Žè¨¡ª  ãáâனá⢠',0
- 
 
 280 
aUnknownError db '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
Line 309... Line 281...
309 
 
 281 
 
310 
else
 282 
else
311 
save    db '  Save',0
 283 
save    db '  Save',0
312 
label1  db 'Select one of the variants:',0
 284 
label1  db 'Select one of the variants:',0
Line 317... Line 289...
317 
error5  db 'Incorrect path',0
 289 
error5  db 'Incorrect path',0
318 
error8  db 'Disk is full',0
 290 
error8  db 'Disk is full',0
319 
error9  db 'FAT table corrupted',0
 291 
error9  db 'FAT table corrupted',0
320 
error10 db 'Access denied',0
 292 
error10 db 'Access denied',0
321 
error11 db 'Device error',0
 293 
error11 db 'Device error',0
- 
 
 294 
aUnknownError db 'Unknown error',0
Line 322... Line 295...
322 
 
 295 
 
Line 323... Line 296...
323 
end if
 296 
end if