Subversion Repositories Kolibri OS

Rev

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

Rev 4290 Rev 4319
Line 6... Line 6...
6 
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨á⥬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
 6 
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨á⥬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
7 
;   Mario79   08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options
 7 
;   Mario79   08.09.2010 - select path with OpenDialog,keys 1,2,3,4 for select options
8 
;   Heavyiron 01.12.2013 - new logic
 8 
;   Heavyiron 01.12.2013 - new logic
9 
;---------------------------------------------------------------------
 9 
;---------------------------------------------------------------------
10 
appname equ 'RDsave '
 10 
appname equ 'RDsave '
11 
version equ '1.42'
 11 
version equ '1.43'
12 
debug   equ no
 12 
debug   equ no
Line 13... Line 13...
13 
 
 13 
 
14 
use32        ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
 14 
use32        ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
Line 206... Line 206...
206 
        jmp     still
 206 
        jmp     still
207 
not_rd:
 207 
not_rd:
208 
        cmp     [hidden],0
 208 
        cmp      [hidden],0
209 
        jne      @f
 209 
        jne      @f
210 
        pusha
 210 
        pusha
- 
 
 211 
        stdcall  _lstrcpy,msg,label2
211 
        mov     ecx,[sc.work_text]
 212 
        mov      eax,[sc.work_text]
212 
        or      ecx,0xc0000088
 213 
        or       eax,0xc0000088
- 
 
 214 
        mov      [color],eax
213 
        mcall   4,<132,96>, ,label2, ,[sc.work]
 215 
        call    print_msg
214 
        popa
 216 
        popa
215 
@@:
 217 
@@:
216 
        pop     eax
 218 
        pop     eax
217 
        mcall
 219 
        mcall
218 
        call    check_for_error
 220 
        call    check_for_error
Line 228... Line 230...
228 
        jmp     print_err
 230 
        jmp     print_err
229 
@@:
231 
@@:
230 
        cmp     eax, 11
 232 
        cmp     eax, 11
231 
        ja      .unknown
 233 
        ja      .unknown
232 
        mov     edx, [errors+eax*4]
 234 
        mov     edx, [errors+eax*4]
233 
        stdcall _lstrcpy,error_msg,error
 235 
        stdcall _lstrcpy,msg,error
234 
        stdcall _lstrcat,error_msg,edx
 236 
        stdcall _lstrcat,msg,edx
235 
        mov     edx, error_msg
 237 
        mov     edx,msg
236 
        jmp     print_err
 238 
        jmp     print_err
237 
.unknown:
 239 
.unknown:
238 
        mov     edx, aUnknownError
 240 
        mov     edx, aUnknownError
Line 239... Line 241...
239 
 
 241 
 
240 
print_err:
 242 
print_err:
241 
        stdcall _lstrlen,ini_path
 243 
        stdcall _lstrlen,ini_path
242 
        pusha
 244 
        pusha
243 
        invoke  ini_set_str,ini_file,apath,apath,ini_path,eax
 245 
        invoke  ini_set_str,ini_file,apath,apath,ini_path,eax
- 
 
 246 
        popa
244 
        popa
 247 
        stdcall _lstrcpy,msg,edx
245 
        cmp     [hidden],1
 248 
        cmp     [hidden],1
246 
        je      @f
 249 
        je      @f
247 
        cmp     [param],1
 250 
        cmp     [param],1
248 
        je      @f
 - 
 
249 
        stdcall _lstrlen,edx
 - 
 
250 
        imul    eax,6
 - 
 
251 
        mov     ebx,390
 - 
 
252 
        sub     ebx,eax
 - 
 
253 
        shl     ebx,15
 - 
 
254 
        add     ebx,96
 251 
        je      @f
255 
        mov     ecx,[sc.work_text]
 252 
        mov      ecx,[sc.work_text]
- 
 
 253 
        or       ecx,0xc0880000
256 
        or      ecx,0xc0880000
 254 
        mov      [color],ecx
257 
        mcall   4, , , , ,[sc.work]
 255 
        call    print_msg
258 
        ret
 256 
        ret
259 
@@:
 257 
@@:
260 
        mov     dword [is_notify + 8], edx
 258 
        mov     dword [is_notify + 8], edx
261 
        mcall   70, is_notify
 259 
        mcall   70, is_notify
Line 267... Line 265...
267 
print_ok:
 265 
print_ok:
268 
        cmp     [hidden],1
 266 
        cmp      [hidden],1
