Subversion Repositories Kolibri OS

Rev

Rev 4061 | Rev 4236 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;*****************************************************************************
  2. ; Open Dialog - for Kolibri OS
  3. ; Copyright (c) 2009-2013, Marat Zakiyanov aka Mario79, aka Mario
  4. ; All rights reserved.
  5. ;
  6. ; Redistribution and use in source and binary forms, with or without
  7. ; modification, are permitted provided that the following conditions are met:
  8. ;        * Redistributions of source code must retain the above copyright
  9. ;          notice, this list of conditions and the following disclaimer.
  10. ;        * Redistributions in binary form must reproduce the above copyright
  11. ;          notice, this list of conditions and the following disclaimer in the
  12. ;          documentation and/or other materials provided with the distribution.
  13. ;        * Neither the name of the <organization> nor the
  14. ;          names of its contributors may be used to endorse or promote products
  15. ;          derived from this software without specific prior written permission.
  16. ;
  17. ; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
  18. ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  19. ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  20. ; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
  21. ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  22. ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  23. ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  24. ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  25. ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  26. ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27. ;*****************************************************************************
  28. ;---------------------------------------------------------------------
  29. ;Some documentation for memory
  30. ;
  31. ;area name db 'FFFFFFFF_open_dialog',0 ; FFFFFFFF = PID
  32. ;
  33. ; communication area data
  34. ; flag  ; +0
  35. ; dw 0   ; 0 - empty, 1 - file for open, 2 -folder for open,
  36. ;          3 - cancel, 4 - path=name of area 6822.
  37. ;
  38. ; type of dialog:  0-Open, 1-Save, 2-Dir
  39. ; dw 0 ; +2
  40. ;
  41. ; window X size ; +4
  42. ; dw 0
  43. ;
  44. ; window X position ; +6
  45. ; dw 0
  46. ;
  47. ; window y size ; +8
  48. ; dw 0
  49. ;
  50. ; window Y position ; +10
  51. ; dw 0
  52. ;
  53. ; OpenDialog WINDOW SLOT ; +12
  54. ; dd 0
  55. ;
  56. ; file_path ; +16
  57. ; rb 3824 ; path to file
  58. ;
  59. ; file name ; +3840
  60. ; rb 256
  61. ;
  62. ; filtration flag ; +4096
  63. ; dd 0 ; flag 0 - no filtration,  1 - filtering
  64. ;
  65. ; area for storage of filtering values ; +4100
  66. ; rb 4092
  67. ;---------------------------------------------------------------------
  68.         use32
  69.         org     0x0
  70.  
  71.         db 'MENUET01'
  72.         dd 0x01
  73.         dd START
  74.         dd IM_END
  75.         dd I_END
  76.         dd stacktop
  77.         dd param
  78.         dd path
  79.  
  80. include '../../macros.inc'
  81. ;define __DEBUG__ 1
  82. ;define __DEBUG_LEVEL__ 1
  83. ;include '../../debug-fdo.inc'
  84. include '../../develop/libraries/box_lib/load_lib.mac'
  85. include '../../develop/libraries/box_lib/trunk/box_lib.mac'
  86. ;include 'macros.inc'
  87. ;include 'load_lib.mac'
  88. ;include 'box_lib.mac'
  89. @use_library
  90.  
  91. x_minimal_size equ 350
  92. y_minimal_size equ 250
  93. ;---------------------------------------------------------------------
  94. ;---------------------------------------------------------------------
  95. START:
  96.         mcall   68,11
  97.         mcall   66,1,1
  98.         mcall   40,0x27
  99.         call    get_communication_area
  100.        
  101.         call    get_active_pocess
  102.  
  103. load_libraries  l_libs_start,end_l_libs
  104.         test    eax,eax
  105.         jnz     button.exit
  106. ; initialize sort
  107.         push    dword 1
  108.         call    dword [sort_init]
  109. ; unpack deflate
  110.         mov     eax,[unpack_DeflateUnpack2]
  111.         mov     [deflate_unpack],eax
  112.  
  113.         mov     esi,start_pach
  114.         mov     edi,previous_dir_path
  115.         call    copy_dir_name.1
  116.        
  117.         call    load_root_directory
  118.         call    load_start_directory
  119.         call    sort_directory
  120.         call    load_icons
  121.         call    convert_icons
  122.         call    load_ini
  123.         call    calc_ini
  124.         jmp     red_1
  125. ;---------------------------------------------------------------------
  126. red:
  127.         call    control_minimal_window_size
  128. red_1:
  129.         call    draw_window
  130. ;---------------------------------------------------------------------
  131. still:
  132.         mcall   10
  133.         cmp     eax,1
  134.         je      red
  135.         cmp     eax,2
  136.         je      key
  137.         cmp     eax,3
  138.         je      button
  139.         cmp     eax,6
  140.         je      mouse
  141.         jmp     still
  142. ;---------------------------------------------------------------------
  143. control_minimal_window_size:
  144.         pusha
  145.         call    get_window_param
  146.         test    [window_status],10b
  147.         jnz     .end    ;red_1
  148.         test    [window_status],100b
  149.         jnz     .end    ;red_1
  150.         test    [window_status],1b
  151.         jnz     .end    ;red_1
  152.         mov     esi,-1
  153.         mov     eax,procinfo
  154.         mov     eax,[eax+46]
  155.         cmp     eax,dword y_minimal_size ;200
  156.         jae     @f
  157.         mov     esi,dword y_minimal_size ;200
  158.         mcall   67,-1,ebx,ebx
  159. @@:
  160.         mov     edx,-1
  161.         mov     eax,procinfo
  162.         mov     eax,[eax+42]
  163.         cmp     eax,dword x_minimal_size ;300
  164.         jae     @f
  165.         mov     edx,dword x_minimal_size ;300
  166.         mcall   67,-1,ebx,,ebx
  167. @@:
  168. .end:
  169.         popa
  170.         ret
  171. ;---------------------------------------------------------------------
  172. key:
  173.         mov     al,[focus_pointer]
  174.         test    al,al
  175.         jne     key_ASCII
  176.         mcall   2
  177.         xor     ebx,ebx
  178.         cmp     [extended_key],1
  179.         je      .extended_key
  180.         test    al,al
  181.         jnz     still
  182.         cmp     ah,0xE0
  183.         jne     @f
  184.         mov     [extended_key],1
  185.         jmp     still
  186. @@:
  187.         cmp     ah,72   ; arrow up
  188.         je      .2
  189.         cmp     ah,80   ; arrow down
  190.         je      .1
  191.         cmp     ah,28   ; Enter
  192.         je      .7
  193.         cmp     ah,1    ; Esc
  194.         je      button.exit
  195.         cmp     ah,14   ; Backspace
  196.         je      button.exit_dir
  197.         cmp     ah,187  ; F1
  198.         je      select_disk
  199.         cmp     ah,188  ; F2
  200.         je      select_sort
  201.         cmp     ah,189  ; F3
  202.         je      select_filter
  203.         cmp     ah,19   ; R
  204.         je      button.reload_dir
  205.         cmp     ah,42
  206.         je      key_shift_up
  207.         cmp     ah,54
  208.         je      key_shift_up
  209.         cmp     ah,170
  210.         je      key_shift_down
  211.         cmp     ah,182
  212.         je      key_shift_down
  213.         cmp     ah,29
  214.         je      key_ctrl_up
  215.         cmp     ah,157
  216.         je      key_ctrl_down
  217.         cmp     ah,56
  218.         je      key_alt_up
  219.         cmp     ah,184
  220.         je      key_alt_down
  221.         cmp     ah,206  ; NumPad+ Up
  222.         je      NumPad_plus_Up
  223.         cmp     ah,202  ; NumPad- Up
  224.         je      NumPad_minus_Up
  225.         cmp     ah,183  ; NumPad* Up
  226.         je      NumPad_invert_Up
  227.         cmp     ah,158
  228.         je      symbol_a_up
  229.         cmp     ah,15   ; Tab down
  230.         je      change_focus_area_press_Tab_key
  231.         cmp     ah,143  ; Tab up
  232.         je      change_focus_area_check_Tab_key
  233. ; compare for "1,2,3,4,5,6,7,8,9,0,(-),(=)"
  234.         cmp     ah,2
  235.         jb      still
  236.         cmp     ah,13
  237.         jbe     .12
  238. ; compare for "q,w,e,r,t,y,u,i,o,p,([),(])"    
  239.         cmp     ah,16
  240.         jb      still
  241.         cmp     ah,27
  242.         jbe     .12
  243. ; compare for "a,s,d,f,g,h,j,k,l,(;),('),(`)"  
  244.         cmp     ah,30
  245.         jb      still
  246.         cmp     ah,41
  247.         jbe     .12
  248. ; compare for "(\),z,x,c,v,b,n,m,(,),(.),(/)"  
  249.         cmp     ah,43
  250.         jb      still
  251.         cmp     ah,53
  252.         jbe     .12    
  253.         jmp     still
  254. .extended_key:
  255.         mov     [extended_key],0
  256.         cmp     ah,80   ; arrow down
  257.         je      .1
  258.         cmp     ah,72   ; arrow up
  259.         je      .2
  260.         cmp     ah,81   ; PageDown
  261.         je      .3
  262.         cmp     ah,73   ; PageUp
  263.         je      .4
  264.         cmp     ah,71   ; Home
  265.         je      .5
  266.         cmp     ah,79   ; End
  267.         je      .6
  268.         cmp     ah,28   ; Enter
  269.         je      .7
  270.         cmp     ah,82   ; Insert
  271.         je      .8
  272.        
  273.         cmp     ah,29
  274.         je      key_ctrl_up
  275.         cmp     ah,157
  276.         je      key_ctrl_down
  277.         cmp     ah,56
  278.         je      key_alt_up
  279.         cmp     ah,184
  280.         je      key_alt_down
  281.         jmp     still
  282. ;---------------------------------
  283. .12:
  284.         inc     ebx     ; 12 - Search with key
  285. ;---------------------------------
  286. .11:
  287.         inc     ebx     ; 11 - Invert Mark
  288. ;---------------------------------
  289. .10:
  290.         inc     ebx     ; 10 - Unmark All
  291. ;---------------------------------
  292. .9:
  293.         inc     ebx     ; 9 - Mark All
  294. ;---------------------------------
  295. .8:
  296.         inc     ebx     ; 8 - Insert (Mark)
  297. ;---------------------------------
  298. .7:
  299.         inc     ebx     ; 7 - Enter
  300. ;---------------------------------
  301. .6:
  302.         inc     ebx     ; 6 - End
  303. ;---------------------------------
  304. .5:
  305.         inc     ebx     ; 5 - Home
  306. ;---------------------------------
  307. .4:
  308.         inc     ebx     ; 4 - PageUp
  309. ;---------------------------------
  310. .3:
  311.         inc     ebx     ; 3 - PageDown
  312. ;---------------------------------
  313. .2:
  314.         inc     ebx     ; 2 - arrow up
  315. ;---------------------------------
  316. .1:
  317.         inc     ebx     ; 1 - arrow down
  318. ;---------------------------------
  319.         call    .key_action
  320.        
  321. ;       movzx   ecx,word [file_browser_data_1.start_draw_cursor_line]
  322. ;       mcall   47,0x80000,,<50,0>,0x40000000,0xffffff
  323. ;       movzx   ecx,word [file_browser_data_1.size_y]
  324. ;       mcall   47,0x80000,,<150,0>,0x40000000,0xffffff
  325.  
  326.         mov     eax,file_browser_data_1.mouse_keys_delta
  327.         cmp     [eax],dword 3
  328.         jne     still
  329.         xor     ebx,ebx
  330.         mov     [eax],ebx
  331.         call    load_next_dir
  332.         jmp     still
  333. ;-------------------------------------------------------
  334. .key_action:
  335.         mov     [file_browser_data_1.key_action],bx
  336.         shr     ax,8
  337.         mov     [file_browser_data_1.key_action_num],ax
  338.  
  339.         push    dword file_browser_data_1
  340.         call    [FileBrowser_key]
  341.  
  342.         call    draw_open_button_label
  343.  
  344.         cmp     [file_browser_data_1.draw_scroll_bar],0
  345.         je      @f
  346.         call    draw_scrollbar1
  347.         mov     [file_browser_data_1.draw_scroll_bar],0
  348. @@:
  349.         ret
  350. ;---------------------------------------------------------------------
  351. change_focus_area_Tab_key_ASCII:
  352.         xor     eax,eax
  353.         inc     eax
  354.         mov     [Tab_key_block],al
  355.         jmp     change_focus_area
  356. ;---------------------------------------------------------------------
  357. change_focus_area_press_Tab_key:
  358.         cmp     [open_dialog_type],1
  359.         jne     still
  360.         mov     al,[Tab_key_block]
  361.         test    al,al
  362.         jnz     still
  363.         xor     eax,eax
  364.         inc     eax
  365.         mov     [Tab_key],al
  366.         jmp     still
  367. ;---------------------------------------------------------------------
  368. change_focus_area_check_Tab_key:
  369.         cmp     [open_dialog_type],1
  370.         jne     still
  371.         xor     eax,eax
  372.         mov     [Tab_key_block],al
  373.         mov     al,[Tab_key]
  374.         test    al,al
  375.         jz      still
  376.         xor     eax,eax
  377.         mov     [Tab_key],al
  378. ;---------------------------------------------------------------------
  379. change_focus_area:
  380.         mov     al,[focus_pointer]
  381.         inc     al
  382.         and     al,1
  383.         mov     [focus_pointer],al
  384. .1:
  385.         mov     edi,edit1
  386.         test    al,al
  387.         jne     @f
  388.         mov     [file_browser_data_1.select_panel_counter],1
  389.         and     [edi+44],dword 0xFFFFFFFD       ; ed_focus
  390.         mov     [edi+12],dword 0xffffff ; color white
  391.         call    draw_draw_file_browser1
  392.         mcall   66,1,1
  393.         jmp     still
  394. @@:
  395.         mov     [file_browser_data_1.select_panel_counter],0
  396.         or      [edi+44],dword ed_focus
  397.         mov     [edi+12],dword 0xffffb0 ; color yellow
  398.         call    draw_draw_file_browser1
  399.         mcall   66,1,0
  400.         jmp     still
  401. ;---------------------------------------------------------------------
  402. key_ASCII:
  403.         mcall   2
  404.         cmp     ah,9
  405.         je      change_focus_area_Tab_key_ASCII
  406.         cmp     ah,13
  407.         je      .13
  408.         cmp     ah,27
  409.         je      button.exit
  410.         push    dword name_editboxes
  411.         call    [edit_box_key]
  412.         jmp     still
  413. .13:
  414. ;       cmp [open_dialog_type],2        ; Select dir
  415. ;       je      file_no_folder
  416. ;       cmp     [open_dialog_type],1    ; Save file
  417. ;       jne     user_selected_name_action       ; load_dir
  418. ;       inc     [open_dialog_type]
  419.         jmp     file_no_folder
  420. ;.load_dir:
  421. ;       mov     [file_browser_data_1.select_panel_counter],1
  422. ;       xor     eax,eax
  423. ;       mov     [focus_pointer],al
  424. ;       mcall   66,1,1
  425.  
  426. ;       xor     eax,eax
  427. ;       mov     esi,dir_path
  428. ;       cld
  429. ;@@:
  430. ;       lodsb
  431. ;       test    al,al
  432. ;       jne     @r
  433. ;       sub     esi,2
  434. ;       cmp     [esi],byte '/'
  435. ;       jne     @f
  436. ;       xor     eax,eax
  437. ;       mov     [esi],al
  438. ;@@:
  439. ;       call    load_next_dir.1
  440. ;       jmp     still
  441. ;---------------------------------------------------------------------
  442. user_selected_name_action:
  443.         mov     eax,[communication_area]
  444.         test    eax,eax
  445.         jnz     @f
  446.         call    control_minimal_window_size
  447.         call    draw_window
  448.         ret
  449. @@:
  450.         add     eax,16  ;12
  451. ;copy_path      user_selected_name,dir_path,eax,0
  452.         mov     esi,dir_path
  453.         mov     edi,eax
  454.         call    copy_dir_name
  455.         mov     [edi-1],byte '/'
  456.         mov     esi,user_selected_name
  457.         call    copy_dir_name
  458.        
  459.         mov     eax,[communication_area]
  460.         mov     [eax],word 1
  461.         jmp     button.exit
  462. ;--------------------------------------------------------------------- 
  463. select_disk:
  464.         call    check_alt
  465. .1:
  466.         call    load_root_directory
  467.         xor     eax,eax
  468.         mov     [menu_data_1.ret_key],eax
  469.  
  470.         push    dword menu_data_1
  471.         call    [menu_bar_activate]
  472.  
  473.         call    clear_control_key_flag
  474.  
  475.         mov     eax,[menu_data_1.ret_key]
  476.         mov     [menu_data_1.ret_key],dword 0
  477.         cmp     eax,1
  478.         je      select_filter.1
  479.  
  480.         cmp     eax,2
  481.         je      select_sort.1
  482.  
  483.         cmp     [menu_data_1.click],dword 1
  484.         jne     still
  485.  
  486.         cmp     [menu_data_1.cursor_out],dword 0
  487.         jne     analyse_out_menu_1
  488.         jmp     still
  489. ;---------------------------------------------------------------------
  490. select_sort:
  491.         call    check_alt
  492. .1:
  493.         xor     eax,eax
  494.         mov     [menu_data_2.ret_key],eax
  495.  
  496.         push    dword menu_data_2
  497.         call    [menu_bar_activate]
  498.  
  499.         call    clear_control_key_flag
  500.  
  501.         mov     eax,[menu_data_2.ret_key]
  502.         mov     [menu_data_2.ret_key],dword 0
  503.         cmp     eax,1
  504.         je      select_disk.1
  505.  
  506.         cmp     eax,2
  507.         je      select_filter.1
  508.  
  509.  
  510.         cmp     [menu_data_2.click],dword 1
  511.         jne     still
  512.  
  513.         cmp     [menu_data_2.cursor_out],dword 0
  514.         jne     analyse_out_menu_2
  515.         jmp     still
  516. ;---------------------------------------------------------------------
  517. select_filter:
  518.         call    check_alt
  519. .1:
  520.         xor     eax,eax
  521.         mov     [menu_data_3.ret_key],eax
  522.  
  523.         push    dword menu_data_3
  524.         call    [menu_bar_activate]
  525.  
  526.         call    clear_control_key_flag
  527.  
  528.         mov     eax,[menu_data_3.ret_key]
  529.         mov     [menu_data_3.ret_key],dword 0
  530.         cmp     eax,1
  531.         je      select_sort.1
  532.  
  533.         cmp     eax,2
  534.         je      select_disk.1
  535.  
  536.  
  537.         cmp     [menu_data_3.click],dword 1
  538.         jne     still
  539.  
  540.         cmp     [menu_data_3.cursor_out],dword 0
  541.         jne     analyse_out_menu_3
  542.         jmp     still
  543. ;---------------------------------------------------------------------
  544. symbol_a_up:
  545. NumPad_plus_Up:
  546.         call    check_ctrl
  547.         jmp     key.9
  548. ;---------------------------------------
  549. NumPad_minus_Up:
  550.         call    check_ctrl
  551.         jmp     key.10
  552. ;---------------------------------------
  553. NumPad_invert_Up:
  554.         call    check_ctrl
  555.         jmp     key.11
  556. ;---------------------------------------       
  557. check_alt:
  558.         xor     eax,eax
  559.         mov     al,[alt_flag]
  560.         test    eax,eax
  561.         jz      @f
  562.         xor     ebx,ebx
  563.         ret
  564. @@:
  565.         add     esp,4
  566.         jmp     still
  567. ;---------------------------------------       
  568. check_ctrl:
  569.         xor     eax,eax
  570.         mov     al,[ctrl_flag]
  571.         test    eax,eax
  572.         jz      @f
  573.         xor     ebx,ebx
  574.         ret
  575. @@:
  576.         add     esp,4
  577.         jmp     still
  578. ;---------------------------------------------------------------------
  579. clear_control_key_flag:
  580.         xor     eax,eax
  581.         mov     [shift_flag],al
  582.         mov     [ctrl_flag],al
  583.         mov     [alt_flag],al
  584.         ret
  585. ;---------------------------------------------------------------------
  586. key_shift_up:
  587.         mov     [shift_flag],1
  588.         jmp     still
  589. ;---------------------------------------------------------------------
  590. key_shift_down:
  591.         mov     [shift_flag],0
  592.         jmp     still
  593. ;---------------------------------------------------------------------
  594. key_ctrl_up:
  595.         mov     [ctrl_flag],1
  596.         jmp     still
  597. ;---------------------------------------------------------------------
  598. key_ctrl_down:
  599.         mov     [ctrl_flag],0
  600.         jmp     still
  601. ;---------------------------------------------------------------------
  602. key_alt_up:
  603.         mov     [alt_flag],1
  604.         jmp     still
  605. ;---------------------------------------------------------------------
  606. key_alt_down:
  607.         mov     [alt_flag],0
  608.         jmp     still
  609. ;---------------------------------------------------------------------
  610. button:
  611.         mcall   17
  612.         cmp     ah,6
  613.         je      .reload_dir_1
  614.         cmp     ah,4
  615.         je      .open_dir_or_file
  616.         cmp     ah,3
  617.         je      .exit
  618.         cmp     ah,2
  619.         je      .exit_dir
  620.         cmp     ah,1
  621.         jne     still
  622. .exit:
  623.         mov     eax,[communication_area]
  624.         test    eax,eax
  625.         jz      @f
  626.         cmp     [eax],word 1
  627.         je      @f
  628.         mov     [eax],word 3
  629. @@:
  630.         mov     eax,[N_error]
  631.         test    eax,eax
  632.         jz      @f
  633.         call    start_error_window_thread
  634. @@:
  635.         call    get_window_param
  636.         mov     ebx,[communication_area]
  637.         mov     ecx,procinfo
  638. ;       mov     eax,[window_x]
  639.         mov     eax,[ecx+34]
  640.         shl     eax,16
  641.         add     eax,[ecx+42]
  642.         mov     [ebx+4],eax
  643. ;       mov     eax,[window_y]
  644.         mov     eax,[ecx+38]
  645.         shl     eax,16
  646.         add     eax,[ecx+46]
  647.         mov     [ebx+8],eax
  648.  
  649.         mcall   -1
  650. ;---------------------------------------------------------------------
  651. .reload_dir:
  652.         cmp     [ctrl_flag],bl
  653.         je      key.12 ; Just symbol 'R' or 'r'
  654. .reload_dir_1:
  655.         call    load_next_dir.1
  656.         jmp     still
  657. ;---------------------------------------------------------------------
  658. .exit_dir:
  659.         call    load_next_dir.exit_dir
  660.         jmp     still
  661. ;---------------------------------------------------------------------
  662. .open_dir_or_file:
  663.         cmp     [open_dialog_type],0    ;Open file
  664.         jne     @f
  665.  
  666.         mov     eax,[file_browser_data_1.folder_data]
  667.         mov     eax,[eax+4]
  668.         test    eax,eax
  669.         jz      button.exit
  670. @@:
  671.         cmp     [open_dialog_type],2    ;Select dir
  672.         je      file_no_folder
  673.        
  674.         cmp     [open_dialog_type],1    ;Save file
  675.         jne     @f
  676.  
  677.         mov     al,[focus_pointer]
  678.         test    al,al
  679.         jne     file_no_folder 
  680. @@:
  681.         xor     ebx,ebx
  682.         jmp     key.7
  683. ;---------------------------------------------------------------------
  684. thread_start:
  685.         mov     eax,[N_error]
  686.         cmp     al,1
  687.         jne     @f
  688.         mov     [N_error],load_ini_error_type
  689.         mov     [error_path],file_name
  690.         jmp     .error_type
  691. @@:
  692.         cmp     al,2
  693.         jne     @f
  694.         mov     [N_error],load_icons_error_type
  695.         mov     [error_path],file_name
  696.         jmp     .error_type
  697. @@:
  698.         cmp     al,3
  699.         jne     @f
  700.         mov     [N_error],memory_free_error_type
  701.         xor     eax,eax
  702.         mov     [error_path],eax
  703.         mov     [error_type],eax
  704.         jmp     .red
  705. @@:
  706.         cmp     al,4
  707.         jne     @f
  708.         mov     [N_error],memory_get_error_type
  709.         xor     eax,eax
  710.         mov     [error_path],eax
  711.         mov     [error_type],eax
  712.         jmp     .red
  713. @@:
  714.         cmp     al,5
  715.         jne     @f
  716.         mov     [N_error],load_directory_error_type
  717.         mov     [error_path],dir_path
  718.         jmp     .error_type
  719. @@:
  720.         cmp     al,6
  721.         jne     .button
  722.         mov     [N_error],convert_icons_error_type
  723.         mov     [error_path],file_name
  724.         xor     eax,eax
  725.         mov     [error_type],eax
  726.         jmp     .red
  727. .error_type:
  728.         mov     eax,[error_type]
  729.         shl     eax,2
  730.         add     eax,error_fs_text_pointers
  731.         mov     eax,[eax]
  732.         mov     [error_type],eax
  733. .red:
  734.         call    draw_error_window
  735. .still:
  736.         mcall   10
  737.         cmp     eax,1
  738.         je      .red
  739.         cmp     eax,2
  740.         je      .key
  741.         cmp     eax,3
  742.         je      .button
  743.         jmp     .still
  744. .key:
  745.         mcall   2
  746.         jmp     .still
  747. .button:
  748.         mcall   -1
  749.         jmp     .still
  750. ;---------------------------------------------------------------------
  751. draw_error_window:
  752.         mcall   12,1
  753.         mcall   0,[error_window_x],[error_window_y],0x03ff0000
  754.         call    type_title
  755.         mcall   4,<10,30>,0x90ffffff,[N_error]
  756.         mov     eax,[error_path]
  757.         test    eax,eax
  758.         jz      @f
  759.         mcall   4,<10,50>,,[error_path]
  760. @@:
  761.         mov     eax,[error_type]
  762.         test    eax,eax
  763.         jz      @f
  764.         mcall   4,<10,70>,,[error_type]
  765. @@:
  766.         mcall   12,2
  767.         ret
  768. ;---------------------------------------------------------------------
  769. start_error_window_thread:
  770.         mcall   9,procinfo,-1
  771.         mov     eax,[ebx+46]
  772.         shr     eax,1
  773.         add     eax,[ebx+38]
  774.         sub     eax,40
  775.         mov     [error_window_y+2],ax
  776.         mov     eax,[ebx+42]
  777.         shr     eax,1
  778.         add     eax,[ebx+34]
  779.         sub     eax,125
  780.         mov     [error_window_x+2],ax
  781.         mcall   51,1,thread_start,thread_stack
  782.         ret
  783. ;---------------------------------------------------------------------
  784. mouse:
  785.         mcall   18,7
  786.         cmp     [active_process],eax
  787.         jne     still
  788.  
  789.         mcall   37,7
  790.         mov     [mouse_scroll_data],eax
  791.  
  792.         mcall   37,1
  793.         mov     [mouse_position],eax
  794.  
  795.         cmp     [scroll_bar_data_vertical.delta2],0
  796.         jne     .scrollbar
  797.  
  798.         mov     [file_browser_data_1.select_flag],0
  799.  
  800.         push    dword file_browser_data_1
  801.         call    [FileBrowser_mouse]
  802.  
  803.         call    draw_open_button_label
  804.  
  805.         mov     eax,file_browser_data_1.mouse_keys_delta
  806.         cmp     [eax],dword 3
  807.         jne     .check_focus    ; scrollbar
  808.         mov     [eax],dword 0
  809.         call    load_next_dir
  810.         jmp     still
  811. ;---------------------------------------------------
  812. .check_focus:
  813.         mov     ebx,[file_browser_data_1.select_flag]
  814.         test    ebx,ebx
  815.         jz      .scrollbar      ;@f
  816.         mov     al,[focus_pointer]
  817.         test    al,al
  818.         jz      .scrollbar
  819.         xor     eax,eax
  820.         mov     [focus_pointer],al
  821.         jmp     change_focus_area.1
  822. ;---------------------------------------------------
  823. .scrollbar:
  824.         mov     eax,[scroll_bar_data_vertical.max_area]
  825.         cmp     eax,[scroll_bar_data_vertical.cur_area]
  826.         jbe     .menu_bar       ;still
  827.        
  828.         push    dword scroll_bar_data_vertical
  829.         call    [scrollbar_ver_mouse]
  830.        
  831.         cmp     [scroll_bar_data_vertical.redraw],0
  832.         je      .menu_bar       ;still
  833.         mov     [scroll_bar_data_vertical.redraw],0
  834. .draw:
  835.         call    draw_draw_file_browser2
  836.         jmp     still
  837.  
  838. ;---------------------------------------------------
  839. .menu_bar:
  840.         cmp     [scroll_bar_data_vertical.delta2],0
  841.         jne     still
  842.  
  843. .menu_bar_1:
  844.         call    .set_mouse_flag
  845. @@:
  846.         push    dword menu_data_1
  847.         call    [menu_bar_mouse]
  848.  
  849.         cmp     [menu_data_1.click],dword 1
  850.         jne     .menu_bar_2
  851.  
  852.         cmp     [menu_data_1.cursor_out],dword 0
  853.         jne     select_disk.1   ;analyse_out_menu_1
  854.         jmp     .menu_bar_1
  855. ;--------------------------------------------
  856. .menu_bar_2:
  857.         push    dword menu_data_2
  858.         call    [menu_bar_mouse]
  859.  
  860.         cmp     [menu_data_2.click],dword 1
  861.         jne     .menu_bar_3
  862.  
  863.         cmp     [menu_data_2.cursor_out],dword 0
  864.         jne     analyse_out_menu_2
  865.         jmp     .menu_bar_1
  866. ;---------------------------------------------------
  867. .menu_bar_3:
  868.         push    dword menu_data_3
  869.         call    [menu_bar_mouse]
  870.  
  871.         cmp     [menu_data_3.click],dword 1
  872.         jne     .check_editboxes
  873.  
  874.         cmp     [menu_data_3.cursor_out],dword 0
  875.         jne     analyse_out_menu_3
  876.         jmp     .menu_bar_1
  877. ;---------------------------------------------------
  878. .check_editboxes:
  879.         cmp     [open_dialog_type],1
  880.         jne     .check_scroll_event
  881.         mov     eax,[edit1+44]
  882.         and     eax,10b
  883.         push    dword name_editboxes
  884.         call    [edit_box_mouse]
  885.         mov     ebx,[edit1+44]
  886.         and     ebx,10b
  887.         cmp     eax,ebx
  888.         je      .check_scroll_event
  889.         mov     al,[focus_pointer]
  890.         test    al,al
  891.         jnz     .check_scroll_event
  892.         xor     eax,eax
  893.         test    ebx,10b
  894.         jz      @f
  895.         inc     eax
  896. @@:
  897.         mov     [focus_pointer],al
  898.         jmp     change_focus_area.1
  899. ;---------------------------------------------------
  900. .check_scroll_event:
  901.         mov     eax,[mouse_position]
  902.         xor     ebx,ebx
  903.         mov     bx,ax   ; EBX mouse y
  904.         shr     eax,16  ; EAX mouse x
  905.        
  906.         mov     cx,[file_browser_data_1.start_x]
  907.         mov     dx,[file_browser_data_1.start_y]
  908.  
  909.         cmp     ax,cx
  910.         jb      .mouse_next     ; min x
  911.  
  912.         cmp     bx,dx
  913.         jb      .mouse_next     ; min y
  914.  
  915.         add     cx,[file_browser_data_1.size_x]
  916.         cmp     ax,cx  
  917.         ja      .mouse_next     ; max x
  918.  
  919.         add     dx,[file_browser_data_1.size_y]
  920.         cmp     bx,dx
  921.         ja      .mouse_next     ; max y
  922.  
  923.         xor     ecx,ecx
  924.         xor     ebx,ebx
  925.         mov     eax,[mouse_scroll_data]
  926.         test    eax,eax
  927.         jz      .mouse_next
  928.         test    ax,0x8000
  929.         jnz     .decr
  930.         shr     eax,16
  931.         test    ax,0x8000
  932.         jnz     .decr_1
  933.  
  934.         mov     cx,[mouse_scroll_data.vertical]
  935.         test    ecx,ecx
  936.         jnz     @f
  937.         mov     cx,[mouse_scroll_data.horizontal]
  938.         test    ecx,ecx
  939.         jz      .mouse_next
  940. @@:
  941.         mov     ebx,1
  942. @@:
  943.         push    ebx ecx
  944.         call    key.key_action
  945.         pop     ecx ebx
  946.         dec     ecx
  947.         jnz     @r
  948.         jmp     still
  949. ;----------------------------------------
  950. .decr:
  951.         mov     bx,[mouse_scroll_data.vertical]
  952.         jmp     @f
  953. .decr_1:
  954.         mov     bx,[mouse_scroll_data.horizontal]
  955. @@:
  956.         mov     ecx,0xffff
  957.         sub     ecx,ebx
  958.         inc     ecx
  959.         mov     ebx,2
  960. @@:
  961.         push    ebx ecx
  962.         call    key.key_action
  963.         pop     ecx ebx
  964.         dec     ecx
  965.         jnz     @r
  966.         jmp     still
  967. ;---------------------------------------------------
  968. .mouse_next:
  969.         jmp     still
  970. ;---------------------------------------------------------------------
  971. .set_mouse_flag:
  972.         xor     eax,eax
  973.         inc     eax
  974.         mov     [menu_data_1.get_mouse_flag],eax
  975.         mov     [menu_data_2.get_mouse_flag],eax
  976.         ret
  977. ;---------------------------------------------------------------------
  978. analyse_out_menu_1:
  979. ; Available disks
  980.         mov     eax,[menu_data_1.cursor_out]
  981.         dec     eax
  982.         imul    esi,eax,10
  983.         add     esi,retrieved_devices_table
  984.         mov     edi,dir_path
  985.         call    copy_dir_name
  986.         call    load_next_dir.1
  987.         jmp     still
  988. ;---------------------------------------------------------------------
  989. analyse_out_menu_2:
  990. ; Sort
  991.         mov     eax,[menu_data_2.cursor_out]
  992.         xor     ebx,ebx
  993.         cmp     eax,dword 1
  994.         je      .1
  995.         cmp     eax,dword 2
  996.         je      .2
  997.         cmp     eax,dword 3
  998.         je      .3
  999.         cmp     eax,dword 4
  1000.         je      .4
  1001.         jmp     still
  1002. .4:
  1003.         add     ebx,2
  1004. .3:
  1005.         add     ebx,2
  1006. .2:
  1007.         add     ebx,2
  1008. .1:
  1009.         mov     [sort_type],ebx
  1010.         call    sort_directory
  1011.         call    draw_draw_file_browser1
  1012.         jmp     still
  1013. ;---------------------------------------------------------------------
  1014. analyse_out_menu_3:
  1015. ; Filter
  1016.         mov     eax,[menu_data_3.cursor_out]
  1017.         cmp     eax,dword 1
  1018.         jne     @f
  1019.         mov     [filter_flag],0
  1020.         call    load_next_dir.1
  1021.         jmp     still
  1022. @@:
  1023.         cmp     eax,dword 2
  1024.         jne     still
  1025.         mov     [filter_flag],1
  1026.         call    load_next_dir.1
  1027.         jmp     still  
  1028. ;---------------------------------------------------------------------
  1029. get_communication_area:
  1030.         xor     eax,eax
  1031.         mov     al,[param]
  1032.         test    eax,eax
  1033.         jz      .exit
  1034.         mcall   68,22,param,,0x01
  1035.         mov     [communication_area],eax
  1036.         movzx   ebx,word [eax+2]
  1037.         mov     [open_dialog_type],ebx
  1038.         cmp     ebx,1
  1039.         jne     @f
  1040.         pushad
  1041.         mov     [focus_pointer],bl
  1042.         mov     edi,edit1
  1043.         mov     [file_browser_data_1.select_panel_counter],0
  1044.         or      [edi+44],dword ed_focus
  1045.         mov     [edi+12],dword 0xffffb0 ; color yellow
  1046.         mcall   66,1,0
  1047.         popad
  1048. @@:
  1049.         mov     ebx,[eax+4]
  1050.         cmp     bx,word x_minimal_size ;300
  1051.         jb      @f
  1052.         mov     [window_x],ebx
  1053.         mov     ebx,[eax+8]
  1054.         cmp     bx,word y_minimal_size ;200
  1055.         jb      @f
  1056.         mov     [window_y],ebx
  1057. .exit:
  1058.         ret
  1059. ;---------------------------------------------------------------------
  1060. load_start_directory:
  1061.         mov     eax,[communication_area]       
  1062.         test    eax,eax
  1063.         jz      .1
  1064.         movzx   ebx,word [eax]
  1065.         test    eax,eax
  1066.         jz      .1
  1067.         add     eax,16  ;12 ;4
  1068.         mov     esi,eax
  1069.         push    esi
  1070.         mov     esi,[communication_area]
  1071.         add     esi,3840 ;4096-256
  1072.         mov     eax,[esi]
  1073.         test    al,al
  1074.         jnz     @f
  1075.         mov     esi,example_name_temp
  1076. @@:
  1077.         mov     edi,user_selected_name
  1078.         call    copy_dir_name
  1079.         pop     esi
  1080.         jmp     .2
  1081. .1:
  1082.         mov     esi,start_pach
  1083. .2:
  1084.         mov     edi,dir_path
  1085.         call    copy_dir_name
  1086.        
  1087. ;       call    load_directory
  1088. ;       mov     eax,[N_error]
  1089. ;       test    eax,eax
  1090. ;       jnz     button.exit
  1091. .3:
  1092.         call    load_directory
  1093.         mov     eax,[N_error]
  1094.         test    eax,eax
  1095.         jz      @f
  1096.         call    error_handler
  1097.         jmp     .3
  1098. @@:
  1099.         ret
  1100. ;---------------------------------------------------------------------
  1101. load_next_dir:
  1102.         mov     ebx,[file_browser_data_1.folder_block]
  1103.         test    ebx,ebx
  1104.         jz      .exit
  1105.  
  1106.         mov     ebx,[file_browser_data_1.selected_BDVK_adress]
  1107.         add     ebx,40
  1108.         test    [ebx-40],byte 0x10
  1109.         jz      file_no_folder
  1110.         cmp     [ebx],word '..'
  1111.         jne     @f
  1112.         cmp     [ebx+2],byte 0
  1113.         je      .exit_dir
  1114. @@:
  1115.         mov     esi,dir_path
  1116.         call    copy_dir_path
  1117.  
  1118. @@:
  1119. .1:
  1120.         call    load_directory
  1121.         mov     eax,[N_error]
  1122.         test    eax,eax
  1123.         jz      @f
  1124.         call    error_handler
  1125.         jmp     .1
  1126. @@:
  1127.         call    sort_directory
  1128.  
  1129.         mov     ebx,[scroll_bar_data_vertical.x]
  1130.         inc     ebx
  1131.         mov     ecx,[scroll_bar_data_vertical.y]
  1132.         inc     ecx
  1133.         mcall   13,,,0xcccccc
  1134.         mov     edi,edit1
  1135.         xor     eax,eax
  1136.         mov     [edi+44],eax
  1137.         mov     [edi+12],dword 0xffffff ; color white
  1138.         call    draw_draw_file_browser1
  1139. .exit:
  1140.         ret
  1141. .exit_dir:
  1142.         mov     esi,dir_path
  1143.         call    copy_exit_dir
  1144.         jmp     .1
  1145. ;---------------------------------------------------------------------
  1146. error_handler:
  1147.         mcall   66,2
  1148.         mov     [error_handler_store_input_mode],eax
  1149.         mcall   66,1,1
  1150. .red:
  1151.         call    .draw_window
  1152. ;------------------------------------
  1153. .still:
  1154.         mcall   10
  1155.         cmp     eax,1
  1156.         je      .red
  1157.         cmp     eax,2
  1158.         je      .key
  1159.         cmp     eax,3
  1160.         je      .button
  1161.         jmp     .still
  1162. ;------------------------------------
  1163. .draw_window:
  1164.         xor     eax,eax
  1165.         inc     eax
  1166.         mov     [error_window],al
  1167.         call    control_minimal_window_size
  1168.         call    draw_window
  1169.         xor     eax,eax
  1170.         mov     [error_window],al
  1171.         ret
  1172. ;------------------------------------
  1173. .key:
  1174.         mcall   2
  1175.         xor     ebx,ebx
  1176.         cmp     [extended_key],1
  1177.         je      .extended_key
  1178.         test    al,al
  1179.         jnz     .still
  1180.         cmp     ah,0xE0
  1181.         jne     @f
  1182.         mov     [extended_key],1
  1183.         jmp     .still
  1184. @@:
  1185.         cmp     ah,129  ; Esc
  1186.         je      .exit
  1187.         jmp     .still
  1188. .extended_key:
  1189.         jmp     .still
  1190. ;------------------------------------
  1191. .button:
  1192.         mcall   17
  1193.         cmp     ah,5
  1194.         je      .exit
  1195.         cmp     ah,1
  1196.         jne     .still
  1197.         xor     eax,eax
  1198.         mov     [N_error],eax
  1199.         jmp     button.exit
  1200. ;------------------------------------
  1201. .exit:
  1202.         cmp     [open_dialog_type],1
  1203.         jne     @f
  1204.  
  1205.         mov     esi,root_pach
  1206.         mov     edi,dir_path
  1207.         call    copy_dir_name.1
  1208.         mov     esi,root_pach
  1209.         mov     edi,previous_dir_path
  1210.         call    copy_dir_name.1
  1211.         jmp     .restore_input_mode
  1212. @@:
  1213.         mov     esi,previous_dir_path
  1214.         mov     edi,dir_path
  1215.         call    copy_dir_name.1
  1216.         mov     esi,start_pach
  1217.         mov     edi,previous_dir_path
  1218.         call    copy_dir_name.1
  1219. .restore_input_mode:
  1220.         mcall   66,1,[error_handler_store_input_mode]
  1221.         ret
  1222. ;---------------------------------------------------------------------
  1223. file_no_folder:
  1224.         mov     esi,dir_path
  1225.         mov     edi,file_name
  1226.         call    copy_dir_name
  1227.         push    ebx
  1228.         mov     al,[focus_pointer]
  1229.         test    al,al
  1230.         je      @f
  1231.         mov     ebx,user_selected_name
  1232.         xor     eax,eax
  1233.         cmp     [ebx],al
  1234.         je      .exit
  1235. @@:
  1236.         cmp     [open_dialog_type],2
  1237.         je      @f
  1238.         mov     esi,file_name
  1239.         call    copy_dir_path
  1240. @@:
  1241.         mov     eax,[communication_area]
  1242.         test    eax,eax
  1243.         jnz     @f
  1244.         call    control_minimal_window_size
  1245.         call    draw_window
  1246.         pop     ebx
  1247.         ret
  1248. @@:
  1249.         mov     edi,eax
  1250.         add     edi,16  ;12
  1251.         mov     esi,file_name  
  1252.         call    copy_dir_name
  1253.        
  1254.         pop     esi
  1255.         mov     al,[focus_pointer]
  1256.         test    al,al
  1257.         jz      @f
  1258.         mov     esi,user_selected_name
  1259. @@:
  1260.         xor     eax,eax
  1261.         cmp     [esi],al
  1262.         je      .exit
  1263.         mov     edi,[communication_area]
  1264.         add     edi,3840 ;4096-256
  1265.         call    copy_dir_name
  1266. .exit:
  1267.         mov     eax,[communication_area]
  1268.         mov     [eax],word 1
  1269.         jmp     button.exit
  1270. ;---------------------------------------------------------------------
  1271. load_root_directory:
  1272.         mov     [dirinfo.name],dword dir_path_temp
  1273.         mov     eax,[dirinfo.return]
  1274.         push    eax
  1275.         mov     eax,[file_browser_data_1.folder_data]
  1276.         push    eax
  1277.         xor     eax,eax
  1278.         mov     [dirinfo.return],eax
  1279.         mov     [file_browser_data_1.folder_data],eax
  1280.         mov     esi,root_pach
  1281.         mov     edi,dir_path_temp
  1282.         call    copy_dir_name
  1283.         call    load_directory
  1284.         mov     eax,[N_error]
  1285.         test    eax,eax
  1286.         jnz     button.exit
  1287.  
  1288.         mov     eax,[dirinfo.return]
  1289.         mov     [root_folder_area],eax
  1290.         mov     eax,[eax+4]
  1291.         mov     [root_folder_block],eax
  1292.  
  1293.         xor     eax,eax
  1294.         mov     [dirinfo.return],eax
  1295.         mov     [file_browser_data_1.folder_data],eax
  1296.         mov     [temp_counter_1],eax    ;0
  1297.  
  1298.         mov     [retrieved_devices_table_counter],eax   ;0
  1299. .start_temp_counter_1:
  1300.         imul    esi,[temp_counter_1],304
  1301.         add     esi,[root_folder_area]
  1302.         add     esi,32+40
  1303.         mov     edi,dir_path_temp+1
  1304.         mov     [edi-1],byte '/'
  1305.         call    copy_dir_name
  1306.         call    load_directory
  1307.         mov     eax,[N_error]
  1308.         test    eax,eax
  1309.         jnz     button.exit
  1310.  
  1311.         mov     eax,[dirinfo.return]
  1312.         mov     [root1_folder_area],eax
  1313.         mov     eax,[eax+4]
  1314.         test    eax,eax
  1315.         jz      .continue
  1316.         mov     [root1_folder_block],eax
  1317.        
  1318.         mov     ebp,0
  1319. .start_copy_device_patch:
  1320.         imul    edi,[retrieved_devices_table_counter],10
  1321.         add     edi,retrieved_devices_table
  1322.         mov     [edi],byte '/'
  1323.         inc     edi
  1324.         imul    esi,[temp_counter_1],304
  1325.         add     esi,[root_folder_area]
  1326.         add     esi,32+40
  1327.  
  1328.         call    copy_dir_name
  1329.  
  1330.         imul    esi,ebp,304
  1331.         add     esi,[root1_folder_area]
  1332.         add     esi,32+40
  1333.         mov     [edi-1],byte '/'
  1334.  
  1335.         call    copy_dir_name
  1336.  
  1337.         inc     [retrieved_devices_table_counter]
  1338.         inc     ebp
  1339.         cmp     ebp,[root1_folder_block]
  1340.         jb      .start_copy_device_patch
  1341. .continue:
  1342.         inc     [temp_counter_1]
  1343.         mov     eax,[temp_counter_1]
  1344.         cmp     eax,[root_folder_block]
  1345.         jb      .start_temp_counter_1
  1346.  
  1347.         cmp     [root_folder_area],dword 0
  1348.         je      @f
  1349.         mcall   68,13,[root_folder_area]
  1350.         test    eax,eax
  1351.         jz      memory_free_error
  1352. @@:
  1353.  
  1354.         xor     ecx,ecx
  1355.         mov     edi,menu_text_area_1_1  ;.1
  1356. @@:
  1357.         imul    esi,ecx,10
  1358.         add     esi,retrieved_devices_table
  1359.         call    copy_dir_name
  1360.         inc     ecx
  1361.         cmp     ecx,[retrieved_devices_table_counter]
  1362.         jb      @b
  1363.         mov     [menu_data_1.text_end],edi
  1364.         xor     eax,eax
  1365.         mov     [edi],eax
  1366.         pop     eax
  1367.         mov     [file_browser_data_1.folder_data],eax
  1368.         pop     eax
  1369.         mov     [dirinfo.return],eax
  1370.         mov     [dirinfo.name],dword dir_path
  1371.         ret
  1372. ;---------------------------------------------------------------------
  1373. memory_free_error:
  1374.         mov     [N_error],3
  1375.         jmp     button.exit
  1376. ;---------------------------------------------------------------------
  1377. memory_get_error:
  1378.         mov     [N_error],4
  1379.         jmp     button.exit
  1380. ;---------------------------------------------------------------------
  1381. type_title:
  1382.         mov     ecx,[open_dialog_type]
  1383.         shl     ecx,2
  1384.         add     ecx,open_dialog_title_pointer
  1385.         mov     ecx,[ecx]
  1386.         test    ecx,ecx
  1387.         jz      @f
  1388.         mcall   71,1,; title ;;param ;file_name ;dir_path
  1389. @@:
  1390.         ret
  1391. ;---------------------------------------------------------------------
  1392. draw_window:
  1393.  
  1394.         mcall   12,1
  1395.        
  1396.         call    prepare_system_colors
  1397.  
  1398. ;       mcall   0,<10,420>,<10,320>,0x63AABBCC,
  1399.         xor     esi,esi
  1400. ;       mov     edx,[w_work]    ; color of work area RRGGBB,8->color
  1401. ;       or      edx,0x63000000
  1402.         mcall   0,[window_x],[window_y],0x63AABBCC
  1403.  
  1404. ;       mov     ecx,[communication_area]
  1405. ;       add     ecx,4096+4+4
  1406.         call    type_title
  1407.         call    get_window_param
  1408.        
  1409.         mov     eax,[procinfo+70] ;status of window
  1410.         test    eax,100b
  1411.         jne     .end
  1412.        
  1413.         mov     eax,[window_high]
  1414.         sub     eax,25+45
  1415.         mov     [file_browser_data_1.size_y],ax
  1416.         mov     [scroll_bar_data_vertical.size_y],ax
  1417.        
  1418.         mov     eax,[window_width]
  1419.         sub     eax,10+20
  1420.         mov     [file_browser_data_1.size_x],ax
  1421.         add     ax,10
  1422.         mov     [scroll_bar_data_vertical.start_x],ax
  1423.        
  1424.         mov     edx,[w_work]    ; color of work area RRGGBB,8->color
  1425.         or      edx,0x63000000
  1426.         mcall   13,[window_width],45    ;,0xcccccc
  1427.  
  1428.         push    ecx
  1429.         rol     ecx,16
  1430.         add     cx,[file_browser_data_1.size_y]
  1431.         add     cx,45
  1432.         ror     ecx,16
  1433.         mov     cx,25
  1434.         mcall
  1435.         pop     ecx
  1436.         add     ecx,45 shl 16
  1437.         mov     cx,[file_browser_data_1.size_y]
  1438.         mov     bx,10
  1439.         mcall
  1440.         mov     bx,[file_browser_data_1.size_x]
  1441.         add     bx,10
  1442.         shl     ebx,16
  1443.         mov     bx,20
  1444.         mcall
  1445.  
  1446.         cmp     [error_window],0
  1447.         je      @f
  1448.         call    draw_for_fs_errors
  1449.         jmp     .1
  1450. @@:
  1451.         mov     [do_not_draw_open_button_label],1
  1452.         call    draw_draw_file_browser1
  1453.         mov     [do_not_draw_open_button_label],0
  1454. .1:
  1455.         push    dword menu_data_1
  1456.         call    [menu_bar_draw]
  1457.         push    dword menu_data_2
  1458.         call    [menu_bar_draw]
  1459.         push    dword menu_data_3
  1460.         call    [menu_bar_draw]
  1461.  
  1462.         mov     ebx,[file_browser_data_1.x]
  1463.         mov     ax,bx
  1464.         shl     eax,16
  1465.         add     ebx,eax
  1466.         mov     eax,50
  1467.         mov     bx,ax
  1468.         shl     eax,16
  1469.         sub     ebx,eax
  1470.         mov     ecx,26 shl 16+15
  1471.  
  1472.         mcall   8,,,2,[w_work_button]   ;0xffffff
  1473.  
  1474.         pusha
  1475.         shr     ecx,16
  1476.         mov     bx,cx
  1477.         add     ebx,20 shl 16+2
  1478.         mov     ecx,[w_work_button_text]
  1479.         or      ecx,0x90000000
  1480.         mcall   4,,,message_ExitDir_button
  1481.         add     ebx,4
  1482.         mcall
  1483.         add     ebx,4
  1484.         mcall
  1485.         popa
  1486.  
  1487.         push    ebx
  1488.         sub     ebx,70 shl 16
  1489.         mov     bx,60
  1490.         mcall   8,,,6
  1491.  
  1492.         shr     ecx,16
  1493.         mov     bx,cx
  1494.         add     ebx,5 shl 16+4
  1495.         mov     ecx,[w_work_button_text]
  1496.         or      ecx,0x90000000
  1497.         mcall   4,,,message_ReloadDir_button
  1498.         pop     ebx
  1499.  
  1500.         mov     ebx,[file_browser_data_1.x]
  1501.        
  1502.         mov     ax,bx
  1503.         shl     eax,16
  1504.         add     ebx,eax
  1505.         mov     eax,55
  1506.         mov     bx,ax
  1507.         shl     eax,16
  1508.         sub     ebx,eax
  1509.  
  1510.         mov     ecx,[file_browser_data_1.y]
  1511.         mov     ax,cx
  1512.         add     eax,3
  1513.         shl     eax,16
  1514.         add     ecx,eax
  1515.         mov     cx,15
  1516.  
  1517.         mcall   8,,,3
  1518.  
  1519.         pusha
  1520.  
  1521.         shr     ecx,16
  1522.         mov     bx,cx
  1523.         add     ebx,6 shl 16+ 4
  1524.         mov     ecx,[w_work_button_text]
  1525.         or      ecx,0x90000000
  1526.         mcall   4,,,message_cancel_button
  1527.         popa
  1528.  
  1529.         sub     ebx,65 shl 16
  1530.         mcall   8,,,4
  1531.        
  1532.         shr     ecx,16
  1533.         mov     bx,cx
  1534.         add     ebx,6 shl 16+4
  1535.        
  1536.         mov     edx,[open_dialog_type]
  1537.         shl     edx,2
  1538.         add     edx,message_open_dialog_button
  1539.         mov     edx,[edx]
  1540. ;--------------------------------------
  1541.         cmp     [open_dialog_type],1
  1542.         jne     @f
  1543.  
  1544.         cmp     [focus_pointer],1
  1545.         je      @f
  1546.  
  1547.         cmp     [error_window],0
  1548.         jne     @f
  1549.        
  1550.         mov     eax,[file_browser_data_1.selected_BDVK_adress]
  1551.         test    [eax],byte 0x10
  1552.         jz      @f
  1553.  
  1554.         mov     edx,message_0   ; Open Dir
  1555. @@:
  1556. ;--------------------------------------
  1557.         mov     [open_button_coordinates],ebx
  1558.         mov     ecx,[w_work_button_text]
  1559.         or      ecx,0x90000000
  1560.         mcall   4       ;message_open_button
  1561.        
  1562. ;       mcall   47,0x80000,[file_browser_data_1.ini_file_start],<250,0>,0x0
  1563. ;       mcall   4,<3,420>,0,fb_extension_start,3
  1564. .end:
  1565.         mcall   12,2
  1566.  
  1567.         ret
  1568. ;---------------------------------------------------------------------
  1569. draw_open_button_label:
  1570.         cmp     [do_not_draw_open_button_label],1
  1571.         je      .exit_1
  1572.  
  1573.         cmp     [open_dialog_type],1
  1574.         jne     .exit_1
  1575.  
  1576.         cmp     [focus_pointer],1
  1577.         je      draw_save_button_label
  1578.        
  1579.         pusha
  1580.         mov     ebx,[open_button_coordinates]
  1581.         test    ebx,ebx
  1582.         jz      .exit
  1583.  
  1584.         mov     edx,[open_dialog_type]
  1585.         shl     edx,2
  1586.         add     edx,message_open_dialog_button
  1587.         mov     edx,[edx]
  1588.        
  1589.         mov     eax,[file_browser_data_1.folder_block]
  1590.         test    eax,eax
  1591.         jz      .1
  1592.        
  1593.         mov     eax,[file_browser_data_1.selected_BDVK_adress]
  1594.         test    [eax],byte 0x10
  1595.         jz      @f
  1596.        
  1597.         mov     edx,message_0   ; Open Dir
  1598.         jmp     .1
  1599. @@:
  1600.         call    copy_new_file_name
  1601. .1:
  1602.         mov     ecx,[w_work_button_text]
  1603.         or      ecx,0xd0000000
  1604.         mov     edi,[w_work_button]
  1605.         mcall   4       ;message_open_button
  1606. .exit:
  1607.         popa
  1608. .exit_1:
  1609.         ret
  1610. ;---------------------------------------------------------------------
  1611. draw_save_button_label:
  1612.         pusha
  1613.         mov     ebx,[open_button_coordinates]
  1614.  
  1615.         mov     edx,message_1   ; Save
  1616.  
  1617.         mov     ecx,[w_work_button_text]
  1618.         or      ecx,0xd0000000
  1619.         mov     edi,[w_work_button]
  1620.         mcall   4       ;message_open_button
  1621.         popa
  1622.         ret
  1623. ;---------------------------------------------------------------------
  1624. copy_new_file_name:
  1625.         mov     esi,[file_browser_data_1.selected_BDVK_adress]
  1626.         add     esi,40
  1627.         mov     edi,user_selected_name
  1628.         cld
  1629.         lodsb
  1630.         test    al,al
  1631.         jnz     .1
  1632.         ret
  1633. @@:
  1634.         lodsb
  1635. .1:
  1636.         stosb
  1637.         test    al,al
  1638.         jnz     @r
  1639.        
  1640.         sub     edi,user_selected_name
  1641.         dec     edi
  1642.        
  1643.         mov     esi,edit1
  1644.         mov     [esi+48],edi ;ed_size
  1645.         mov     [esi+52],edi ;ed_pos
  1646.  
  1647.         push    dword name_editboxes
  1648.         call    [edit_box_draw]
  1649.         ret
  1650. ;---------------------------------------------------------------------
  1651. prepare_system_colors:
  1652.         mcall   48,3,app_colours,10*4
  1653.  
  1654.         mov     eax,[w_work]
  1655.         mov     [menu_data_1.bckg_col],eax
  1656.         mov     [menu_data_2.bckg_col],eax
  1657.         mov     [menu_data_3.bckg_col],eax
  1658.  
  1659.         mov     [menu_data_1.menu_col],eax
  1660.         mov     [menu_data_2.menu_col],eax
  1661.         mov     [menu_data_3.menu_col],eax
  1662.        
  1663.         mov     [scroll_bar_data_vertical.bckg_col],eax
  1664.  
  1665.         mov     eax,[w_work_button]
  1666.         mov     [menu_data_1.frnt_col],eax
  1667.         mov     [menu_data_2.frnt_col],eax
  1668.         mov     [menu_data_3.frnt_col],eax
  1669.  
  1670.         mov     [scroll_bar_data_vertical.frnt_col],eax
  1671.  
  1672.         mov     eax,[w_work_button]
  1673.         mov     [menu_data_1.menu_sel_col],eax
  1674.         mov     [menu_data_2.menu_sel_col],eax
  1675.         mov     [menu_data_3.menu_sel_col],eax
  1676.  
  1677.         mov     eax,[w_work_text]
  1678.         mov     [menu_data_1.bckg_text_col],eax
  1679.         mov     [menu_data_2.bckg_text_col],eax
  1680.         mov     [menu_data_3.bckg_text_col],eax
  1681.        
  1682.         mov     eax,[w_work_button_text]
  1683.         mov     [menu_data_1.frnt_text_col],eax
  1684.         mov     [menu_data_2.frnt_text_col],eax
  1685.         mov     [menu_data_3.frnt_text_col],eax
  1686.        
  1687.         mov     [scroll_bar_data_vertical.line_col],eax
  1688.         ret
  1689. ;---------------------------------------------------------------------
  1690. draw_for_fs_errors:
  1691.         call    draw_dir_path
  1692.  
  1693.         mov     ebx,[file_browser_data_1.x]
  1694.         mov     ecx,[file_browser_data_1.y]
  1695.         mcall   13,,,[file_browser_data_1.background_color]
  1696.         push    ebx ecx
  1697.         add     ebx,10 shl 16
  1698.         sub     ebx,20
  1699.         add     ecx,10 shl 16
  1700.         sub     ecx,20
  1701.  
  1702.         shr     ecx,16
  1703.         mov     bx,cx
  1704.         add     ebx,5 shl 16+15
  1705.         mcall   4,,0x90000000,load_directory_error_type
  1706.  
  1707.         add     ebx,20
  1708.         mcall   4,,,dir_path   
  1709.  
  1710.         mov     eax,[error_type]
  1711.         shl     eax,2
  1712.         add     eax,error_fs_text_pointers
  1713.         mov     edx,[eax]
  1714.         add     ebx,20
  1715.         mcall   4
  1716.        
  1717.         add     ebx,20
  1718.         mcall   ,,,error_help_text
  1719.  
  1720.         pop     ecx ebx
  1721.  
  1722.         mov     ebx,[file_browser_data_1.x]
  1723.         mov     ax,bx
  1724.         shr     eax,1
  1725.         shl     eax,16
  1726.         add     ebx,eax
  1727.         mov     eax,50
  1728.         mov     bx,ax
  1729.         shr     eax,1
  1730.         shl     eax,16
  1731.         sub     ebx,eax
  1732.  
  1733.         mov     ecx,[file_browser_data_1.y]
  1734.         mov     ax,cx
  1735.         sub     eax,40
  1736.         shl     eax,16
  1737.         add     ecx,eax
  1738.         mov     cx,15
  1739.  
  1740.         mcall   8,,,5,[w_work_button]   ;0xffffff
  1741.  
  1742.         shr     ecx,16
  1743.         mov     bx,cx
  1744.         add     ebx,4 shl 16+4
  1745.         mov     ecx,[w_work_button_text]
  1746.         add     ecx,0x90000000
  1747.         mcall   4,,,message_cancel_button
  1748.  
  1749.         ret
  1750. ;--------------------------------------------------------------------- 
  1751. draw_file_name:
  1752.         mov     esi,user_selected_name
  1753.         cld
  1754. @@:
  1755.         lodsb
  1756.         test    al,al
  1757.         jne     @r
  1758.         sub     esi,user_selected_name
  1759.         mov     eax,esi
  1760.         dec     eax
  1761.        
  1762.         mov     edi,edit1
  1763.         mov     [edi+48],eax ;ed_size
  1764.         mov     [edi+52],eax ;ed_pos
  1765. ;--------------------------------------
  1766.         mov     eax,[file_browser_data_1.x]
  1767.         mov     ebx,eax
  1768.         shr     ebx,16
  1769.         and     eax,0xffff
  1770.         sub     eax,200
  1771.         mov     [edi],eax
  1772.         add     ebx,70
  1773.         mov     [edi+4],ebx
  1774.        
  1775.         mov     eax,[file_browser_data_1.y]
  1776.         mov     ebx,eax
  1777.         shr     ebx,16
  1778.         and     eax,0xffff
  1779.         add     eax,ebx
  1780.         add     eax,5
  1781.         mov     [edi+8],eax
  1782.        
  1783.         push    dword name_editboxes
  1784.         call    [edit_box_draw]
  1785.        
  1786.         mov     bx,[file_browser_data_1.start_x]
  1787.         add     bx,5
  1788.         shl     ebx,16
  1789.         mov     bx,[file_browser_data_1.start_y]
  1790.         add     bx,[file_browser_data_1.size_y]
  1791.         add     bx,9
  1792.         mcall   4,,0x80000000,message_file_name
  1793.         ret
  1794. ;---------------------------------------------------------------------
  1795. draw_dir_path:
  1796.         mov     eax,[file_browser_data_1.x]
  1797.         mov     ebx,eax
  1798.         shr     ebx,16
  1799.         add     ebx,3
  1800.         and     eax,0xffff
  1801.         sub     eax,5
  1802.        
  1803.         mov     [PathShow_data_1.area_size_x],ax
  1804.         mov     [PathShow_data_1.start_x],bx
  1805. ;--------------------------------------
  1806. ;; top line
  1807. ;       mov     ebx,[file_browser_data_1.x]
  1808. ;       mcall   13,,<7,1>,0x0
  1809. ; down line
  1810. ;       push    ebx ecx
  1811. ;       mcall   ,,<21,1>,
  1812. ;       pop     ecx ebx
  1813. ; left line    
  1814. ;       push    ebx
  1815. ;       mov     bx,1
  1816. ;       mov     cx,15
  1817. ;       mcall
  1818. ;       pop     ebx
  1819. ; right line
  1820. ;       mov     ax,bx
  1821. ;       shr     ebx,16
  1822. ;       add     bx,ax
  1823. ;       dec     ebx
  1824. ;       shl     ebx,16
  1825. ;       mov     bx,1
  1826. ;       mcall   13
  1827. ;--------------------------------------
  1828.         mov     ebx,[file_browser_data_1.x]
  1829.         sub     ebx,2
  1830.         add     ebx,1 shl 16
  1831.         mcall   13,,<8,13>,0xffffcc
  1832. ;--------------------------------------
  1833. ; prepare for PathShow
  1834.         push    dword PathShow_data_1
  1835.         call    [PathShow_prepare]
  1836.        
  1837. ; draw for PathShow
  1838.         push    dword PathShow_data_1
  1839.         call    [PathShow_draw]
  1840.        
  1841.         ret
  1842. ;---------------------------------------------------------------------
  1843. draw_draw_file_browser1:
  1844.         call    draw_dir_path
  1845.         cmp     [open_dialog_type],1
  1846.         jne     @f     
  1847.         call    draw_file_name
  1848. @@:
  1849.         xor     eax,eax
  1850.         inc     eax
  1851.         mov     [file_browser_data_1.all_redraw],eax
  1852.         mov     [scroll_bar_data_vertical.all_redraw],eax
  1853.        
  1854.         push    dword file_browser_data_1
  1855.         call    [FileBrowser_draw]
  1856.  
  1857.         call    draw_open_button_label
  1858.        
  1859.         call    prepare_scrollbar_data
  1860.  
  1861.         call    draw_scrollbar
  1862.  
  1863.         xor     eax,eax
  1864.         mov     [file_browser_data_1.all_redraw],eax
  1865.         mov     [scroll_bar_data_vertical.all_redraw],eax
  1866.         ret
  1867. ;---------------------------------------------------------------------
  1868. draw_draw_file_browser2:
  1869.         mov     eax,2
  1870.         mov     [file_browser_data_1.all_redraw],eax
  1871.  
  1872.         call    get_scrollbar_data
  1873.  
  1874.         push    dword file_browser_data_1
  1875.         call    [FileBrowser_draw]
  1876.  
  1877.         call    draw_open_button_label
  1878.  
  1879.         xor     eax,eax
  1880.         mov     [file_browser_data_1.all_redraw],eax
  1881.         ret
  1882. ;---------------------------------------------------------------------
  1883. draw_scrollbar1:
  1884.         mov     eax,[file_browser_data_1.start_draw_line]
  1885.         mov     [scroll_bar_data_vertical.position],eax
  1886.  
  1887.         call    draw_scrollbar
  1888.  
  1889.         ret
  1890. ;---------------------------------------------------------------------
  1891. draw_scrollbar:
  1892.         mov     eax,[scroll_bar_data_vertical.max_area]
  1893.         cmp     eax,[scroll_bar_data_vertical.cur_area]
  1894.         jbe     @f
  1895.         cmp     [scroll_bar_data_vertical.cur_area],0
  1896.         je      @f
  1897.         push    dword scroll_bar_data_vertical
  1898.         call    [scrollbar_ver_draw]
  1899. @@:
  1900.         ret
  1901. ;---------------------------------------------------------------------
  1902. get_scrollbar_data:
  1903.         mov     eax,[scroll_bar_data_vertical.position]
  1904.         mov     [file_browser_data_1.start_draw_line],eax
  1905.         ret
  1906. ;---------------------------------------------------------------------
  1907. prepare_scrollbar_data:
  1908.         mov     eax,[file_browser_data_1.folder_block]
  1909.         mov     [scroll_bar_data_vertical.max_area],eax
  1910.         mov     eax,[file_browser_data_1.max_panel_line]
  1911.         mov     [scroll_bar_data_vertical.cur_area],eax
  1912.         ret
  1913. ;---------------------------------------------------------------------
  1914. get_active_pocess:
  1915.         mcall   9,procinfo,-1
  1916.         mov     ecx,[ebx+30]    ; PID
  1917.         mcall   18,21
  1918.         mov     [active_process],eax    ; WINDOW SLOT
  1919.         mov     ebx,[communication_area]       
  1920.         test    ebx,ebx
  1921.         jz      .1
  1922.         mov     [ebx+12],eax    ; WINDOW SLOT to com. area
  1923. .1:
  1924.         ret
  1925. ;---------------------------------------------------------------------
  1926. get_window_param:
  1927.         mcall   9,procinfo,-1
  1928.         mov     eax,[ebx+66]
  1929.         inc     eax
  1930.         mov     [window_high],eax
  1931.         mov     eax,[ebx+62]
  1932.         inc     eax
  1933.         mov     [window_width],eax
  1934.         mov     eax,[ebx+70]
  1935.         mov     [window_status],eax
  1936.         ret
  1937. ;---------------------------------------------------------------------
  1938. convert_icons:
  1939.         xor     eax,eax
  1940.         mov     [return_code],eax
  1941. ;       mov     eax,image_file
  1942.         push    image_file
  1943.         call    [cnv_png_import.Start]
  1944.  
  1945.         mov     ecx,[image_file]
  1946.         mcall   68,13,
  1947.         test    eax,eax
  1948.         jz      memory_free_error
  1949.  
  1950.         cmp     [return_code],dword 0
  1951.         je      @f
  1952.         mov     [N_error],6
  1953.         jmp     button.exit
  1954. @@:
  1955.  
  1956.         mov     ebx,[raw_pointer]
  1957.         mov     eax,[ebx+4]
  1958. ; set of icon size x
  1959.         mov     [file_browser_data_1.icon_size_x],ax
  1960. ; mov eax,[ebx+8]
  1961. ; set of icon size y
  1962.         mov     [file_browser_data_1.icon_size_y],ax
  1963.         inc     ax
  1964.         mov     [file_browser_data_1.line_size_y],ax
  1965.         mov     eax,[ebx+12]
  1966. ; set of RAW resolution to pixel
  1967.         mov     [file_browser_data_1.resolution_raw],eax
  1968.  
  1969.         mov     eax,[ebx+20]
  1970.         add     eax,ebx
  1971. ; set RAW palette,use else resolution 8bit or less
  1972.         mov     [file_browser_data_1.palette_raw],eax
  1973.  
  1974.         mov     eax,[ebx+28]
  1975.         add     eax,ebx
  1976. ; set RAW area for icon
  1977.         mov     [file_browser_data_1.icon_raw_area],eax
  1978.         ret
  1979. ;---------------------------------------------------------------------
  1980. calc_ini:
  1981.         mov     eax,[image_file]
  1982.         mov     [file_browser_data_1.ini_file_start],eax
  1983.         add     eax,[img_size]
  1984.         mov     [file_browser_data_1.ini_file_end],eax
  1985.         ret
  1986. ;---------------------------------------------------------------------
  1987. load_ini:
  1988.         mov     ebx,ini_file_name
  1989.         mov     esi,path
  1990.         mov     edi,file_name
  1991.         call    copy_file_path
  1992.  
  1993.         mov     [fileinfo.subfunction],dword 5
  1994.         mov     [fileinfo.size],dword 0
  1995.         mov     [fileinfo.return],dword file_info
  1996.         mcall   70,fileinfo
  1997.         test    eax,eax
  1998.         jnz     .error
  1999.  
  2000.         mov     [fileinfo.subfunction],dword 0
  2001.  
  2002.         mov     ecx,[file_info+32]
  2003.         mov     [fileinfo.size],ecx
  2004.         mov     [img_size],ecx
  2005.        
  2006.         mcall   68,12
  2007.         test    eax,eax
  2008.         jz      memory_get_error
  2009.  
  2010.         mov     [fileinfo.return],eax
  2011.         mov     [image_file],eax
  2012.  
  2013.         mcall   70,fileinfo
  2014.         test    eax,eax
  2015.         jnz     .error
  2016.         ret
  2017. .error:
  2018.         mov     [N_error],1
  2019.         mov     [error_type],eax
  2020.         jmp     button.exit
  2021. ;---------------------------------------------------------------------
  2022. load_icons:
  2023.         mov     ebx,icons_file_name_2
  2024.         mov     esi,path
  2025.         mov     edi,file_name
  2026.         call    copy_file_path
  2027.  
  2028.         mov     [fileinfo.subfunction],dword 5
  2029.         mov     [fileinfo.size],dword 0
  2030.         mov     [fileinfo.return],dword file_info
  2031.         mcall   70,fileinfo
  2032.         test    eax,eax
  2033.         jz      @f
  2034.        
  2035.         mov     ebx,icons_file_name
  2036.         mov     esi,path
  2037.         mov     edi,file_name
  2038.         call    copy_file_path
  2039.  
  2040.         mov     [fileinfo.subfunction],dword 5
  2041.         mov     [fileinfo.size],dword 0
  2042.         mov     [fileinfo.return],dword file_info
  2043.         mcall   70,fileinfo
  2044.         test    eax,eax
  2045.         jnz     .error
  2046. @@:
  2047.         mov     [fileinfo.subfunction],dword 0
  2048.  
  2049.         mov     ecx,[file_info+32]
  2050.         mov     [fileinfo.size],ecx
  2051.         mov     [img_size],ecx
  2052.        
  2053.         mcall   68,12
  2054.         test    eax,eax
  2055.         jz      memory_get_error
  2056.  
  2057.         mov     [fileinfo.return],eax
  2058.         mov     [image_file],eax
  2059.  
  2060.         mcall   70,fileinfo
  2061.         test    eax,eax
  2062.         jnz     .error
  2063.         ret
  2064. .error:
  2065.         mov     [N_error],2
  2066.         mov     [error_type],eax
  2067.         jmp     button.exit
  2068. ;---------------------------------------------------------------------
  2069. sort_directory:
  2070.         mov     eax,[file_browser_data_1.folder_data]
  2071.         mov     ebx,[eax+4]     ; number of files
  2072.         add     eax,32
  2073.         cmp     [eax+40],word '..'
  2074.         jne     @f
  2075.         cmp     [eax+40+2],byte 0
  2076.         jne     @f
  2077.         dec     ebx
  2078.         add     eax,304
  2079. @@:
  2080.         push    dword [sort_type]       ; sort mode
  2081.         push    ebx     ; number of files
  2082.         push    eax     ; data files
  2083.         call    [sort_dir]
  2084.         ret
  2085. ;--------------------------------------------------------------------
  2086. load_directory:
  2087.         xor     eax,eax
  2088.         mov     [N_error],eax
  2089.         cmp     [file_browser_data_1.folder_data],eax
  2090.         je      @f
  2091.         mcall   68,13,[file_browser_data_1.folder_data]
  2092.         test    eax,eax
  2093.         jz      memory_free_error
  2094.  
  2095. @@:
  2096.         mov     [dirinfo.size],dword 0
  2097.         mov     [dirinfo.return],dir_header
  2098.         mcall   70,dirinfo
  2099.         test    eax,eax
  2100.         jz      @f
  2101. ;       mov     esi,previous_dir_path
  2102. ;       mov     edi,dir_path
  2103. ;       call    copy_dir_name.1
  2104. ;       mcall   70,dirinfo
  2105. ;       test    eax,eax
  2106. ;       jz      @f     
  2107.         xor     ebx,ebx
  2108.         mov     [file_browser_data_1.folder_data],ebx
  2109.         jmp     .error
  2110. @@:
  2111.        
  2112.         mov     ecx,[dir_header.totl_blocks]
  2113.         mov     [dirinfo.size],ecx
  2114.         imul    ecx,304
  2115.         add     ecx,32
  2116.         mcall   68,12
  2117.         test    eax,eax
  2118.         jz      memory_get_error
  2119.  
  2120.         mov     [dirinfo.return],eax
  2121.         mov     [file_browser_data_1.folder_data],eax
  2122.  
  2123.         mcall   70,dirinfo
  2124.         test    eax,eax
  2125.         jnz     .error
  2126.        
  2127. ; test for empty directory
  2128.         mov     eax,[dirinfo.return]
  2129.         mov     eax,[eax+4]
  2130.         test    eax,eax
  2131.         jz      @f
  2132.        
  2133.         call    delete_point_dir
  2134. ;       call    files_name_normalize
  2135.         call    check_filter
  2136.         call    prepare_extension_and_mark
  2137.         call    clear_data_fb_and_sb
  2138. @@:
  2139.         ret
  2140.  
  2141. .error:
  2142.         mov     [N_error],5
  2143.         mov     [error_type],eax
  2144.         ret
  2145. ;---------------------------------------------------------------------
  2146. clear_data_fb_and_sb:
  2147.         xor     eax,eax
  2148.         mov     [file_browser_data_1.start_draw_cursor_line],ax
  2149.         mov     [file_browser_data_1.start_draw_line],eax
  2150.         mov     [scroll_bar_data_vertical.position],eax
  2151.         ret
  2152. ;---------------------------------------------------------------------
  2153. check_filter:
  2154.         cmp [open_dialog_type],2        ; Select dir
  2155.         je      .1
  2156.         xor     eax,eax
  2157.         mov     al,[filter_flag]
  2158.         test    eax,eax
  2159.         jz      @f
  2160.  
  2161.         mov     eax,[communication_area]
  2162.         test    eax,eax
  2163.         jz      @f
  2164.         mov     eax,[eax+4096]
  2165.         test    eax,eax
  2166.         jz      @f
  2167. .1:
  2168.         call    delete_unsupported_BDFE
  2169. @@:
  2170.         ret
  2171. ;---------------------------------------------------------------------
  2172. delete_unsupported_BDFE:
  2173.         mov     ebx,[file_browser_data_1.folder_data]
  2174.         add     ebx,4
  2175.         xor     ecx,ecx
  2176.         dec     ecx
  2177.        
  2178.         mov     eax,[file_browser_data_1.folder_data]
  2179.         add     eax,32+40
  2180.         sub     eax,304
  2181. .start:
  2182.         inc     ecx
  2183.         add     eax,304
  2184. .1:
  2185.         cmp     [ebx],ecx
  2186.         je      .end
  2187.         cmp     [eax],byte '.'
  2188.         jne     @f
  2189.         cmp     [eax+1],byte 0
  2190.         je      .delete
  2191. @@:
  2192.         test    [eax-40],byte 0x10
  2193.         jnz     .start
  2194.        
  2195.         cmp     [open_dialog_type],2    ; Select dir
  2196.         je      .delete
  2197.        
  2198.         push    eax ebx
  2199.         mov     esi,eax
  2200.         call    search_expansion
  2201.         test    eax,eax
  2202.         pop     ebx eax
  2203.         jnz     .delete
  2204.        
  2205.         push    eax ebx ecx esi
  2206.         mov     edi,[communication_area]
  2207.         add     edi,4100
  2208.         call    compare_expansion
  2209.         test    eax,eax
  2210.         pop     esi ecx ebx eax
  2211.         jz      .start
  2212.        
  2213. ;-------------------------------------------
  2214. .delete:
  2215.         dec     dword [ebx]
  2216.         mov     esi,[ebx]
  2217.         sub     esi,ecx
  2218.  
  2219.         push    ecx
  2220.         mov     ecx,esi
  2221.         imul    ecx,304/4
  2222.         mov     edi,eax
  2223.         sub     edi,40
  2224.         mov     esi,edi
  2225.         add     esi,304
  2226.         cld
  2227.         rep     movsd
  2228.         pop     ecx
  2229.        
  2230.         jmp     .1
  2231. .end:
  2232.         ret
  2233. ;---------------------------------------------------------------------
  2234. search_expansion:
  2235.         mov     edi,esi
  2236.         xor     eax,eax
  2237. @@:
  2238.         cld
  2239.         lodsb
  2240.         test    eax,eax
  2241.         jnz     @b
  2242.         mov     ebx,esi
  2243.         dec     esi
  2244. @@:
  2245.         std
  2246.         lodsb
  2247.         cmp     esi,edi
  2248.         jb      .end_err
  2249.         cmp     al,'.'
  2250.         jne     @b
  2251.        
  2252.         add     esi,2
  2253.         sub     ebx,esi
  2254.         mov     [expansion_length],ebx
  2255.         cld
  2256.         xor     eax,eax
  2257.         ret
  2258.        
  2259. .end_err:
  2260.         cld
  2261.         xor     eax,eax
  2262.         inc     eax
  2263.         ret
  2264. ;---------------------------------------------------------------------
  2265. compare_expansion:
  2266.         mov     ebx,[edi]
  2267.         add     ebx,edi
  2268.         add     edi,3
  2269. .start:
  2270.         cmp     ebx,edi
  2271.         jb      .end_err
  2272.         mov     ecx,[expansion_length]
  2273.         inc     edi
  2274.        
  2275.         push    esi edi
  2276. @@:
  2277.         cld
  2278.         lodsb
  2279.         xchg    esi,edi
  2280.         shl     eax,8
  2281.         lodsb
  2282.         xchg    esi,edi
  2283.         call    char_todown
  2284.         xchg    al,ah
  2285.         call    char_todown
  2286.         cmp     al,ah
  2287.         jne     @f
  2288.         dec     ecx
  2289.         jnz     @b
  2290.         jmp     .end
  2291. @@:
  2292.         pop     edi esi
  2293.         jmp     .start
  2294. .end:
  2295.         pop     edi esi
  2296.         xor     eax,eax
  2297.         ret
  2298.        
  2299. .end_err:
  2300.         xor     eax,eax
  2301.         inc     eax
  2302.         ret
  2303. ;---------------------------------------------------------------------
  2304. prepare_extension_and_mark:
  2305.         mov     esi,[dirinfo.return]
  2306.         mov     ebp,[esi+4]
  2307.         test    ebp,ebp
  2308.         jz      .end
  2309.  
  2310.         add     esi,32+40
  2311. .start:
  2312.         push    esi
  2313.         call    search_extension_start
  2314.         mov     eax,esi
  2315.         pop     esi
  2316.         sub     eax,esi
  2317.         sub     ebx,esi
  2318.         shl     eax,16
  2319.         mov     ax,bx
  2320.         mov     [esi+300-40],eax
  2321.         mov     [esi+299-40],byte 0
  2322.         add     esi,304
  2323.         dec     ebp
  2324.         jnz     .start
  2325. .end:
  2326.         ret
  2327. ;---------------------------------------------------------------------
  2328. search_extension_start:
  2329.         mov     edx,esi
  2330.         xor     eax,eax
  2331.         cld
  2332. @@:
  2333.         lodsb
  2334.         test    eax,eax
  2335.         jnz     @b
  2336.         dec     esi
  2337.         dec     edx
  2338.         push    esi
  2339.         std
  2340. @@:
  2341.         lodsb
  2342.         cmp     esi,edx
  2343.         je      .end
  2344.         cmp     al,'.'
  2345.         jnz     @b
  2346.         add     esi,2
  2347.         cld
  2348.         pop     ebx
  2349.         ret
  2350. .end:
  2351.         cld
  2352.         pop     esi
  2353.         mov     ebx,esi
  2354.         ret
  2355. ;---------------------------------------------------------------------
  2356. delete_point_dir:
  2357.         mov     eax,[dirinfo.return]
  2358.         cmp     [eax+32+40],byte '.'
  2359.         jne     @f
  2360.         cmp     [eax+32+40+1],byte 0
  2361.         jne     @f
  2362.         mov     edi,eax
  2363.         add     edi,32
  2364.         mov     esi,edi
  2365.         add     esi,304
  2366.         mov     ecx,[eax+4]
  2367.         dec     ecx
  2368.         mov     [eax+4],ecx
  2369.         imul    ecx,304
  2370.         shr     ecx,2
  2371.         cld
  2372.         rep     movsd
  2373. @@:
  2374.         ret
  2375. ;---------------------------------------------------------------------
  2376. ;files_name_normalize:
  2377. ;       mov     esi,[dirinfo.return]
  2378. ;       mov     ebp,[esi+4]
  2379. ;       add     esi,32+40
  2380. ;.start:
  2381. ;       push    esi
  2382. ;       mov     al,[esi]
  2383. ;       call    char_toupper
  2384. ;       mov     [esi],al
  2385. ;@@:
  2386. ;       inc     esi
  2387. ;       mov     al,[esi]
  2388. ;       test    al,al
  2389. ;       jz      @f
  2390. ;       call    char_todown
  2391. ;       mov     [esi],al
  2392. ;       jmp     @b
  2393. ;@@:
  2394. ;       pop     esi
  2395. ;       add     esi,304
  2396. ;       dec     ebp
  2397. ;       jnz     .start
  2398. ;       ret
  2399. ;---------------------------------------------------------------------
  2400. char_toupper:
  2401. ; convert character to uppercase,using cp866 encoding
  2402. ; in: al=symbol
  2403. ; out: al=converted symbol
  2404.         cmp     al,'a'
  2405.         jb      .ret
  2406.         cmp     al,'z'
  2407.         jbe     .az
  2408.         cmp     al,' '
  2409.         jb      .ret
  2410.         cmp     al,'à'
  2411.         jb      .rus1
  2412.         cmp     al,'ï'
  2413.         ja      .ret
  2414. ; 0xE0-0xEF -> 0x90-0x9F
  2415.         sub     al,'à'-''
  2416. .ret:
  2417.         ret
  2418. .rus1:
  2419. ; 0xA0-0xAF -> 0x80-0x8F
  2420. .az:
  2421.         and     al,not  0x20
  2422.         ret
  2423. ;---------------------------------------------------------------------
  2424. char_todown:
  2425. ; convert character to uppercase,using cp866 encoding
  2426. ; in: al=symbol
  2427. ; out: al=converted symbol
  2428.         cmp     al,'A'
  2429.         jb      .ret
  2430.         cmp     al,'Z'
  2431.         jbe     .az
  2432.         cmp     al,'€'
  2433.         jb      .ret
  2434.         cmp     al,''
  2435.         jb      .rus1
  2436.         cmp     al,'Ÿ'
  2437.         ja      .ret
  2438. ; 0x90-0x9F -> 0xE0-0xEF
  2439.         add     al,'à'-''
  2440. .ret:
  2441.         ret
  2442. .rus1:
  2443. ; 0x80-0x8F -> 0xA0-0xAF
  2444. .az:
  2445.         add     al,0x20
  2446.         ret
  2447. ;---------------------------------------------------------------------
  2448. copy_file_path:
  2449.         xor     eax,eax
  2450.         cld
  2451. @@:
  2452.         lodsb
  2453.         stosb
  2454.         test    eax,eax
  2455.         jnz     @b
  2456.         mov     esi,edi
  2457.         dec     esi
  2458.         std
  2459. @@:
  2460.         lodsb
  2461.         cmp     al,'/'
  2462.         jnz     @b
  2463.         mov     edi,esi
  2464.         add     edi,2
  2465.         mov     esi,ebx
  2466.         cld
  2467. @@:
  2468.         lodsb
  2469.         stosb
  2470.         test    eax,eax
  2471.         jnz     @b
  2472.         ret
  2473. ;---------------------------------------------------------------------
  2474. copy_dir_path:
  2475.         mov     ecx,esi
  2476.         inc     ecx
  2477.         inc     ecx
  2478.         xor     eax,eax
  2479.         cld
  2480. @@:
  2481.         lodsb
  2482.         test    eax,eax
  2483.         jnz     @b
  2484.  
  2485.         cmp     ecx,esi
  2486.         jb      @f
  2487.         dec     esi
  2488. @@:
  2489.         mov     [esi-1],byte '/'
  2490.         mov     edi,esi
  2491.         mov     esi,ebx
  2492. @@:
  2493.         lodsb
  2494.         stosb
  2495.         test    eax,eax
  2496.         jnz     @b
  2497.         ret
  2498. ;---------------------------------------------------------------------
  2499. copy_exit_dir:
  2500.         mov     ebx,esi
  2501.         inc     ebx
  2502.         xor     eax,eax
  2503.         cld
  2504. @@:
  2505.         lodsb
  2506.         test    eax,eax
  2507.         jnz     @b
  2508.         sub     esi,2
  2509.         std
  2510. @@:
  2511.         lodsb
  2512.         cmp     al,'/'
  2513.         jnz     @b
  2514.         xor     eax,eax
  2515.         cmp     ebx,esi
  2516.         jb      @f
  2517.         inc     esi
  2518. @@:
  2519.         mov     [esi+1],al
  2520.         cld
  2521.         ret
  2522. ;---------------------------------------------------------------------
  2523. copy_dir_name:
  2524.         push    esi edi
  2525.         mov     esi,edi
  2526.         mov     edi,previous_dir_path
  2527.         call    .1
  2528.         pop     edi esi
  2529. .1:
  2530.         xor     eax,eax
  2531.         cmp     [esi],al
  2532.         je      .exit
  2533.         cld
  2534. @@:
  2535.         lodsb
  2536.         stosb
  2537.         test    eax,eax
  2538.         jnz     @b
  2539. .exit:
  2540.         ret
  2541. ;---------------------------------------------------------------------
  2542. ;---------------------------------------------------------------------
  2543.  
  2544. ;plugins_directory      db 'plugins/',0
  2545. plugins_directory       db 0
  2546.  
  2547. system_dir_Boxlib       db '/sys/lib/box_lib.obj',0
  2548. system_dir_CnvPNG       db '/sys/lib/cnv_png.obj',0
  2549. system_dir_Sort         db '/sys/lib/sort.obj',0
  2550. system_dir_UNPACK       db '/sys/lib/archiver.obj',0
  2551.  
  2552. ihead_f_i:
  2553. ihead_f_l       db 'System      error',0
  2554.  
  2555. er_message_found_lib    db 'box_lib.obj - Not found!',0
  2556. er_message_import       db 'box_lib.obj - Wrong import!',0
  2557.  
  2558. er_message_found_lib2   db 'cnv_png.obj - Not found!',0
  2559. er_message_import2      db 'cnv_png.obj - Wrong import!',0
  2560.  
  2561. err_message_found_lib3  db 'sort.obj - Not found!',0
  2562. err_message_import3     db 'sort.obj - Wrong import!',0
  2563.  
  2564. err_message_found_lib4  db 'archiver.obj - Not found!',0
  2565. err_message_import4     db 'archiver.obj - Wrong import!',0
  2566.  
  2567. align   4
  2568. l_libs_start:
  2569. library01       l_libs  system_dir_Boxlib+9,path,file_name,system_dir_Boxlib,\
  2570. er_message_found_lib,ihead_f_l,Box_lib_import,er_message_import,ihead_f_i,plugins_directory
  2571.  
  2572. library02       l_libs  system_dir_CnvPNG+9,path,file_name,system_dir_CnvPNG,\
  2573. er_message_found_lib2,ihead_f_l,cnv_png_import,er_message_import2,ihead_f_i,plugins_directory
  2574.  
  2575. library03       l_libs  system_dir_Sort+9,path,file_name,system_dir_Sort,\
  2576. err_message_found_lib3,ihead_f_l,Sort_import,err_message_import3,ihead_f_i,plugins_directory
  2577.  
  2578. library04       l_libs  system_dir_UNPACK+9,path,file_name,system_dir_UNPACK,\
  2579. err_message_found_lib4,ihead_f_l,UNPACK_import,err_message_import4,ihead_f_i,plugins_directory
  2580.  
  2581. end_l_libs:
  2582.  
  2583. ;---------------------------------------------------------------------
  2584. align   4
  2585. UNPACK_import:
  2586. ;unpack_Version                 dd aUnpack_Version
  2587. ;unpack_PluginLoad              dd aUnpack_PluginLoad  
  2588. ;unpack_OpenFilePlugin          dd aUnpack_OpenFilePlugin
  2589. ;unpack_ClosePlugin             dd aUnpack_ClosePlugin
  2590. ;unpack_ReadFolder              dd aUnpack_ReadFolder  
  2591. ;unpack_SetFolder               dd aUnpack_SetFolder
  2592. ;unpack_GetFiles                dd aUnpack_GetFiles
  2593. ;unpack_GetOpenPluginInfo       dd aUnpack_GetOpenPluginInfo
  2594. ;unpack_Getattr                 dd aUnpack_Getattr
  2595. ;unpack_Open                    dd aUnpack_Open
  2596. ;unpack_Read                    dd aUnpack_Read
  2597. ;unpack_Setpos                  dd aUnpack_Setpos
  2598. ;unpack_Close                   dd aUnpack_Close
  2599. ;unpack_DeflateUnpack           dd aUnpack_DeflateUnpack
  2600. unpack_DeflateUnpack2           dd aUnpack_DeflateUnpack2
  2601.         dd 0
  2602.         dd 0
  2603.  
  2604. ;aUnpack_Version                db 'version',0
  2605. ;aUnpack_PluginLoad             db 'plugin_load',0
  2606. ;aUnpack_OpenFilePlugin         db 'OpenFilePlugin',0
  2607. ;aUnpack_ClosePlugin            db 'ClosePlugin',0
  2608. ;aUnpack_ReadFolder             db 'ReadFolder',0
  2609. ;aUnpack_SetFolder              db 'SetFolder',0
  2610. ;aUnpack_GetFiles               db 'GetFiles',0
  2611. ;aUnpack_GetOpenPluginInfo      db 'GetOpenPluginInfo',0
  2612. ;aUnpack_Getattr                db 'getattr',0
  2613. ;aUnpack_Open                   db 'open',0
  2614. ;aUnpack_Read                   db 'read',0
  2615. ;aUnpack_Setpos                 db 'setpos',0
  2616. ;aUnpack_Close                  db 'close',0
  2617. ;aUnpack_DeflateUnpack          db 'deflate_unpack',0
  2618. aUnpack_DeflateUnpack2          db 'deflate_unpack2',0
  2619.  
  2620. ;---------------------------------------------------------------------
  2621. ;---------------------------------------------------------------------
  2622. align   4
  2623. Sort_import:
  2624. sort_init       dd aSort_init
  2625. sort_version    dd aSort_version
  2626. sort_dir        dd aSort_SortDir
  2627. sort_strcmpi    dd aSort_strcmpi
  2628.         dd 0
  2629.         dd 0
  2630.  
  2631. aSort_init      db 'START',0
  2632. aSort_version   db 'version',0
  2633. aSort_SortDir   db 'SortDir',0
  2634. aSort_strcmpi   db 'strcmpi',0
  2635.  
  2636. ;---------------------------------------------------------------------
  2637. align   4
  2638. cnv_png_import:
  2639. .Start          dd aCP_Start
  2640. .Version        dd aCP_Version
  2641. .Check          dd aCP_Check
  2642. .Assoc          dd aCP_Assoc
  2643.         dd 0
  2644.         dd 0
  2645. aCP_Start       db 'START',0
  2646. aCP_Version     db 'version',0
  2647. aCP_Check       db 'Check_Header',0
  2648. aCP_Assoc       db 'Associations',0
  2649. ;---------------------------------------------------------------------
  2650. align   4
  2651. Box_lib_import:
  2652. ;init_lib       dd a_init
  2653. ;version_lib    dd a_version
  2654.  
  2655.  
  2656. edit_box_draw           dd aEdit_box_draw
  2657. edit_box_key            dd aEdit_box_key
  2658. edit_box_mouse          dd aEdit_box_mouse
  2659. ;version_ed             dd aVersion_ed
  2660.  
  2661. ;check_box_draw dd aCheck_box_draw
  2662. ;check_box_mouse        dd aCheck_box_mouse
  2663. ;version_ch             dd aVersion_ch
  2664.  
  2665. ;option_box_draw        dd aOption_box_draw
  2666. ;option_box_mouse       dd aOption_box_mouse
  2667. ;version_op             dd aVersion_op
  2668.  
  2669. scrollbar_ver_draw      dd aScrollbar_ver_draw
  2670. scrollbar_ver_mouse     dd aScrollbar_ver_mouse
  2671. ;scrollbar_hor_draw     dd aScrollbar_hor_draw
  2672. ;scrollbar_hor_mouse    dd aScrollbar_hor_mouse
  2673. ;version_scrollbar      dd aVersion_scrollbar
  2674.  
  2675. ;dinamic_button_draw    dd aDbutton_draw
  2676. ;dinamic_button_mouse   dd aDbutton_mouse
  2677. ;version_dbutton        dd aVersion_dbutton
  2678.  
  2679. menu_bar_draw           dd aMenu_bar_draw
  2680. menu_bar_mouse          dd aMenu_bar_mouse
  2681. menu_bar_activate       dd aMenu_bar_activate
  2682. ;version_menu_bar       dd aVersion_menu_bar
  2683.  
  2684. FileBrowser_draw        dd aFileBrowser_draw
  2685. FileBrowser_mouse       dd aFileBrowser_mouse
  2686. FileBrowser_key         dd aFileBrowser_key
  2687. ;Version_FileBrowser    dd aVersion_FileBrowser
  2688.  
  2689. PathShow_prepare        dd sz_PathShow_prepare
  2690. PathShow_draw           dd sz_PathShow_draw
  2691. ;Version_path_show      dd szVersion_path_show
  2692.         dd 0
  2693.         dd 0
  2694.  
  2695. ;a_init                 db 'lib_init',0
  2696. ;a_version              db 'version',0
  2697.  
  2698. aEdit_box_draw          db 'edit_box',0
  2699. aEdit_box_key           db 'edit_box_key',0
  2700. aEdit_box_mouse         db 'edit_box_mouse',0
  2701. ;aVersion_ed            db 'version_ed',0
  2702.  
  2703. ;aCheck_box_draw        db 'check_box_draw',0
  2704. ;aCheck_box_mouse       db 'check_box_mouse',0
  2705. ;aVersion_ch            db 'version_ch',0
  2706.  
  2707. ;aOption_box_draw       db 'option_box_draw',0
  2708. ;aOption_box_mouse      db 'option_box_mouse',0
  2709. ;aVersion_op            db 'version_op',0
  2710.  
  2711. aScrollbar_ver_draw     db 'scrollbar_v_draw',0
  2712. aScrollbar_ver_mouse    db 'scrollbar_v_mouse',0
  2713. ;aScrollbar_hor_draw    db 'scrollbar_h_draw',0
  2714. ;aScrollbar_hor_mouse   db 'scrollbar_h_mouse',0
  2715. ;aVersion_scrollbar     db 'version_scrollbar',0
  2716.  
  2717. ;aDbutton_draw          db 'dbutton_draw',0
  2718. ;aDbutton_mouse         db 'dbutton_mouse',0
  2719. ;aVersion_dbutton       db 'version_dbutton',0
  2720.  
  2721. aMenu_bar_draw          db 'menu_bar_draw',0
  2722. aMenu_bar_mouse         db 'menu_bar_mouse',0
  2723. aMenu_bar_activate      db 'menu_bar_activate',0
  2724. ;aVersion_menu_bar      db 'version_menu_bar',0
  2725.  
  2726. aFileBrowser_draw       db 'FileBrowser_draw',0
  2727. aFileBrowser_mouse      db 'FileBrowser_mouse',0
  2728. aFileBrowser_key        db 'FileBrowser_key',0
  2729. ;aVersion_FileBrowser   db 'version_FileBrowser',0
  2730.  
  2731. sz_PathShow_prepare     db 'PathShow_prepare',0
  2732. sz_PathShow_draw        db 'PathShow_draw',0
  2733. ;szVersion_path_show    db 'version_PathShow',0
  2734. ;---------------------------------------------------------------------
  2735. ;---------------------------------------------------------------------
  2736. align   4
  2737. window_high                     dd 0
  2738. window_width                    dd 0
  2739. window_status                   dd 0
  2740.  
  2741. active_process                  dd 0
  2742. PID                             dd 0
  2743. sort_type                       dd 2
  2744. root_folder_area                dd 0
  2745. root_folder_block               dd 0
  2746. root1_folder_area               dd 0
  2747. root1_folder_block              dd 0
  2748. temp_counter_1                  dd 0
  2749. retrieved_devices_table_counter dd 0
  2750. communication_area              dd 0
  2751. open_dialog_type                dd 0
  2752.  
  2753. open_dialog_title_pointer:
  2754.         dd title_0
  2755.         dd title_1
  2756.         dd title_2
  2757.         dd 0
  2758.        
  2759. message_open_dialog_button:
  2760.         dd message_0
  2761.         dd message_1
  2762.         dd message_2
  2763.         dd 0
  2764. ;---------------------------------------------------------------------
  2765. expansion_length        dd 0
  2766. ;---------------------------------------------------------------------
  2767. N_error                 dd 0
  2768. error_type              dd 0
  2769. error_path              dd 0
  2770. error_window_x:         dd 100 shl 16+250
  2771. error_window_y:         dd 100 shl 16+120
  2772. ;---------------------------------------------------------------------
  2773. mouse_scroll_data:
  2774. .vertical       dw 0
  2775. .horizontal     dw 0
  2776.  
  2777. mouse_position:
  2778. .y      dw 0
  2779. .x      dw 0
  2780. ;---------------------------------------------------------------------
  2781. ; not   change  this    section!!!
  2782. ; start section
  2783. ;---------------------------------------------------------------------
  2784. align   4
  2785. image_file      dd 0
  2786. raw_pointer     dd 0
  2787. return_code     dd 0
  2788. img_size        dd 0
  2789. deflate_unpack  dd 0
  2790. raw_pointer_2   dd 0    ;+20
  2791. ;---------------------------------------------------------------------
  2792. ; end   section
  2793. ;---------------------------------------------------------------------
  2794. align   4
  2795. fileinfo:
  2796. .subfunction    dd 5
  2797. .Offset         dd 0
  2798. .Offset_1       dd 0
  2799. .size           dd 0
  2800. .return         dd file_info
  2801.                 db 0
  2802. .name:          dd file_name
  2803. ;---------------------------------------------------------------------
  2804. align   4
  2805. dirinfo:
  2806. .subfunction    dd 1
  2807. .start          dd 0
  2808. .flags          dd 0
  2809. .size           dd 0
  2810. .return         dd 0
  2811.                 db 0
  2812. .name:          dd dir_path
  2813. ;---------------------------------------------------------------------
  2814. align   4
  2815. dir_header:
  2816. .version        dd 0    ;+0
  2817. .curn_blocks    dd 0    ;+4
  2818. .totl_blocks    dd 0    ;+8
  2819. .other  rb      20
  2820. ;---------------------------------------------------------------------
  2821. load_ini_error_type:
  2822.         db 'Error loading INI file',0
  2823.  
  2824. load_icons_error_type:
  2825.         db 'Error loading of icons file',0
  2826.  
  2827. memory_free_error_type:
  2828.         db 'Error of free memory',0
  2829.  
  2830. memory_get_error_type:
  2831.         db 'Memory allocation error',0
  2832.  
  2833. load_directory_error_type:
  2834.         db 'Error loading directory',0
  2835.  
  2836. convert_icons_error_type:
  2837.         db 'Unsupported or corrupt data for icons file',0
  2838. ;---------------------------------------------------------------------
  2839. error_help_text:
  2840.         db 'For continue press <Esc> key or <Cancel>',0
  2841. ;---------------------------------------------------------------------
  2842. align   4
  2843. error_fs_text_pointers:
  2844.         dd error_fs_text_0
  2845.         dd error_fs_text_1
  2846.         dd error_fs_text_2
  2847.         dd error_fs_text_3
  2848.         dd error_fs_text_4
  2849.         dd error_fs_text_5
  2850.         dd error_fs_text_6
  2851.         dd error_fs_text_7
  2852.         dd error_fs_text_8
  2853.         dd error_fs_text_9
  2854.         dd error_fs_text_10
  2855.         dd error_fs_text_11
  2856.  
  2857. error_fs_text_0:        db '0 - Success full',0
  2858. error_fs_text_1:        db '1 - Base and/or partition of a hard disk is not defined',0
  2859. error_fs_text_2:        db '2 - Function is not supported for the given file system',0
  2860. error_fs_text_3:        db '3 - Unknown file system',0
  2861. error_fs_text_4:        db '4 - Reserved, is never returned in the current implementation',0
  2862. error_fs_text_5:        db '5 - File not found',0
  2863. error_fs_text_6:        db '6 - End of file, EOF',0
  2864. error_fs_text_7:        db '7 - Pointer lies outside of application memory',0
  2865. error_fs_text_8:        db '8 - Disk is full',0
  2866. error_fs_text_9:        db '9 - FAT table is destroyed',0
  2867. error_fs_text_10:       db '10 - Access denied',0
  2868. error_fs_text_11:       db '11 - Device error',0
  2869. ;---------------------------------------------------------------------
  2870.  
  2871. extended_key    db 0
  2872.  
  2873. shift_flag      db 0
  2874. ctrl_flag       db 0
  2875. alt_flag        db 0
  2876.  
  2877. error_window    db 0
  2878.  
  2879. Tab_key         db 0
  2880. Tab_key_block   db 0
  2881.  
  2882. filter_flag     db 1
  2883.  
  2884. focus_pointer   db 0
  2885. ;---------------------------------------------------------------------
  2886. start_pach:
  2887.         db '/rd/1',0
  2888.  
  2889. root_pach:
  2890.         db '/',0
  2891.  
  2892. icons_file_name_2       db 'buttons/'
  2893. icons_file_name         db 'z_icons.png',0
  2894. ini_file_name           db 'icons.ini',0
  2895. ;---------------------------------------------------------------------
  2896.  
  2897. message:
  2898.         db 'Press any key...',0
  2899.  
  2900. message_cancel_button:
  2901.         db 'Cancel',0
  2902.  
  2903. message_ReloadDir_button:
  2904.         db 'Refresh',0
  2905.  
  2906. message_ExitDir_button:
  2907.         db '^',0
  2908.  
  2909. message_file_name:
  2910.         db 'File name:',0
  2911.        
  2912. message_0:
  2913.         db ' Open ',0
  2914. message_1:
  2915.         db ' Save ',0
  2916. message_2:
  2917.         db 'Select',0
  2918.        
  2919. title_0:
  2920.         db 'Open Dialog',0
  2921. title_1:
  2922.         db 'Save Dialog',0
  2923. title_2:
  2924.         db 'Select Dir',0
  2925. ;---------------------------------------------------------------------
  2926. align 4
  2927. menu_data_1:
  2928. .type:          dd 1   ;+0
  2929. .x:
  2930. .size_x         dw 80  ;+4
  2931. .start_x        dw 10   ;+6
  2932. .y:
  2933. .size_y         dw 15   ;+8
  2934. .start_y        dw 26  ;+10
  2935. .text_pointer:  dd menu_text_area_1  ;0 ;+12
  2936. .pos_pointer:   dd menu_text_area_1_1 ;0 ;+16
  2937. .text_end       dd menu_text_area_1_1 ;0 ;+20
  2938. .ret_key        dd 0  ;+24
  2939. .mouse_keys     dd 0  ;+28
  2940. .x1:
  2941. .size_x1        dw 80  ;+32
  2942. .start_x1       dw 10   ;+34
  2943. .y1:
  2944. .size_y1        dw 100   ;+36
  2945. .start_y1       dw 41  ;+38
  2946. .bckg_col       dd 0xffffff  ;0xe5e5e5 ;+40
  2947. .frnt_col       dd 0xff ;+44
  2948. .menu_col       dd 0xeef0ff ;0xffffff ;+48
  2949. .select         dd 0 ;+52
  2950. .out_select     dd 0 ;+56
  2951. .buf_adress     dd 0 ;+60
  2952. .procinfo       dd procinfo ;+64
  2953. .click          dd 0 ;+68
  2954. .cursor         dd 0 ;+72
  2955. .cursor_old     dd 0 ;+76
  2956. .interval       dd 16 ;+80
  2957. .cursor_max     dd 0 ;+84
  2958. .extended_key   dd 0 ;+88
  2959. .menu_sel_col   dd 0x00cc00 ;+92
  2960. .bckg_text_col  dd 0 ; +96
  2961. .frnt_text_col  dd 0xffffff ;+100
  2962. .mouse_keys_old dd 0 ;+104
  2963. .font_height    dd 8 ;+108
  2964. .cursor_out     dd 0 ;+112
  2965. .get_mouse_flag dd 0 ;+116
  2966. ;---------------------------------------------------------------------
  2967. menu_text_area_1:
  2968. db 'Select Disk',0
  2969. ;---------------------------------------------------------------------
  2970. align 4
  2971. menu_data_2:
  2972. .type:          dd 0   ;+0
  2973. .x:
  2974. .size_x         dw 30  ;+4
  2975. .start_x        dw 95   ;+6
  2976. .y:
  2977. .size_y         dw 15   ;+8
  2978. .start_y        dw 26  ;+10
  2979. .text_pointer:  dd menu_text_area_2  ;0 ;+12
  2980. .pos_pointer:   dd menu_text_area_2.1 ;0 ;+16
  2981. .text_end       dd menu_text_area_2.end ;0 ;+20
  2982. .ret_key        dd 0  ;+24
  2983. .mouse_keys     dd 0  ;+28
  2984. .x1:
  2985. .size_x1        dw 30  ;+32
  2986. .start_x1       dw 95   ;+34
  2987. .y1:
  2988. .size_y1        dw 100   ;+36
  2989. .start_y1       dw 41  ;+38
  2990. .bckg_col       dd 0xffffff ; 0xe5e5e5 ;+40
  2991. .frnt_col       dd 0xff ;+44
  2992. .menu_col       dd 0xeef0ff  ;0xffffff ;+48
  2993. .select         dd 0 ;+52
  2994. .out_select     dd 0 ;+56
  2995. .buf_adress     dd 0 ;+60
  2996. .procinfo       dd procinfo ;+64
  2997. .click          dd 0 ;+68
  2998. .cursor         dd 0 ;+72
  2999. .cursor_old     dd 0 ;+76
  3000. .interval       dd 16 ;+80
  3001. .cursor_max     dd 0 ;+84
  3002. .extended_key   dd 0 ;+88
  3003. .menu_sel_col   dd 0x00cc00 ;+92
  3004. .bckg_text_col  dd 0 ; +96
  3005. .frnt_text_col  dd 0xffffff ;+100
  3006. .mouse_keys_old dd 0 ;+104
  3007. .font_height    dd 8 ;+108
  3008. .cursor_out     dd 0 ;+112
  3009. .get_mouse_flag dd 0 ;+116
  3010. ;---------------------------------------------------------------------
  3011. menu_text_area_2:
  3012. db 'Sort',0
  3013. .1:
  3014. db 'Name',0
  3015. db 'Type',0
  3016. db 'Date',0
  3017. db 'Size',0
  3018. .end:
  3019. db 0
  3020. ;---------------------------------------------------------------------
  3021. align 4
  3022. menu_data_3:
  3023. .type:          dd 0   ;+0
  3024. .x:
  3025. .size_x         dw 45  ;+4
  3026. .start_x        dw 130   ;+6
  3027. .y:
  3028. .size_y         dw 15   ;+8
  3029. .start_y        dw 26  ;+10
  3030. .text_pointer:  dd menu_text_area_3  ;0 ;+12
  3031. .pos_pointer:   dd menu_text_area_3.1 ;0 ;+16
  3032. .text_end       dd menu_text_area_3.end ;0 ;+20
  3033. .ret_key        dd 0  ;+24
  3034. .mouse_keys     dd 0  ;+28
  3035. .x1:
  3036. .size_x1        dw 95  ;+32
  3037. .start_x1       dw 130   ;+34
  3038. .y1:
  3039. .size_y1        dw 100   ;+36
  3040. .start_y1       dw 41  ;+38
  3041. .bckg_col       dd 0xffffff ; 0xe5e5e5 ;+40
  3042. .frnt_col       dd 0xff ;+44
  3043. .menu_col       dd 0xeef0ff  ;0xffffff ;+48
  3044. .select         dd 0 ;+52
  3045. .out_select     dd 0 ;+56
  3046. .buf_adress     dd 0 ;+60
  3047. .procinfo       dd procinfo ;+64
  3048. .click          dd 0 ;+68
  3049. .cursor         dd 0 ;+72
  3050. .cursor_old     dd 0 ;+76
  3051. .interval       dd 16 ;+80
  3052. .cursor_max     dd 0 ;+84
  3053. .extended_key   dd 0 ;+88
  3054. .menu_sel_col   dd 0x00cc00 ;+92
  3055. .bckg_text_col  dd 0 ; +96
  3056. .frnt_text_col  dd 0xffffff ;+100
  3057. .mouse_keys_old dd 0 ;+104
  3058. .font_height    dd 8 ;+108
  3059. .cursor_out     dd 0 ;+112
  3060. .get_mouse_flag dd 0 ;+116
  3061. ;---------------------------------------------------------------------
  3062. menu_text_area_3:
  3063. db 'Filter',0
  3064. .1:
  3065. db '*.* - show all',0
  3066. db 'Only supported',0
  3067. .end:
  3068. db 0
  3069. ;---------------------------------------------------------------------
  3070.  
  3071. align 4
  3072. scroll_bar_data_vertical:
  3073. .x:
  3074. .size_x         dw 15 ;+0
  3075. .start_x        dw 500 ;+2
  3076. .y:
  3077. .size_y         dw 300 ;+4
  3078. .start_y        dw 45 ;+6
  3079. .btn_high       dd 15 ;+8
  3080. .type           dd 2  ;+12
  3081. .max_area       dd 10  ;+16
  3082. .cur_area       dd 2  ;+20
  3083. .position       dd 0  ;+24
  3084. .bckg_col       dd 0xeeeeee ;+28
  3085. .frnt_col       dd 0xbbddff ;+32 ;0x8aeaa0
  3086. .line_col       dd 0  ;+36
  3087. .redraw         dd 0  ;+40
  3088. .delta          dw 0  ;+44
  3089. .delta2         dw 0  ;+46
  3090. .run_x:
  3091. .r_size_x       dw 0  ;+48
  3092. .r_start_x      dw 0  ;+50
  3093. .run_y:
  3094. .r_size_y       dw 0 ;+52
  3095. .r_start_y      dw 0 ;+54
  3096. .m_pos          dd 0 ;+56
  3097. .m_pos_2        dd 0 ;+60
  3098. .m_keys         dd 0 ;+64
  3099. .run_size       dd 0 ;+68
  3100. .position2      dd 0 ;+72
  3101. .work_size      dd 0 ;+76
  3102. .all_redraw     dd 0 ;+80
  3103. .ar_offset      dd 1 ;+84
  3104. ;---------------------------------------------------------------------
  3105. align 4
  3106. file_browser_data_1:
  3107. .type                           dd 0 ;+0
  3108. .x:
  3109. .size_x                         dw 400 ;+4
  3110. .start_x                        dw 10 ;+6
  3111. .y:
  3112. .size_y                         dw 550 ;+8
  3113. .start_y                        dw 45 ;+10
  3114. .icon_size_y                    dw 16 ; +12
  3115. .icon_size_x                    dw 16 ; +14
  3116. .line_size_x                    dw 0 ; +16
  3117. .line_size_y                    dw 18 ; +18
  3118. .type_size_x                    dw 0 ; +20
  3119. .size_size_x                    dw 0 ; +22
  3120. .date_size_x                    dw 0 ; +24
  3121. .attributes_size_x              dw 0 ; +26
  3122. .icon_assoc_area                dd 0 ; +28
  3123. .icon_raw_area                  dd 0 ; +32
  3124. .resolution_raw                 dd 0 ; +36
  3125. .palette_raw                    dd 0 ; +40
  3126. .directory_path_area            dd 0 ; +44
  3127. .file_name_area                 dd 0 ; +48
  3128. .select_flag                    dd 0 ; +52
  3129. .background_color               dd 0xffffff ; +56
  3130. .select_color                   dd 0xbbddff ; +60
  3131. .seclect_text_color             dd 0 ; +64
  3132. .text_color                     dd 0 ; +68
  3133. .reduct_text_color              dd 0xff0000 ; +72
  3134. .marked_text_color              dd 0 ; +76
  3135. .max_panel_line                 dd 0 ; +80
  3136. .select_panel_counter           dd 1 ; +84
  3137. .folder_block                   dd 0 ; +88
  3138. .start_draw_line                dd 0 ; +92
  3139. .start_draw_cursor_line         dw 0 ; +96 ; pixels
  3140. .folder_data                    dd 0 ; +98
  3141. .temp_counter                   dd 0 ; +102
  3142. .file_name_length               dd 0 ; +106
  3143. .marked_file                    dd 0 ; +110
  3144. .extension_size                 dd 0 ; +114
  3145. .extension_start                dd 0 ; +118
  3146. .type_table                     dd features_table ; +122
  3147. .ini_file_start                 dd 0 ; +126
  3148. .ini_file_end                   dd 0 ; +130
  3149. .draw_scroll_bar                dd 0 ; +134
  3150. .font_size_y                    dw 9 ; +138
  3151. .font_size_x                    dw 6 ; +140
  3152. .mouse_keys                     dd 0 ; +142
  3153. .mouse_keys_old                 dd 0 ; +146
  3154. .mouse_pos                      dd 0 ; +150
  3155. .mouse_keys_delta               dd 0 ; +154
  3156. .mouse_key_delay                dd 50 ; +158
  3157. .mouse_keys_tick                dd 0 ; +162
  3158. .start_draw_cursor_line_2       dw 0 ;+166
  3159. .all_redraw                     dd 0 ;+168
  3160. .selected_BDVK_adress           dd 0 ;+172
  3161. .key_action                     dw 0 ;+176
  3162. .key_action_num                 dw 0 ;+178
  3163. .name_temp_area                 dd name_temp_area ;+180
  3164. .max_name_temp_size             dd 0 ;+184
  3165. .display_name_max_length        dd 0 ;+188
  3166. .draw_panel_selection_flag      dd 0 ;+192
  3167. .mouse_pos_old                  dd 0 ;+196
  3168. .marked_counter                 dd 0 ;+200
  3169. .keymap_pointer                 dd keymap_area ;+204
  3170. ;---------------------------------------------------------------------
  3171. PathShow_data_1:
  3172. .type                   dd 0    ;+0
  3173. .start_y                dw 11   ;+4
  3174. .start_x                dw 10   ;+6
  3175. .font_size_x            dw 6    ;+8     ; 6 - for font 0, 8 - for font 1
  3176. .area_size_x            dw 200  ;+10
  3177. .font_number            dd 0    ;+12    ; 0 - monospace, 1 - variable
  3178. .background_flag        dd 0    ;+16
  3179. .font_color             dd 0x0  ;+20
  3180. .background_color       dd 0x0  ;+24
  3181. .text_pointer           dd dir_path     ;+28
  3182. .work_area_pointer      dd text_work_area       ;+32
  3183. .temp_text_length       dd 0    ;+36
  3184. ;---------------------------------------------------------------------
  3185. ; for EDITBOX
  3186. align   4
  3187. name_editboxes:
  3188. edit1   edit_box 200,10,7,0xffffff,0xbbddff,0,0,0,4095,user_selected_name,mouse_dd,,0
  3189. name_editboxes_end:
  3190.  
  3191. ;mouse_flag:    dd 0x0
  3192.  
  3193. mouse_dd rd     1
  3194. ;---------------------------------------------------------------------
  3195. window_x:
  3196. .x_size         dw 420
  3197. .x_start        dw 10
  3198. window_y:
  3199. .y_size         dw 320
  3200. .y_start        dw 10
  3201. ;---------------------------------------------------------------------
  3202. features_table:
  3203. .type_table:
  3204.         db '<DIR> '
  3205. ;---------------------------------------------------------------------
  3206. .size_table:
  3207.         db '1023b '
  3208. ;---------------------------------------------------------------------
  3209. .date_table:
  3210.         db '00.00.00 00:00 '
  3211. ;---------------------------------------------------------------------
  3212. .year_table:
  3213.         db '    '
  3214. ;---------------------------------------------------------------------
  3215. example_name_temp:     
  3216.         db 'temp1.asm',0
  3217. ;---------------------------------------------------------------------
  3218. IM_END:
  3219. ;---------------------------------------------------------------------
  3220. do_not_draw_open_button_label   rb 1
  3221. ;---------------------------------------------------------------------
  3222. ;include_debug_strings
  3223. ;---------------------------------------------------------------------
  3224. align 4
  3225. app_colours:
  3226.  
  3227. w_frame                 rd 1
  3228. w_grab                  rd 1
  3229. w_grab_button           rd 1
  3230. w_grab_button_text      rd 1
  3231. w_grab_text             rd 1
  3232. w_work                  rd 1
  3233. w_work_button           rd 1
  3234. w_work_button_text      rd 1
  3235. w_work_text             rd 1
  3236. w_work_graph            rd 1
  3237. ;---------------------------------------------------------------------
  3238. open_button_coordinates rd 1
  3239. ;---------------------------------------------------------------------
  3240. error_handler_store_input_mode rd 1
  3241. ;---------------------------------------------------------------------
  3242. menu_text_area_1_1:
  3243. rb 256
  3244. ;---------------------------------------------------------------------
  3245.         rb 1024
  3246. stacktop:
  3247. ;---------------------------------------------------------------------
  3248. ; window error message
  3249.         rb 1024
  3250. thread_stack:
  3251. ;---------------------------------------------------------------------
  3252. retrieved_devices_table:
  3253.         rb 200
  3254. ;---------------------------------------------------------------------
  3255. keymap_area:
  3256.         rb 128
  3257. ;---------------------------------------------------------------------
  3258. name_temp_area:
  3259.         rb 256
  3260. ;---------------------------------------------------------------------
  3261. user_selected_name:
  3262.         rb 256
  3263. ;---------------------------------------------------------------------
  3264. param:
  3265.         rb 256
  3266. ;---------------------------------------------------------------------
  3267. path:
  3268.         rb 4096
  3269. ;---------------------------------------------------------------------
  3270. file_name:
  3271.         rb 4096
  3272. ;---------------------------------------------------------------------
  3273. previous_dir_path:
  3274.         rb 4096
  3275. ;---------------------------------------------------------------------
  3276. dir_path:
  3277.         rb 4096
  3278. ;---------------------------------------------------------------------
  3279. dir_path_temp:
  3280.         rb 4096
  3281. ;---------------------------------------------------------------------
  3282. text_work_area:
  3283.         rb 1024
  3284. ;---------------------------------------------------------------------
  3285. procinfo:
  3286. process_info:
  3287.         rb 1024
  3288. ;----------------------
  3289. file_info:
  3290.         rb 40
  3291. I_END:
  3292.