Subversion Repositories Kolibri OS

Rev

Rev 502 | Rev 551 | Go to most recent revision | Show entire file | Regard 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
 75 
        push    16
77 
    mcall
 76 
        xor     ebx, ebx
78 
    call check_for_error
 77 
        inc     ebx     ; 16.1 = save to /FD/1
79 
    jmp  still
 78 
        cmp     ah, 2
- 
 
 79 
        je      doit
80 
 path_2:
 80 
        inc     ebx     ; 16.2 = save to /FD/2
81 
    cmp  ah,3
 81 
        cmp     ah, 3
82 
    jne  path_3
 - 
 
83 
    call clear_err
 - 
 
84 
    mov  al,16
 82 
        je      doit
85 
    mov  ebx,2
 - 
 
86 
    mcall
 - 
 
87 
    call check_for_error
 - 
 
88 
    jmp  still
 - 
 
89 
 path_3:
 - 
 
90 
    cmp  ah,4
 - 
 
91 
    jne  path_4
 - 
 
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
 - 
 
98 
    jmp  still
 - 
 
99 
 path_4:
 - 
 
100 
    call clear_err
 86 
        mov     ecx, path3
101 
    mov  eax,18
 87 
        cmp     ah, 4
102 
    mov  ebx,6
 88 
        je      doit
- 
 
 89 
        mov     ecx, path4
- 
 
 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]
 - 
 
119 
    mov edx,ok
 - 
 
120 
    jmp print
 - 
 
121 
 err1:
 102 
 
122 
    cmp eax,1
 - 
 
123 
    jne err3
 - 
 
124 
    mov ecx,0xdd2222
 - 
 
125 
    mov edx,error11
 - 
 
126 
    jmp print
 - 
 
127 
 err3:
 - 
 
128 
    cmp eax,3
 103 
check_for_error:                      ;Ž¡à ¡®â稪 ®è¨¡®ª
129 
    jne err5
 - 
 
130 
    mov ecx,0xdd2222
 - 
 
131 
    mov edx,error3
 - 
 
132 
    jmp print
 - 
 
133 
 err5:
 - 
 
134 
    cmp eax,5
 - 
 
135 
    jne err8
 - 
 
136 
    mov ecx,0xdd2222
 - 
 
137 
    mov edx,error5
 - 
 
138 
    jmp print
 104 
        mov     ecx, [sc.work_text]
139 
 err8:
 105 
        mov     edx, ok
140 
    cmp eax,8
 106 
        test    eax, eax
141 
    jne err9
 - 
 
142 
    mov ecx,0xdd2222
 107 
        jz      print
143 
    mov edx,error8
 108 
        mov     ecx, 0xdd2222
- 
 
 109 
        add     edx, error3 - ok
144 
    jmp print
 110 
        dec     eax
145 
 err9:
 111 
        dec     eax
146 
    cmp eax,9
 112 
        jz      print
- 
 
 113 
        add     edx, error5 - error3
147 
    jne err10
 114 
        dec     eax
148 
    mov ecx,0xdd2222
 115 
        dec     eax
149 
    mov edx,error9
 116 
        jz      print
150 
    jmp print
 117 
        add     edx, error8 - error5
- 
 
 118 
        dec     eax
151 
err10:
 119 
        dec     eax
152 
    cmp eax,10
 120 
        dec     eax
- 
 
 121 
        jz      print
153 
    jne err11
 122 
        add     edx, error9 - error8
154 
    mov ecx,0xdd2222
 123 
        dec     eax
- 
 
 124 
        jz      print
155 
    mov edx,error10
 125 
        add     edx, error10 - error9
156 
    jmp print
 126 
        dec     eax
- 
 
 127 
        jz      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
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