269 
        je       @f
 267 
        je       @f
270 
        cmp     [param],1
 268 
        cmp      [param],1
271 
        je       @f
 269 
        je       @f
272 
        mov     edx,ok
 - 
 
273 
        stdcall _lstrlen,edx
 270 
        stdcall  _lstrcpy,msg,ok
274 
        imul    eax,6
 - 
 
275 
        mov     ebx,390
 - 
 
276 
        sub     ebx,eax
 - 
 
277 
        shl     ebx,15
 - 
 
278 
        add     ebx,96
 - 
 
279 
        mov     ecx,[sc.work_text]
 271 
        mov      ecx,[sc.work_text]
280 
        or      ecx,0xc0008800
 272 
        or       ecx,0xc0008800
- 
 
 273 
        mov      [color],ecx
281 
        mcall   4, , , , ,[sc.work]
 274 
        call     print_msg
282 
        mcall   5,200
 275 
        mcall    5,100
283 
        cmp     [autoclose],1
 276 
        cmp      [autoclose],1
284 
        je      close
 277 
        je       close
285 
        ret
 278 
        ret
286 
@@:
 279 
@@:
287 
        stdcall _lstrcpy,check_dir,ok
 280 
        stdcall  _lstrcpy,msg,ok
288 
        stdcall _lstrcat,check_dir,fname_buf
 281 
        stdcall  _lstrcat,msg,fname_buf
289 
        mov     edx,check_dir
 282 
        mov      edx,msg
290 
        mov     dword [is_notify + 8], edx
 283 
        mov      dword [is_notify + 8], edx
291 
        mcall   70, is_notify
 284 
        mcall    70, is_notify
- 
 
 285 
        mcall    5,100
292 
        jmp     close
 286 
        jmp      close
- 
 
 287 
;---------------------------------------------------------------------
293 
 
 288 
print_msg:
- 
 
 289 
        mcall   13,<5,380>,<96,10>,[sc.work]
- 
 
 290 
        stdcall _lstrlen,msg
- 
 
 291 
        lea     eax,[eax+eax*2]
- 
 
 292 
        add     eax,eax
- 
 
 293 
        mov     ebx,390
- 
 
 294 
        sub     ebx,eax
- 
 
 295 
        shl     ebx,15
- 
 
 296 
        add     ebx,96
- 
 
 297 
        mcall   4, ,[color],msg, ,[sc.work]
- 
 
 298 
        ret
294 
;---------------------------------------------------------------------
 299 
;---------------------------------------------------------------------
295 
draw_PathShow:
 300 
draw_PathShow:
296 
        pusha
 301 
        pusha
297 
        mcall   13,<15,280>,<32,16>,0xffffff
 302 
        mcall   13,<15,280>,<32,16>,0xffffff
298 
        push    dword PathShow_data_1
 303 
        push    dword PathShow_data_1
Line 347... Line 352...
347 
        mov     dword [frame_data.font_backgr_color],ecx
 352 
        mov     dword [frame_data.font_backgr_color],ecx
348 
        push    dword frame_data
 353 
        push    dword frame_data
349 
        call    [Frame_draw]
 354 
        call    [Frame_draw]
Line 350... Line 355...
350 
 
 355 
 
- 
 
 356 
        call    draw_PathShow
Line 351... Line 357...
351 
        call    draw_PathShow
 357 
        call    print_msg
352 
 
 358 
 
Line 353... Line 359...
353 
        mcall   12,2
 359 
        mcall   12,2
Line 650... Line 656...
650 
 
 656 
 
Line 651... Line 657...
651 
sc     system_colors
 657 
sc     system_colors
Line -... Line 658...
- 
 
 658 
 
- 
 
 659 
autoclose rd 1
652 
 
 660 
 
653 
autoclose rd 1
 661 
color   rd 1
Line 654... Line 662...
654 
 
 662 
 
655 
error_msg:
 663 
msg:
656 
        rb 1024
 664 
        rb 1024
Line 680... Line 688...
680 
        rb 1024
 688 
        rb 1024
681 
;---------------------------------------------------------------------
 689 
;---------------------------------------------------------------------
682 
align 32
 690 
align 32
683 
        rb 4096
 691 
        rb 4096
684 
stacktop:
 692 
stacktop:
685 
I_END:  ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
 - 
 
686 

            693
            
I_END:

          

          

            -
            
 

            694
            

          

          

            687
            

            695