WebSVN – Kolibri OS – Diff – /programs/fs/opendial/opendial.asm


;*****************************************************************************
; Open Dialog - for Kolibri OS
; Copyright (c) 2009-2013, Marat Zakiyanov aka Mario79, aka Mario
; All rights reserved.
;
; Redistribution and use in source and binary forms, with or without
; modification, are permitted provided that the following conditions are met:
;        * Redistributions of source code must retain the above copyright
;          notice, this list of conditions and the following disclaimer.
;        * Redistributions in binary form must reproduce the above copyright
;          notice, this list of conditions and the following disclaimer in the
;          documentation and/or other materials provided with the distribution.
;        * Neither the name of the  nor the
;          names of its contributors may be used to endorse or promote products
;          derived from this software without specific prior written permission.
;
; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;*****************************************************************************
;---------------------------------------------------------------------
;Some documentation for memory
;
;area name db 'FFFFFFFF_open_dialog',0 ; FFFFFFFF = PID
;
; communication area data
; flag  ; +0
; dw 0   ; 0 - empty, 1 - file for open, 2 -folder for open,
;          3 - cancel, 4 - path=name of area 6822.
;
; type of dialog:  0-Open, 1-Save, 2-Dir
; dw 0 ; +2
;
; window X size ; +4
; dw 0
;
; window X position ; +6 
; dw 0
;
; window y size ; +8
; dw 0
;
; window Y position ; +10
; dw 0
;
; OpenDialog WINDOW SLOT ; +12
; dd 0
;
; file_path ; +16
; rb 3824 ; path to file
;
; file name ; +3840
; rb 256
;
; filtration flag ; +4096
; dd 0 ; flag 0 - no filtration,  1 - filtering
;
; area for storage of filtering values ; +4100
; rb 4092
;---------------------------------------------------------------------
	use32
	org	0x0
 
	db 'MENUET01'
	dd 0x01
	dd START
	dd IM_END
	dd I_END
	dd stacktop
	dd param
	dd path
 
include '../../macros.inc'
;define __DEBUG__ 1
;define __DEBUG_LEVEL__ 1
;include '../../debug-fdo.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
;include 'macros.inc'
;include 'load_lib.mac'
;include 'box_lib.mac'
@use_library
 
x_minimal_size equ 350
y_minimal_size equ 250
;---------------------------------------------------------------------
;---------------------------------------------------------------------
START:
	mcall	68,11
	mcall	66,1,1
	mcall	40,0x27
	call	get_communication_area
	
	call	get_active_pocess
 
load_libraries	l_libs_start,end_l_libs
	test	eax,eax
	jnz	button.exit
; initialize sort
	push	dword 1
	call	dword [sort_init]
; unpack deflate
	mov	eax,[unpack_DeflateUnpack2]
	mov	[deflate_unpack],eax
 
	mov	esi,start_pach
	mov	edi,previous_dir_path
	call	copy_dir_name.1
	
	call	load_root_directory
	call	load_start_directory
	call	sort_directory
	call	load_icons
	call	convert_icons
	call	load_ini
	call	calc_ini
	jmp	red_1
;---------------------------------------------------------------------
red:
	call	control_minimal_window_size
red_1:
	call	draw_window
;---------------------------------------------------------------------
still:
	mcall	10
	cmp	eax,1
	je	red
	cmp	eax,2
	je	key
	cmp	eax,3
	je	button
	cmp	eax,6
	je	mouse
	jmp	still
;---------------------------------------------------------------------
control_minimal_window_size:
	pusha
	call	get_window_param
	test	[window_status],10b
	jnz	.end	;red_1
	test	[window_status],100b
	jnz	.end	;red_1
	test	[window_status],1b
	jnz	.end	;red_1
	mov	esi,-1
	mov	eax,procinfo
	mov	eax,[eax+46]
	cmp	eax,dword y_minimal_size ;200
	jae	@f
	mov	esi,dword y_minimal_size ;200
	mcall	67,-1,ebx,ebx
@@:
	mov	edx,-1
	mov	eax,procinfo
	mov	eax,[eax+42]
	cmp	eax,dword x_minimal_size ;300
	jae	@f
	mov	edx,dword x_minimal_size ;300
	mcall	67,-1,ebx,,ebx
@@:
.end:
	popa
	ret
;---------------------------------------------------------------------
key:
	mov	al,[focus_pointer]
	test	al,al
	jne	key_ASCII
	mcall	2
	xor	ebx,ebx
	cmp	[extended_key],1
	je	.extended_key
	test	al,al
	jnz	still
	cmp	ah,0xE0
	jne	@f
	mov	[extended_key],1
	jmp	still
@@:
	cmp	ah,72	; arrow	up
	je	.2
	cmp	ah,80	; arrow	down
	je	.1
	cmp	ah,28	; Enter
	je	.7
	cmp	ah,1	; Esc
	je	button.exit
	cmp	ah,14	; Backspace
	je	button.exit_dir
	cmp	ah,187	; F1
	je	select_disk
	cmp	ah,188	; F2
	je	select_sort
	cmp	ah,189	; F3
	je	select_filter
	cmp	ah,19	; R
	je	button.reload_dir
	cmp	ah,42
	je	key_shift_up
	cmp	ah,54
	je	key_shift_up
	cmp	ah,170
	je	key_shift_down
	cmp	ah,182
	je	key_shift_down
	cmp	ah,29
	je	key_ctrl_up
	cmp	ah,157
	je	key_ctrl_down
	cmp	ah,56
	je	key_alt_up
	cmp	ah,184
	je	key_alt_down
	cmp	ah,206	; NumPad+ Up
	je	NumPad_plus_Up
	cmp	ah,202	; NumPad- Up
	je	NumPad_minus_Up
	cmp	ah,183	; NumPad* Up
	je	NumPad_invert_Up
	cmp	ah,158
	je	symbol_a_up
	cmp	ah,15	; Tab down
	je	change_focus_area_press_Tab_key
	cmp	ah,143	; Tab up
	je	change_focus_area_check_Tab_key
; compare for "1,2,3,4,5,6,7,8,9,0,(-),(=)"
	cmp	ah,2
	jb	still
	cmp	ah,13
	jbe	.12
; compare for "q,w,e,r,t,y,u,i,o,p,([),(])"	
	cmp	ah,16
	jb	still
	cmp	ah,27
	jbe	.12
; compare for "a,s,d,f,g,h,j,k,l,(;),('),(`)"	
	cmp	ah,30
	jb	still
	cmp	ah,41
	jbe	.12
; compare for "(\),z,x,c,v,b,n,m,(,),(.),(/)"	
	cmp	ah,43
	jb	still
	cmp	ah,53
	jbe	.12	
	jmp	still
.extended_key:
	mov	[extended_key],0
	cmp	ah,80	; arrow down
	je	.1
	cmp	ah,72	; arrow up
	je	.2
	cmp	ah,81	; PageDown
	je	.3
	cmp	ah,73	; PageUp
	je	.4
	cmp	ah,71	; Home
	je	.5
	cmp	ah,79	; End
	je	.6
	cmp	ah,28	; Enter
	je	.7
	cmp	ah,82	; Insert
	je	.8
	
	cmp	ah,29
	je	key_ctrl_up
	cmp	ah,157
	je	key_ctrl_down
	cmp	ah,56
	je	key_alt_up
	cmp	ah,184
	je	key_alt_down
	jmp	still
;---------------------------------
.12:
	inc	ebx	; 12 - Search with key
;---------------------------------
.11:
	inc	ebx	; 11 - Invert Mark
;---------------------------------
.10:
	inc	ebx	; 10 - Unmark All
;---------------------------------
.9:
	inc	ebx	; 9 - Mark All
;---------------------------------
.8:
	inc	ebx	; 8 - Insert (Mark)
;---------------------------------
.7:
	inc	ebx	; 7 - Enter
;---------------------------------
.6:
	inc	ebx	; 6 - End
;---------------------------------
.5:
	inc	ebx	; 5 - Home
;---------------------------------
.4:
	inc	ebx	; 4 - PageUp
;---------------------------------
.3:
	inc	ebx	; 3 - PageDown
;---------------------------------
.2:
	inc	ebx	; 2 - arrow up
;---------------------------------
.1:
	inc	ebx	; 1 - arrow down
;---------------------------------
	call	.key_action
	
;	movzx	ecx,word [file_browser_data_1.start_draw_cursor_line]
;	mcall	47,0x80000,,<50,0>,0x40000000,0xffffff
;	movzx	ecx,word [file_browser_data_1.size_y]
;	mcall	47,0x80000,,<150,0>,0x40000000,0xffffff
 
	mov	eax,file_browser_data_1.mouse_keys_delta
	cmp	[eax],dword 3
	jne	still
	xor	ebx,ebx
	mov	[eax],ebx
	call	load_next_dir
	jmp	still
;-------------------------------------------------------
.key_action:
	mov	[file_browser_data_1.key_action],bx
	shr	ax,8
	mov	[file_browser_data_1.key_action_num],ax
 
	push	dword file_browser_data_1
	call	[FileBrowser_key]
 
	call	draw_open_button_label
 
	cmp	[file_browser_data_1.draw_scroll_bar],0
	je	@f
	call	draw_scrollbar1
	mov	[file_browser_data_1.draw_scroll_bar],0
@@:
	ret
;---------------------------------------------------------------------
change_focus_area_Tab_key_ASCII:
	xor	eax,eax
	inc	eax
	mov	[Tab_key_block],al
	jmp	change_focus_area
;---------------------------------------------------------------------
change_focus_area_press_Tab_key:
	cmp	[open_dialog_type],1
	jne	still
	mov	al,[Tab_key_block]
	test	al,al
	jnz	still
	xor	eax,eax
	inc	eax
	mov	[Tab_key],al
	jmp	still
;---------------------------------------------------------------------
change_focus_area_check_Tab_key:
	cmp	[open_dialog_type],1
	jne	still
	xor	eax,eax
	mov	[Tab_key_block],al
	mov	al,[Tab_key]
	test	al,al
	jz	still
	xor	eax,eax
	mov	[Tab_key],al
;---------------------------------------------------------------------
change_focus_area:
	mov	al,[focus_pointer]
	inc	al
	and	al,1
	mov	[focus_pointer],al
.1:
	mov	edi,edit1
	test	al,al
	jne	@f
	mov	[file_browser_data_1.select_panel_counter],1
	and	[edi+44],dword 0xFFFFFFFD	; ed_focus
	mov	[edi+12],dword 0xffffff	; color white
	call	draw_draw_file_browser1
	mcall	66,1,1
	jmp	still
@@:
	mov	[file_browser_data_1.select_panel_counter],0
	or	[edi+44],dword ed_focus
	mov	[edi+12],dword 0xffffb0	; color yellow
	call	draw_draw_file_browser1
	mcall	66,1,0
	jmp	still
;---------------------------------------------------------------------
key_ASCII:
	mcall	2
	cmp	ah,9
	je	change_focus_area_Tab_key_ASCII
	cmp	ah,13
	je	.13
	cmp	ah,27
	je	button.exit
	push	dword name_editboxes
	call	[edit_box_key]
	jmp	still
.13:
;	cmp [open_dialog_type],2	; Select dir
;	je	file_no_folder
;	cmp	[open_dialog_type],1	; Save file
;	jne	user_selected_name_action	; load_dir
;	inc	[open_dialog_type]
	jmp	file_no_folder
;.load_dir:
;	mov	[file_browser_data_1.select_panel_counter],1
;	xor	eax,eax
;	mov	[focus_pointer],al
;	mcall	66,1,1
 
;	xor	eax,eax
;	mov	esi,dir_path
;	cld
;@@:
;	lodsb
;	test	al,al
;	jne	@r
;	sub	esi,2
;	cmp	[esi],byte '/'
;	jne	@f
;	xor	eax,eax
;	mov	[esi],al
;@@:
;	call	load_next_dir.1
;	jmp	still
;---------------------------------------------------------------------
user_selected_name_action:
	mov	eax,[communication_area]
	test	eax,eax
	jnz	@f
	call	control_minimal_window_size
	call	draw_window
	ret
@@:
	add	eax,16	;12
;copy_path	user_selected_name,dir_path,eax,0
	mov	esi,dir_path
	mov	edi,eax
	call	copy_dir_name
	mov	[edi-1],byte '/'
	mov	esi,user_selected_name
	call	copy_dir_name
	
	mov	eax,[communication_area]
	mov	[eax],word 1
	jmp	button.exit
;---------------------------------------------------------------------	
select_disk:
	call	check_alt
.1:
	call	load_root_directory
	xor	eax,eax
	mov	[menu_data_1.ret_key],eax
 
	push	dword menu_data_1
	call	[menu_bar_activate]
 
	call	clear_control_key_flag
 
	mov	eax,[menu_data_1.ret_key]
	mov	[menu_data_1.ret_key],dword 0
	cmp	eax,1
	je	select_filter.1
 
	cmp	eax,2
	je	select_sort.1
 
	cmp	[menu_data_1.click],dword 1
	jne	still
 
	cmp	[menu_data_1.cursor_out],dword 0
	jne	analyse_out_menu_1
	jmp	still
;---------------------------------------------------------------------
select_sort:
	call	check_alt
.1:
	xor	eax,eax
	mov	[menu_data_2.ret_key],eax
 
	push	dword menu_data_2
	call	[menu_bar_activate]
 
	call	clear_control_key_flag
 
	mov	eax,[menu_data_2.ret_key]
	mov	[menu_data_2.ret_key],dword 0
	cmp	eax,1
	je	select_disk.1
 
	cmp	eax,2
	je	select_filter.1
 
 
	cmp	[menu_data_2.click],dword 1
	jne	still
 
	cmp	[menu_data_2.cursor_out],dword 0
	jne	analyse_out_menu_2
	jmp	still
;---------------------------------------------------------------------
select_filter:
	call	check_alt
.1:
	xor	eax,eax
	mov	[menu_data_3.ret_key],eax
 
	push	dword menu_data_3
	call	[menu_bar_activate]
 
	call	clear_control_key_flag
 
	mov	eax,[menu_data_3.ret_key]
	mov	[menu_data_3.ret_key],dword 0
	cmp	eax,1
	je	select_sort.1
 
	cmp	eax,2
	je	select_disk.1
 
 
	cmp	[menu_data_3.click],dword 1
	jne	still
 
	cmp	[menu_data_3.cursor_out],dword 0
	jne	analyse_out_menu_3
	jmp	still
;---------------------------------------------------------------------
symbol_a_up:
NumPad_plus_Up:
	call	check_ctrl
	jmp	key.9
;---------------------------------------
NumPad_minus_Up:
	call	check_ctrl
	jmp	key.10
;---------------------------------------
NumPad_invert_Up:
	call	check_ctrl
	jmp	key.11
;---------------------------------------	
check_alt:
	xor	eax,eax
	mov	al,[alt_flag]
	test	eax,eax
	jz	@f
	xor	ebx,ebx
	ret
@@:
	add	esp,4
	jmp	still
;---------------------------------------	
check_ctrl:
	xor	eax,eax
	mov	al,[ctrl_flag]
	test	eax,eax
	jz	@f
	xor	ebx,ebx
	ret
@@:
	add	esp,4
	jmp	still
;---------------------------------------------------------------------
clear_control_key_flag:
	xor	eax,eax
	mov	[shift_flag],al
	mov	[ctrl_flag],al
	mov	[alt_flag],al
	ret
;---------------------------------------------------------------------
key_shift_up:
	mov	[shift_flag],1
	jmp	still
;---------------------------------------------------------------------
key_shift_down:
	mov	[shift_flag],0
	jmp	still
;---------------------------------------------------------------------
key_ctrl_up:
	mov	[ctrl_flag],1
	jmp	still
;---------------------------------------------------------------------
key_ctrl_down:
	mov	[ctrl_flag],0
	jmp	still
;---------------------------------------------------------------------
key_alt_up:
	mov	[alt_flag],1
	jmp	still
;---------------------------------------------------------------------
key_alt_down:
	mov	[alt_flag],0
	jmp	still
;---------------------------------------------------------------------
button:
	mcall	17
	cmp	ah,6
	je	.reload_dir_1
	cmp	ah,4
	je	.open_dir_or_file
	cmp	ah,3
	je	.exit
	cmp	ah,2
	je	.exit_dir
	cmp	ah,1
	jne	still
.exit:
	mov	eax,[communication_area]
	test	eax,eax
	jz	@f
	cmp	[eax],word 1
	je	@f
	mov	[eax],word 3
@@:
	mov	eax,[N_error]
	test	eax,eax
	jz	@f
	call	start_error_window_thread
@@:
	call	get_window_param
	mov	ebx,[communication_area]
	mov	ecx,procinfo
;	mov	eax,[window_x]
	mov	eax,[ecx+34]
	shl	eax,16
	add	eax,[ecx+42]
	mov	[ebx+4],eax
;	mov	eax,[window_y]
	mov	eax,[ecx+38]
	shl	eax,16
	add	eax,[ecx+46]
	mov	[ebx+8],eax
 
	mcall	-1
;---------------------------------------------------------------------
.reload_dir:
	cmp	[ctrl_flag],bl
	je	key.12 ; Just symbol 'R' or 'r'
.reload_dir_1:
	call	load_next_dir.1
	jmp	still
;---------------------------------------------------------------------
.exit_dir:
	call	load_next_dir.exit_dir
	jmp	still
;---------------------------------------------------------------------
.open_dir_or_file:
	cmp	[open_dialog_type],0	;Open file
	jne	@f
 
	mov	eax,[file_browser_data_1.folder_data]
	mov	eax,[eax+4]
	test	eax,eax
	jz	button.exit
@@:
	cmp	[open_dialog_type],2	;Select	dir
	je	file_no_folder
	
	cmp	[open_dialog_type],1	;Save file
	jne	@f
 
	mov	al,[focus_pointer]
	test	al,al
	jne	file_no_folder	
@@:
	xor	ebx,ebx
	jmp	key.7
;---------------------------------------------------------------------
thread_start:
	mov	eax,[N_error]
	cmp	al,1
	jne	@f
	mov	[N_error],load_ini_error_type
	mov	[error_path],file_name
	jmp	.error_type
@@:
	cmp	al,2
	jne	@f
	mov	[N_error],load_icons_error_type
	mov	[error_path],file_name
	jmp	.error_type
@@:
	cmp	al,3
	jne	@f
	mov	[N_error],memory_free_error_type
	xor	eax,eax
	mov	[error_path],eax
	mov	[error_type],eax
	jmp	.red
@@:
	cmp	al,4
	jne	@f
	mov	[N_error],memory_get_error_type
	xor	eax,eax
	mov	[error_path],eax
	mov	[error_type],eax
	jmp	.red
@@:
	cmp	al,5
	jne	@f
	mov	[N_error],load_directory_error_type
	mov	[error_path],dir_path
	jmp	.error_type
@@:
	cmp	al,6
	jne	.button
	mov	[N_error],convert_icons_error_type
	mov	[error_path],file_name
	xor	eax,eax
	mov	[error_type],eax
	jmp	.red
.error_type:
	mov	eax,[error_type]
	shl	eax,2
	add	eax,error_fs_text_pointers
	mov	eax,[eax]
	mov	[error_type],eax
.red:
	call	draw_error_window
.still:
	mcall	10
	cmp	eax,1
	je	.red
	cmp	eax,2
	je	.key
	cmp	eax,3
	je	.button
	jmp	.still
.key:
	mcall	2
	jmp	.still
.button:
	mcall	-1
	jmp	.still
;---------------------------------------------------------------------
draw_error_window:
	mcall	12,1
	mcall	0,[error_window_x],[error_window_y],0x03ff0000
	call	type_title
	mcall	4,<10,30>,0x90ffffff,[N_error]
	mov	eax,[error_path]
	test	eax,eax
	jz	@f
	mcall	4,<10,50>,,[error_path]
@@:
	mov	eax,[error_type]
	test	eax,eax
	jz	@f
	mcall	4,<10,70>,,[error_type]
@@:
	mcall	12,2
	ret
;---------------------------------------------------------------------
start_error_window_thread:
	mcall	9,procinfo,-1
	mov	eax,[ebx+46]
	shr	eax,1
	add	eax,[ebx+38]
	sub	eax,40
	mov	[error_window_y+2],ax
	mov	eax,[ebx+42]
	shr	eax,1
	add	eax,[ebx+34]
	sub	eax,125
	mov	[error_window_x+2],ax
	mcall	51,1,thread_start,thread_stack
	ret
;---------------------------------------------------------------------
mouse:
	mcall	18,7
	cmp	[active_process],eax
	jne	still
 
	mcall	37,7
	mov	[mouse_scroll_data],eax
 
	mcall	37,1
	mov	[mouse_position],eax
 
	cmp	[scroll_bar_data_vertical.delta2],0
	jne	.scrollbar
 
	mov	[file_browser_data_1.select_flag],0
 
	push	dword file_browser_data_1
	call	[FileBrowser_mouse]
 
	call	draw_open_button_label
 
	mov	eax,file_browser_data_1.mouse_keys_delta
	cmp	[eax],dword 3
	jne	.check_focus	; scrollbar
	mov	[eax],dword 0
	call	load_next_dir
	jmp	still
;---------------------------------------------------
.check_focus:
	mov	ebx,[file_browser_data_1.select_flag]
	test	ebx,ebx
	jz	.scrollbar	;@f
	mov	al,[focus_pointer]
	test	al,al
	jz	.scrollbar
	xor	eax,eax
	mov	[focus_pointer],al
	jmp	change_focus_area.1
;---------------------------------------------------
.scrollbar:
	mov	eax,[scroll_bar_data_vertical.max_area]
	cmp	eax,[scroll_bar_data_vertical.cur_area]
	jbe	.menu_bar	;still
	
	push	dword scroll_bar_data_vertical
	call	[scrollbar_ver_mouse]
	
	cmp	[scroll_bar_data_vertical.redraw],0
	je	.menu_bar	;still
	mov	[scroll_bar_data_vertical.redraw],0
.draw:
	call	draw_draw_file_browser2
	jmp	still
 
;---------------------------------------------------
.menu_bar:
	cmp	[scroll_bar_data_vertical.delta2],0
	jne	still
 
.menu_bar_1:
	call	.set_mouse_flag
@@:
	push	dword menu_data_1
	call	[menu_bar_mouse]
 
	cmp	[menu_data_1.click],dword 1
	jne	.menu_bar_2
 
	cmp	[menu_data_1.cursor_out],dword 0
	jne	select_disk.1	;analyse_out_menu_1
	jmp	.menu_bar_1
;--------------------------------------------
.menu_bar_2:
	push	dword menu_data_2
	call	[menu_bar_mouse]
 
	cmp	[menu_data_2.click],dword 1
	jne	.menu_bar_3
 
	cmp	[menu_data_2.cursor_out],dword 0
	jne	analyse_out_menu_2
	jmp	.menu_bar_1
;---------------------------------------------------
.menu_bar_3:
	push	dword menu_data_3
	call	[menu_bar_mouse]
 
	cmp	[menu_data_3.click],dword 1
	jne	.check_editboxes
 
	cmp	[menu_data_3.cursor_out],dword 0
	jne	analyse_out_menu_3
	jmp	.menu_bar_1
;---------------------------------------------------
.check_editboxes:
	cmp	[open_dialog_type],1
	jne	.check_scroll_event
	mov	eax,[edit1+44]
	and	eax,10b
	push	dword name_editboxes
	call	[edit_box_mouse]
	mov	ebx,[edit1+44]
	and	ebx,10b
	cmp	eax,ebx
	je	.check_scroll_event
	mov	al,[focus_pointer]
	test	al,al
	jnz	.check_scroll_event
	xor	eax,eax
	test	ebx,10b
	jz	@f
	inc	eax
@@:
	mov	[focus_pointer],al
	jmp	change_focus_area.1
;---------------------------------------------------
.check_scroll_event:
	mov	eax,[mouse_position]
	xor	ebx,ebx
	mov	bx,ax	; EBX mouse y
	shr	eax,16	; EAX mouse x
	
	mov	cx,[file_browser_data_1.start_x]
	mov	dx,[file_browser_data_1.start_y]
 
	cmp	ax,cx
	jb	.mouse_next	; min x
 
	cmp	bx,dx
	jb	.mouse_next	; min y
 
	add	cx,[file_browser_data_1.size_x]
	cmp	ax,cx	
	ja	.mouse_next	; max x
 
	add	dx,[file_browser_data_1.size_y]
	cmp	bx,dx
	ja	.mouse_next	; max y
 
	xor	ecx,ecx
	xor	ebx,ebx
	mov	eax,[mouse_scroll_data]
	test	eax,eax
	jz	.mouse_next
	test	ax,0x8000
	jnz	.decr
	shr	eax,16
	test	ax,0x8000
	jnz	.decr_1
 
	mov	cx,[mouse_scroll_data.vertical]
	test	ecx,ecx
	jnz	@f
	mov	cx,[mouse_scroll_data.horizontal]
	test	ecx,ecx
	jz	.mouse_next
@@:
	mov	ebx,1
@@:
	push	ebx ecx
	call	key.key_action
	pop	ecx ebx
	dec	ecx
	jnz	@r
	jmp	still
;----------------------------------------
.decr:
	mov	bx,[mouse_scroll_data.vertical]
	jmp	@f
.decr_1:
	mov	bx,[mouse_scroll_data.horizontal]
@@:
	mov	ecx,0xffff
	sub	ecx,ebx
	inc	ecx
	mov	ebx,2
@@:
	push	ebx ecx
	call	key.key_action
	pop	ecx ebx
	dec	ecx
	jnz	@r
	jmp	still
;---------------------------------------------------
.mouse_next:
	jmp	still
;---------------------------------------------------------------------
.set_mouse_flag:
	xor	eax,eax
	inc	eax
	mov	[menu_data_1.get_mouse_flag],eax
	mov	[menu_data_2.get_mouse_flag],eax
	ret
;---------------------------------------------------------------------
analyse_out_menu_1:
; Available disks
	mov	eax,[menu_data_1.cursor_out]
	dec	eax
	imul	esi,eax,10
	add	esi,retrieved_devices_table
	mov	edi,dir_path
	call	copy_dir_name
	call	load_next_dir.1
	jmp	still
;---------------------------------------------------------------------
analyse_out_menu_2:
; Sort
	mov	eax,[menu_data_2.cursor_out]
	xor	ebx,ebx
	cmp	eax,dword 1
	je	.1
	cmp	eax,dword 2
	je	.2
	cmp	eax,dword 3
	je	.3
	cmp	eax,dword 4
	je	.4
	jmp	still
.4:
	add	ebx,2
.3:
	add	ebx,2
.2:
	add	ebx,2
.1:
	mov	[sort_type],ebx
	call	sort_directory
	call	draw_draw_file_browser1
	jmp	still
;---------------------------------------------------------------------
analyse_out_menu_3:
; Filter
	mov	eax,[menu_data_3.cursor_out]
	cmp	eax,dword 1
	jne	@f
	mov	[filter_flag],0
	call	load_next_dir.1
	jmp	still
@@:
	cmp	eax,dword 2
	jne	still
	mov	[filter_flag],1
	call	load_next_dir.1
	jmp	still	
;---------------------------------------------------------------------
get_communication_area:
	xor	eax,eax
	mov	al,[param]
	test	eax,eax
	jz	.exit
	mcall	68,22,param,,0x01
	mov	[communication_area],eax
	movzx	ebx,word [eax+2]
	mov	[open_dialog_type],ebx
	cmp	ebx,1
	jne	@f
	pushad
	mov	[focus_pointer],bl
	mov	edi,edit1
	mov	[file_browser_data_1.select_panel_counter],0
	or	[edi+44],dword ed_focus
	mov	[edi+12],dword 0xffffb0	; color yellow
	mcall	66,1,0
	popad
@@:
	mov	ebx,[eax+4]
	cmp	bx,word x_minimal_size ;300
	jb	@f
	mov	[window_x],ebx
	mov	ebx,[eax+8]
	cmp	bx,word y_minimal_size ;200
	jb	@f
	mov	[window_y],ebx
.exit:
	ret
;---------------------------------------------------------------------
load_start_directory:
	mov	eax,[communication_area]	
	test	eax,eax
	jz	.1
	movzx	ebx,word [eax]
	test	eax,eax
	jz	.1
	add	eax,16	;12 ;4
	mov	esi,eax
	push	esi
	mov	esi,[communication_area]
	add	esi,3840 ;4096-256
	mov	eax,[esi]
	test	al,al
	jnz	@f
	mov	esi,example_name_temp
@@:
	mov	edi,user_selected_name
	call	copy_dir_name
	pop	esi
	jmp	.2
.1:
	mov	esi,start_pach
.2:
	mov	edi,dir_path
	call	copy_dir_name
	
;	call	load_directory
;	mov	eax,[N_error]
;	test	eax,eax
;	jnz	button.exit
.3:
	call	load_directory
	mov	eax,[N_error]
	test	eax,eax
	jz	@f
	call	error_handler
	jmp	.3
@@:
	ret
;---------------------------------------------------------------------
load_next_dir:
	mov	ebx,[file_browser_data_1.folder_block]
	test	ebx,ebx
	jz	.exit
 
	mov	ebx,[file_browser_data_1.selected_BDVK_adress]
	add	ebx,40
	test	[ebx-40],byte 0x10
	jz	file_no_folder
	cmp	[ebx],word '..'
	jne	@f
	cmp	[ebx+2],byte 0
	je	.exit_dir
@@:
	mov	esi,dir_path
	call	copy_dir_path
 
@@:
.1:
	call	load_directory
	mov	eax,[N_error]
	test	eax,eax
	jz	@f
	call	error_handler
	jmp	.1
@@:
	call	sort_directory
 
	mov	ebx,[scroll_bar_data_vertical.x]
	inc	ebx
	mov	ecx,[scroll_bar_data_vertical.y]
	inc	ecx
	mcall	13,,,0xcccccc
	mov	edi,edit1
	xor	eax,eax
	mov	[edi+44],eax
	mov	[edi+12],dword 0xffffff	; color white
	call	draw_draw_file_browser1
.exit:
	ret
.exit_dir:
	mov	esi,dir_path
	call	copy_exit_dir
	jmp	.1
;---------------------------------------------------------------------
error_handler:
	mcall	66,2
	mov	[error_handler_store_input_mode],eax
	mcall	66,1,1
.red:
	call	.draw_window
;------------------------------------
.still:
	mcall	10
	cmp	eax,1
	je	.red
	cmp	eax,2
	je	.key
	cmp	eax,3
	je	.button
	jmp	.still
;------------------------------------
.draw_window:
	xor	eax,eax
	inc	eax
	mov	[error_window],al
	call	control_minimal_window_size
	call	draw_window
	xor	eax,eax
	mov	[error_window],al
	ret
;------------------------------------
.key:
	mcall	2
	xor	ebx,ebx
	cmp	[extended_key],1
	je	.extended_key
	test	al,al
	jnz	.still
	cmp	ah,0xE0
	jne	@f
	mov	[extended_key],1
	jmp	.still
@@:
	cmp	ah,129	; Esc
	je	.exit
	jmp	.still
.extended_key:
	jmp	.still
;------------------------------------
.button:
	mcall	17
	cmp	ah,5
	je	.exit
	cmp	ah,1
	jne	.still
	xor	eax,eax
	mov	[N_error],eax
	jmp	button.exit
;------------------------------------
.exit:
	cmp	[open_dialog_type],1
	jne	@f
 
	mov	esi,root_pach
	mov	edi,dir_path
	call	copy_dir_name.1
	mov	esi,root_pach
	mov	edi,previous_dir_path
	call	copy_dir_name.1
	jmp	.restore_input_mode
@@:
	mov	esi,previous_dir_path
	mov	edi,dir_path
	call	copy_dir_name.1
	mov	esi,start_pach
	mov	edi,previous_dir_path
	call	copy_dir_name.1
.restore_input_mode:
	mcall	66,1,[error_handler_store_input_mode]
	ret
;---------------------------------------------------------------------
file_no_folder:
	mov	esi,dir_path
	mov	edi,file_name
	call	copy_dir_name
	push	ebx
	mov	al,[focus_pointer]
	test	al,al
	je	@f
	mov	ebx,user_selected_name
	xor	eax,eax
	cmp	[ebx],al
	je	.exit
@@:
	cmp	[open_dialog_type],2
	je	@f
	mov	esi,file_name
	call	copy_dir_path
@@:
	mov	eax,[communication_area]
	test	eax,eax
	jnz	@f
	call	control_minimal_window_size
	call	draw_window
	pop	ebx
	ret
@@:
	mov	edi,eax
	add	edi,16	;12
	mov	esi,file_name	
	call	copy_dir_name
	
	pop	esi
	mov	al,[focus_pointer]
	test	al,al
	jz	@f
	mov	esi,user_selected_name
@@:
	xor	eax,eax
	cmp	[esi],al
	je	.exit
	mov	edi,[communication_area]
	add	edi,3840 ;4096-256
	call	copy_dir_name
.exit:
	mov	eax,[communication_area]
	mov	[eax],word 1
	jmp	button.exit
;---------------------------------------------------------------------
load_root_directory:
	mov	[dirinfo.name],dword dir_path_temp
	mov	eax,[dirinfo.return]
	push	eax
	mov	eax,[file_browser_data_1.folder_data]
	push	eax
	xor	eax,eax
	mov	[dirinfo.return],eax
	mov	[file_browser_data_1.folder_data],eax
	mov	esi,root_pach
	mov	edi,dir_path_temp
	call	copy_dir_name
	call	load_directory
	mov	eax,[N_error]
	test	eax,eax
	jnz	button.exit
 
	mov	eax,[dirinfo.return]
	mov	[root_folder_area],eax
	mov	eax,[eax+4]
	mov	[root_folder_block],eax
 
	xor	eax,eax
	mov	[dirinfo.return],eax
	mov	[file_browser_data_1.folder_data],eax
	mov	[temp_counter_1],eax	;0
 
	mov	[retrieved_devices_table_counter],eax	;0
.start_temp_counter_1:
	imul	esi,[temp_counter_1],304
	add	esi,[root_folder_area]
	add	esi,32+40
	mov	edi,dir_path_temp+1
	mov	[edi-1],byte '/'
	call	copy_dir_name
	call	load_directory
	mov	eax,[N_error]
	test	eax,eax
	jnz	button.exit
 
	mov	eax,[dirinfo.return]
	mov	[root1_folder_area],eax
	mov	eax,[eax+4]
	test	eax,eax
	jz	.continue
	mov	[root1_folder_block],eax
	
	mov	ebp,0
.start_copy_device_patch:
	imul	edi,[retrieved_devices_table_counter],10
	add	edi,retrieved_devices_table
	mov	[edi],byte '/'
	inc	edi
	imul	esi,[temp_counter_1],304
	add	esi,[root_folder_area]
	add	esi,32+40
 
	call	copy_dir_name
 
	imul	esi,ebp,304
	add	esi,[root1_folder_area]
	add	esi,32+40
	mov	[edi-1],byte '/'
 
	call	copy_dir_name
 
	inc	[retrieved_devices_table_counter]
	inc	ebp
	cmp	ebp,[root1_folder_block]
	jb	.start_copy_device_patch
.continue:
	inc	[temp_counter_1]
	mov	eax,[temp_counter_1]
	cmp	eax,[root_folder_block]
	jb	.start_temp_counter_1
 
	cmp	[root_folder_area],dword 0
	je	@f
	mcall	68,13,[root_folder_area]
	test	eax,eax
	jz	memory_free_error
@@:
 
	xor	ecx,ecx
	mov	edi,menu_text_area_1_1	;.1
@@:
	imul	esi,ecx,10
	add	esi,retrieved_devices_table
	call	copy_dir_name
	inc	ecx
	cmp	ecx,[retrieved_devices_table_counter]
	jb	@b
	mov	[menu_data_1.text_end],edi
	xor	eax,eax
	mov	[edi],eax
	pop	eax
	mov	[file_browser_data_1.folder_data],eax
	pop	eax
	mov	[dirinfo.return],eax
	mov	[dirinfo.name],dword dir_path
	ret
;---------------------------------------------------------------------
memory_free_error:
	mov	[N_error],3
	jmp	button.exit
;---------------------------------------------------------------------
memory_get_error:
	mov	[N_error],4
	jmp	button.exit
;---------------------------------------------------------------------
type_title:
	mov	ecx,[open_dialog_type]
	shl	ecx,2
	add	ecx,open_dialog_title_pointer
	mov	ecx,[ecx]
	test	ecx,ecx
	jz	@f
	mcall	71,1,; title ;;param ;file_name ;dir_path
@@:
	ret
;---------------------------------------------------------------------
draw_window:
 
	mcall	12,1
	
	call	prepare_system_colors
 
;	mcall	0,<10,420>,<10,320>,0x63AABBCC,
	xor	esi,esi
;	mov	edx,[w_work]	; color of work area RRGGBB,8->color
;	or	edx,0x63000000
	mcall	0,[window_x],[window_y],0x63AABBCC
 
;	mov	ecx,[communication_area]
;	add	ecx,4096+4+4
	call	type_title
	call	get_window_param
	
	mov	eax,[procinfo+70] ;status of window
	test	eax,100b
	jne	.end
	
	mov	eax,[window_high]
	sub	eax,25+45
	mov	[file_browser_data_1.size_y],ax
	mov	[scroll_bar_data_vertical.size_y],ax
	
	mov	eax,[window_width]
	sub	eax,10+20
	mov	[file_browser_data_1.size_x],ax
	add	ax,10
	mov	[scroll_bar_data_vertical.start_x],ax
	
	mov	edx,[w_work]	; color of work area RRGGBB,8->color
	or	edx,0x63000000
	mcall	13,[window_width],45	;,0xcccccc
 
	push	ecx
	rol	ecx,16
	add	cx,[file_browser_data_1.size_y]
	add	cx,45
	ror	ecx,16
	mov	cx,25
	mcall
	pop	ecx
	add	ecx,45 shl 16
	mov	cx,[file_browser_data_1.size_y]
	mov	bx,10
	mcall
	mov	bx,[file_browser_data_1.size_x]
	add	bx,10
	shl	ebx,16
	mov	bx,20
	mcall
 
	cmp	[error_window],0
	je	@f
	call	draw_for_fs_errors
	jmp	.1
@@:
	mov	[do_not_draw_open_button_label],1
	call	draw_draw_file_browser1
	mov	[do_not_draw_open_button_label],0
.1:
	push	dword menu_data_1
	call	[menu_bar_draw]
	push	dword menu_data_2
	call	[menu_bar_draw]
	push	dword menu_data_3
	call	[menu_bar_draw]
 
	mov	ebx,[file_browser_data_1.x]
	mov	ax,bx
	shl	eax,16
	add	ebx,eax
	mov	eax,50
	mov	bx,ax
	shl	eax,16
	sub	ebx,eax
	mov	ecx,26 shl 16+15
 
	mcall	8,,,2,[w_work_button]	;0xffffff
 
	pusha
	shr	ecx,16
	mov	bx,cx
	add	ebx,20 shl 16+2
	mov	ecx,[w_work_button_text]
	or	ecx,0x90000000
	mcall	4,,,message_ExitDir_button
	add	ebx,4
	mcall
	add	ebx,4
	mcall
	popa
 
	push	ebx
	sub	ebx,70 shl 16
	mov	bx,60
	mcall	8,,,6
 
	shr	ecx,16
	mov	bx,cx
	add	ebx,5 shl 16+4
	mov	ecx,[w_work_button_text]
	or	ecx,0x90000000
	mcall	4,,,message_ReloadDir_button
	pop	ebx
 
	mov	ebx,[file_browser_data_1.x]
	
	mov	ax,bx
	shl	eax,16
	add	ebx,eax
	mov	eax,55
	mov	bx,ax
	shl	eax,16
	sub	ebx,eax
 
	mov	ecx,[file_browser_data_1.y]
	mov	ax,cx
	add	eax,3
	shl	eax,16
	add	ecx,eax
	mov	cx,15
 
	mcall	8,,,3
 
	pusha
 
	shr	ecx,16
	mov	bx,cx
	add	ebx,6 shl 16+ 4
	mov	ecx,[w_work_button_text]
	or	ecx,0x90000000
	mcall	4,,,message_cancel_button
	popa
 
	sub	ebx,65 shl 16
	mcall	8,,,4
	
	shr	ecx,16
	mov	bx,cx
	add	ebx,6 shl 16+4
	
	mov	edx,[open_dialog_type]
	shl	edx,2
	add	edx,message_open_dialog_button
	mov	edx,[edx]
;--------------------------------------	
	cmp	[open_dialog_type],1
	jne	@f
 
	cmp	[focus_pointer],1
	je	@f
 
	cmp	[error_window],0
	jne	@f
	
	mov	eax,[file_browser_data_1.selected_BDVK_adress]
	test	[eax],byte 0x10
	jz	@f
 
	mov	edx,message_0 	; Open Dir
@@:
;--------------------------------------
	mov	[open_button_coordinates],ebx
	mov	ecx,[w_work_button_text]
	or	ecx,0x90000000
	mcall	4	;message_open_button
	
;	mcall	47,0x80000,[file_browser_data_1.ini_file_start],<250,0>,0x0
;	mcall	4,<3,420>,0,fb_extension_start,3
.end:
	mcall	12,2
 
	ret
;---------------------------------------------------------------------
draw_open_button_label:
	cmp	[do_not_draw_open_button_label],1
	je	.exit_1	
 
	cmp	[open_dialog_type],1
	jne	.exit_1
 
	cmp	[focus_pointer],1
	je	draw_save_button_label
	
	pusha
	mov	ebx,[open_button_coordinates]
	test	ebx,ebx
	jz	.exit
 
	mov	edx,[open_dialog_type]
	shl	edx,2
	add	edx,message_open_dialog_button
	mov	edx,[edx]
	
	mov	eax,[file_browser_data_1.folder_block]
	test	eax,eax
	jz	.1
	
	mov	eax,[file_browser_data_1.selected_BDVK_adress]
	test	[eax],byte 0x10
	jz	@f
	
	mov	edx,message_0	; Open Dir
	jmp	.1
@@:
	call	copy_new_file_name
.1:
	mov	ecx,[w_work_button_text]
	or	ecx,0xd0000000
	mov	edi,[w_work_button]
	mcall	4	;message_open_button
.exit:
	popa
.exit_1:
	ret
;---------------------------------------------------------------------
draw_save_button_label:
	pusha
	mov	ebx,[open_button_coordinates]
 
	mov	edx,message_1	; Save
 
	mov	ecx,[w_work_button_text]
	or	ecx,0xd0000000
	mov	edi,[w_work_button]
	mcall	4	;message_open_button
	popa
	ret
;---------------------------------------------------------------------
copy_new_file_name:
	mov	esi,[file_browser_data_1.selected_BDVK_adress]
	add	esi,40
	mov	edi,user_selected_name
	cld
	lodsb
	test	al,al
	jnz	.1
	ret
@@:
	lodsb
.1:
	stosb
	test	al,al
	jnz	@r
	
	sub	edi,user_selected_name
	dec	edi
	
	mov	esi,edit1
	mov	[esi+48],edi ;ed_size
	mov	[esi+52],edi ;ed_pos
 
	push	dword name_editboxes
	call	[edit_box_draw]
	ret
;---------------------------------------------------------------------
prepare_system_colors:
	mcall	48,3,app_colours,10*4
 
	mov	eax,[w_work]
	mov	[menu_data_1.bckg_col],eax
	mov	[menu_data_2.bckg_col],eax
	mov	[menu_data_3.bckg_col],eax
 
	mov	[menu_data_1.menu_col],eax
	mov	[menu_data_2.menu_col],eax
	mov	[menu_data_3.menu_col],eax
	
	mov	[scroll_bar_data_vertical.bckg_col],eax	
 
	mov	eax,[w_work_button]
	mov	[menu_data_1.frnt_col],eax
	mov	[menu_data_2.frnt_col],eax
	mov	[menu_data_3.frnt_col],eax
 
	mov	[scroll_bar_data_vertical.frnt_col],eax	
 
	mov	eax,[w_work_button]
	mov	[menu_data_1.menu_sel_col],eax
	mov	[menu_data_2.menu_sel_col],eax
	mov	[menu_data_3.menu_sel_col],eax
 
	mov	eax,[w_work_text]
	mov	[menu_data_1.bckg_text_col],eax
	mov	[menu_data_2.bckg_text_col],eax
	mov	[menu_data_3.bckg_text_col],eax
	
	mov	eax,[w_work_button_text]
	mov	[menu_data_1.frnt_text_col],eax
	mov	[menu_data_2.frnt_text_col],eax
	mov	[menu_data_3.frnt_text_col],eax
	
	mov	[scroll_bar_data_vertical.line_col],eax	
	ret
;---------------------------------------------------------------------
draw_for_fs_errors:
	call	draw_dir_path
 
	mov	ebx,[file_browser_data_1.x]
	mov	ecx,[file_browser_data_1.y]
	mcall	13,,,[file_browser_data_1.background_color]
	push	ebx ecx
	add	ebx,10 shl 16
	sub	ebx,20
	add	ecx,10 shl 16
	sub	ecx,20
 
	shr	ecx,16
	mov	bx,cx
	add	ebx,5 shl 16+15
	mcall	4,,0x90000000,load_directory_error_type
 
	add	ebx,20
	mcall	4,,,dir_path	
 
	mov	eax,[error_type]
	shl	eax,2
	add	eax,error_fs_text_pointers
	mov	edx,[eax]
	add	ebx,20
	mcall	4
	
	add	ebx,20
	mcall	,,,error_help_text
 
	pop	ecx ebx
 
	mov	ebx,[file_browser_data_1.x]
	mov	ax,bx
	shr	eax,1
	shl	eax,16
	add	ebx,eax
	mov	eax,50
	mov	bx,ax
	shr	eax,1
	shl	eax,16
	sub	ebx,eax
 
	mov	ecx,[file_browser_data_1.y]
	mov	ax,cx
	sub	eax,40
	shl	eax,16
	add	ecx,eax
	mov	cx,15
 
	mcall	8,,,5,[w_work_button]	;0xffffff
 
	shr	ecx,16
	mov	bx,cx
	add	ebx,4 shl 16+4
	mov	ecx,[w_work_button_text]
	add	ecx,0x90000000
	mcall	4,,,message_cancel_button
 
	ret
;---------------------------------------------------------------------	
draw_file_name:
	mov	esi,user_selected_name
	cld
@@:
	lodsb
	test	al,al
	jne	@r
	sub	esi,user_selected_name
	mov	eax,esi
	dec	eax
	
	mov	edi,edit1
	mov	[edi+48],eax ;ed_size
	mov	[edi+52],eax ;ed_pos
;--------------------------------------
	mov	eax,[file_browser_data_1.x]
	mov	ebx,eax
	shr	ebx,16
	and	eax,0xffff
	sub	eax,200
	mov	[edi],eax
	add	ebx,70
	mov	[edi+4],ebx
	
	mov	eax,[file_browser_data_1.y]
	mov	ebx,eax
	shr	ebx,16
	and	eax,0xffff
	add	eax,ebx
	add	eax,5
	mov	[edi+8],eax
	
	push	dword name_editboxes
	call	[edit_box_draw]	
	
	mov	bx,[file_browser_data_1.start_x]
	add	bx,5
	shl	ebx,16
	mov	bx,[file_browser_data_1.start_y]
	add	bx,[file_browser_data_1.size_y]
	add	bx,9
	mcall	4,,0x80000000,message_file_name
	ret
;---------------------------------------------------------------------
draw_dir_path:
	mov	eax,[file_browser_data_1.x]
	mov	ebx,eax
	shr	ebx,16
	add	ebx,3
	and	eax,0xffff
	sub	eax,5
	
	mov	[PathShow_data_1.area_size_x],ax
	mov	[PathShow_data_1.start_x],bx
;--------------------------------------
;; top line
;	mov	ebx,[file_browser_data_1.x]
;	mcall	13,,<7,1>,0x0
; down line
;	push	ebx ecx
;	mcall	,,<21,1>,
;	pop	ecx ebx
; left line	
;	push	ebx
;	mov	bx,1
;	mov	cx,15
;	mcall
;	pop	ebx
; right line
;	mov	ax,bx
;	shr	ebx,16
;	add	bx,ax
;	dec	ebx
;	shl	ebx,16
;	mov	bx,1
;	mcall	13
;--------------------------------------	
	mov	ebx,[file_browser_data_1.x]
	sub	ebx,2
	add	ebx,1 shl 16
	mcall	13,,<8,13>,0xffffcc
;--------------------------------------
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
	
; draw for PathShow
	push	dword PathShow_data_1
	call	[PathShow_draw]
	
	ret
;---------------------------------------------------------------------
draw_draw_file_browser1:
	call	draw_dir_path
	cmp	[open_dialog_type],1
	jne	@f	
	call	draw_file_name
@@:
	xor	eax,eax
	inc	eax
	mov	[file_browser_data_1.all_redraw],eax
	mov	[scroll_bar_data_vertical.all_redraw],eax
	
	push	dword file_browser_data_1
	call	[FileBrowser_draw]
 
	call	draw_open_button_label
	
	call	prepare_scrollbar_data
 
	call	draw_scrollbar
 
	xor	eax,eax
	mov	[file_browser_data_1.all_redraw],eax
	mov	[scroll_bar_data_vertical.all_redraw],eax
	ret
;---------------------------------------------------------------------
draw_draw_file_browser2:
	mov	eax,2
	mov	[file_browser_data_1.all_redraw],eax
 
	call	get_scrollbar_data
 
	push	dword file_browser_data_1
	call	[FileBrowser_draw]
 
	call	draw_open_button_label
 
	xor	eax,eax
	mov	[file_browser_data_1.all_redraw],eax
	ret
;---------------------------------------------------------------------
draw_scrollbar1:
	mov	eax,[file_browser_data_1.start_draw_line]
	mov	[scroll_bar_data_vertical.position],eax
 
	call	draw_scrollbar
 
	ret
;---------------------------------------------------------------------
draw_scrollbar:
	mov	eax,[scroll_bar_data_vertical.max_area]
	cmp	eax,[scroll_bar_data_vertical.cur_area]
	jbe	@f
	cmp	[scroll_bar_data_vertical.cur_area],0
	je	@f
	push	dword scroll_bar_data_vertical
	call	[scrollbar_ver_draw]
@@:
	ret
;---------------------------------------------------------------------
get_scrollbar_data:
	mov	eax,[scroll_bar_data_vertical.position]
	mov	[file_browser_data_1.start_draw_line],eax
	ret
;---------------------------------------------------------------------
prepare_scrollbar_data:
	mov	eax,[file_browser_data_1.folder_block]
	mov	[scroll_bar_data_vertical.max_area],eax
	mov	eax,[file_browser_data_1.max_panel_line]
	mov	[scroll_bar_data_vertical.cur_area],eax
	ret
;---------------------------------------------------------------------
get_active_pocess:
	mcall	9,procinfo,-1
	mov	ecx,[ebx+30]	; PID
	mcall	18,21
	mov	[active_process],eax	; WINDOW SLOT
	mov	ebx,[communication_area]	
	test	ebx,ebx
	jz	.1
	mov	[ebx+12],eax	; WINDOW SLOT to com. area
.1:
	ret
;---------------------------------------------------------------------
get_window_param:
	mcall	9,procinfo,-1
	mov	eax,[ebx+66]
	inc	eax
	mov	[window_high],eax
	mov	eax,[ebx+62]
	inc	eax
	mov	[window_width],eax
	mov	eax,[ebx+70]
	mov	[window_status],eax
	ret
;---------------------------------------------------------------------
convert_icons:
	xor	eax,eax
	mov	[return_code],eax
;	mov	eax,image_file
	push	image_file
	call	[cnv_png_import.Start]
 
	mov	ecx,[image_file]
	mcall	68,13,
	test	eax,eax
	jz	memory_free_error
 
	cmp	[return_code],dword 0
	je	@f
	mov	[N_error],6
	jmp	button.exit
@@:
 
	mov	ebx,[raw_pointer]
	mov	eax,[ebx+4]
; set of icon size x
	mov	[file_browser_data_1.icon_size_x],ax
; mov eax,[ebx+8]
; set of icon size y
	mov	[file_browser_data_1.icon_size_y],ax
	inc	ax
	mov	[file_browser_data_1.line_size_y],ax
	mov	eax,[ebx+12]
; set of RAW resolution to pixel
	mov	[file_browser_data_1.resolution_raw],eax
 
	mov	eax,[ebx+20]
	add	eax,ebx
; set RAW palette,use else resolution 8bit or less
	mov	[file_browser_data_1.palette_raw],eax
 
	mov	eax,[ebx+28]
	add	eax,ebx
; set RAW area for icon
	mov	[file_browser_data_1.icon_raw_area],eax
	ret
;---------------------------------------------------------------------
calc_ini:
	mov	eax,[image_file]
	mov	[file_browser_data_1.ini_file_start],eax
	add	eax,[img_size]
	mov	[file_browser_data_1.ini_file_end],eax
	ret
;---------------------------------------------------------------------
load_ini:
	mov	ebx,ini_file_name
	mov	esi,path
	mov	edi,file_name
	call	copy_file_path
 
	mov	[fileinfo.subfunction],dword 5
	mov	[fileinfo.size],dword 0
	mov	[fileinfo.return],dword file_info
	mcall	70,fileinfo
	test	eax,eax
	jnz	.error
 
	mov	[fileinfo.subfunction],dword 0
 
	mov	ecx,[file_info+32]
	mov	[fileinfo.size],ecx
	mov	[img_size],ecx
	
	mcall	68,12
	test	eax,eax
	jz	memory_get_error
 
	mov	[fileinfo.return],eax
	mov	[image_file],eax
 
	mcall	70,fileinfo
	test	eax,eax
	jnz	.error
	ret
.error:
	mov	[N_error],1
	mov	[error_type],eax
	jmp	button.exit
;---------------------------------------------------------------------
load_icons:
	mov	ebx,icons_file_name_2
	mov	esi,path
	mov	edi,file_name
	call	copy_file_path
 
	mov	[fileinfo.subfunction],dword 5
	mov	[fileinfo.size],dword 0
	mov	[fileinfo.return],dword file_info
	mcall	70,fileinfo
	test	eax,eax
	jz	@f
	
	mov	ebx,icons_file_name
	mov	esi,path
	mov	edi,file_name
	call	copy_file_path
 
	mov	[fileinfo.subfunction],dword 5
	mov	[fileinfo.size],dword 0
	mov	[fileinfo.return],dword file_info
	mcall	70,fileinfo
	test	eax,eax
	jnz	.error
@@:
	mov	[fileinfo.subfunction],dword 0
 
	mov	ecx,[file_info+32]
	mov	[fileinfo.size],ecx
	mov	[img_size],ecx
	
	mcall	68,12
	test	eax,eax
	jz	memory_get_error
 
	mov	[fileinfo.return],eax
	mov	[image_file],eax
 
	mcall	70,fileinfo
	test	eax,eax
	jnz	.error
	ret
.error:
	mov	[N_error],2
	mov	[error_type],eax
	jmp	button.exit
;---------------------------------------------------------------------
sort_directory:
	mov	eax,[file_browser_data_1.folder_data]
	mov	ebx,[eax+4]	; number of files
	add	eax,32
	cmp	[eax+40],word '..'
	jne	@f
	cmp	[eax+40+2],byte 0
	jne	@f
	dec	ebx
	add	eax,304
@@:
	push	dword [sort_type]	; sort mode
	push	ebx	; number of files
	push	eax	; data files
	call	[sort_dir]
	ret
;--------------------------------------------------------------------
load_directory:
	xor	eax,eax
	mov	[N_error],eax
	cmp	[file_browser_data_1.folder_data],eax
	je	@f
	mcall	68,13,[file_browser_data_1.folder_data]
	test	eax,eax
	jz	memory_free_error
 
@@:
	mov	[dirinfo.size],dword 0
	mov	[dirinfo.return],dir_header
	mcall	70,dirinfo
	test	eax,eax
	jz	@f
;	mov	esi,previous_dir_path
;	mov	edi,dir_path
;	call	copy_dir_name.1
;	mcall	70,dirinfo
;	test	eax,eax
;	jz	@f	
	xor	ebx,ebx
	mov	[file_browser_data_1.folder_data],ebx
	jmp	.error
@@:
	
	mov	ecx,[dir_header.totl_blocks]
	mov	[dirinfo.size],ecx
	imul	ecx,304
	add	ecx,32
	mcall	68,12
	test	eax,eax
	jz	memory_get_error
 
	mov	[dirinfo.return],eax
	mov	[file_browser_data_1.folder_data],eax
 
	mcall	70,dirinfo
	test	eax,eax
	jnz	.error
	
; test for empty directory
	mov	eax,[dirinfo.return]
	mov	eax,[eax+4]
	test	eax,eax
	jz	@f
	
	call	delete_point_dir
;	call	files_name_normalize
	call	check_filter
	call	prepare_extension_and_mark
	call	clear_data_fb_and_sb
@@:
	ret
 
.error:
	mov	[N_error],5
	mov	[error_type],eax
	ret
;---------------------------------------------------------------------
clear_data_fb_and_sb:
	xor	eax,eax
	mov	[file_browser_data_1.start_draw_cursor_line],ax
	mov	[file_browser_data_1.start_draw_line],eax
	mov	[scroll_bar_data_vertical.position],eax	
	ret
;---------------------------------------------------------------------
check_filter:
	cmp [open_dialog_type],2	; Select dir
	je	.1
	xor	eax,eax
	mov	al,[filter_flag]
	test	eax,eax
	jz	@f
 
	mov	eax,[communication_area]
	test	eax,eax
	jz	@f
	mov	eax,[eax+4096]
	test	eax,eax
	jz	@f
.1:
	call	delete_unsupported_BDFE
@@:
	ret
;---------------------------------------------------------------------
delete_unsupported_BDFE:
	mov	ebx,[file_browser_data_1.folder_data]
	add	ebx,4
	xor	ecx,ecx
	dec	ecx
	
	mov	eax,[file_browser_data_1.folder_data]
	add	eax,32+40
	sub	eax,304
.start:
	inc	ecx
	add	eax,304
.1:
	cmp	[ebx],ecx
	je	.end
	cmp	[eax],byte '.'
	jne	@f
	cmp	[eax+1],byte 0
	je	.delete
@@:
	test	[eax-40],byte 0x10
	jnz	.start
	
	cmp	[open_dialog_type],2	; Select dir
	je	.delete
	
	push	eax ebx
	mov	esi,eax
	call	search_expansion
	test	eax,eax
	pop	ebx eax
	jnz	.delete
	
	push	eax ebx ecx esi
	mov	edi,[communication_area]
	add	edi,4100
	call	compare_expansion
	test	eax,eax
	pop	esi ecx ebx eax
	jz	.start
	
;-------------------------------------------
.delete:
	dec	dword [ebx]
	mov	esi,[ebx]
	sub	esi,ecx
 
	push	ecx
	mov	ecx,esi
	imul	ecx,304/4
	mov	edi,eax
	sub	edi,40
	mov	esi,edi
	add	esi,304
	cld
	rep	movsd
	pop	ecx
	
	jmp	.1
.end:
	ret
;---------------------------------------------------------------------
search_expansion:
	mov	edi,esi
	xor	eax,eax
@@:
	cld
	lodsb
	test	eax,eax
	jnz	@b
	mov	ebx,esi
	dec	esi
@@:
	std
	lodsb
	cmp	esi,edi
	jb	.end_err
	cmp	al,'.'
	jne	@b
	
	add	esi,2
	sub	ebx,esi
	mov	[expansion_length],ebx
	cld
	xor	eax,eax
	ret
	
.end_err:
	cld
	xor	eax,eax
	inc	eax
	ret
;---------------------------------------------------------------------
compare_expansion:
	mov	ebx,[edi]
	add	ebx,edi
	add	edi,3
.start:
	cmp	ebx,edi
	jb	.end_err
	mov	ecx,[expansion_length]
	inc	edi
	
	push	esi edi
@@:
	cld
	lodsb
	xchg	esi,edi
	shl	eax,8
	lodsb
	xchg	esi,edi
	call	char_todown
	xchg	al,ah
	call	char_todown
	cmp	al,ah
	jne	@f
	dec	ecx
	jnz	@b
	jmp	.end
@@:
	pop	edi esi
	jmp	.start
.end:
	pop	edi esi
	xor	eax,eax
	ret
	
.end_err:
	xor	eax,eax
	inc	eax
	ret
;---------------------------------------------------------------------
prepare_extension_and_mark:
	mov	esi,[dirinfo.return]
	mov	ebp,[esi+4]
	test	ebp,ebp
	jz	.end
 
	add	esi,32+40
.start:
	push	esi
	call	search_extension_start
	mov	eax,esi
	pop	esi
	sub	eax,esi
	sub	ebx,esi
	shl	eax,16
	mov	ax,bx
	mov	[esi+300-40],eax
	mov	[esi+299-40],byte 0
	add	esi,304
	dec	ebp
	jnz	.start
.end:
	ret
;---------------------------------------------------------------------
search_extension_start:
	mov	edx,esi
	xor	eax,eax
	cld
@@:
	lodsb
	test	eax,eax
	jnz	@b
	dec	esi
	dec	edx
	push	esi
	std
@@:
	lodsb
	cmp	esi,edx
	je	.end
	cmp	al,'.'
	jnz	@b
	add	esi,2
	cld
	pop	ebx
	ret
.end:
	cld
	pop	esi
	mov	ebx,esi
	ret
;---------------------------------------------------------------------
delete_point_dir:
	mov	eax,[dirinfo.return]
	cmp	[eax+32+40],byte '.'
	jne	@f
	cmp	[eax+32+40+1],byte 0
	jne	@f
	mov	edi,eax
	add	edi,32
	mov	esi,edi
	add	esi,304
	mov	ecx,[eax+4]
	dec	ecx
	mov	[eax+4],ecx
	imul	ecx,304
	shr	ecx,2
	cld
	rep	movsd
@@:
	ret
;---------------------------------------------------------------------
;files_name_normalize:
;	mov	esi,[dirinfo.return]
;	mov	ebp,[esi+4]
;	add	esi,32+40
;.start:
;	push	esi
;	mov	al,[esi]
;	call	char_toupper
;	mov	[esi],al
;@@:
;	inc	esi
;	mov	al,[esi]
;	test	al,al
;	jz	@f
;	call	char_todown
;	mov	[esi],al
;	jmp	@b
;@@:
;	pop	esi
;	add	esi,304
;	dec	ebp
;	jnz	.start
;	ret
;---------------------------------------------------------------------
char_toupper:
; convert character to uppercase,using cp866 encoding
; in: al=symbol
; out: al=converted symbol
	cmp	al,'a'
	jb	.ret
	cmp	al,'z'
	jbe	.az
	cmp	al,' '
	jb	.ret
	cmp	al,'à'
	jb	.rus1
	cmp	al,'ï'
	ja	.ret
; 0xE0-0xEF -> 0x90-0x9F
	sub	al,'à'-''
.ret:
	ret
.rus1:
; 0xA0-0xAF -> 0x80-0x8F
.az:
	and	al,not	0x20
	ret
;---------------------------------------------------------------------
char_todown:
; convert character to uppercase,using cp866 encoding
; in: al=symbol
; out: al=converted symbol
	cmp	al,'A'
	jb	.ret
	cmp	al,'Z'
	jbe	.az
	cmp	al,''
	jb	.ret
	cmp	al,''
	jb	.rus1
	cmp	al,''
	ja	.ret
; 0x90-0x9F -> 0xE0-0xEF
	add	al,'à'-''
.ret:
	ret
.rus1:
; 0x80-0x8F -> 0xA0-0xAF
.az:
	add	al,0x20
	ret
;---------------------------------------------------------------------
copy_file_path:
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	mov	esi,edi
	dec	esi
	std
@@:
	lodsb
	cmp	al,'/'
	jnz	@b
	mov	edi,esi
	add	edi,2
	mov	esi,ebx
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	ret
;---------------------------------------------------------------------
copy_dir_path:
	mov	ecx,esi
	inc	ecx
	inc	ecx
	xor	eax,eax
	cld
@@:
	lodsb
	test	eax,eax
	jnz	@b
 
	cmp	ecx,esi
	jb	@f
	dec	esi
@@:
	mov	[esi-1],byte '/'
	mov	edi,esi
	mov	esi,ebx
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	ret
;---------------------------------------------------------------------
copy_exit_dir:
	mov	ebx,esi
	inc	ebx
	xor	eax,eax
	cld
@@:
	lodsb
	test	eax,eax
	jnz	@b
	sub	esi,2
	std
@@:
	lodsb
	cmp	al,'/'
	jnz	@b
	xor	eax,eax
	cmp	ebx,esi
	jb	@f
	inc	esi
@@:
	mov	[esi+1],al
	cld
	ret
;---------------------------------------------------------------------
copy_dir_name:
	push	esi edi
	mov	esi,edi
	mov	edi,previous_dir_path
	call	.1
	pop	edi esi
.1:
	xor	eax,eax
	cmp	[esi],al
	je	.exit
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
.exit:
	ret
;---------------------------------------------------------------------
;---------------------------------------------------------------------
 
;plugins_directory	db 'plugins/',0
plugins_directory	db 0
 
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
system_dir_CnvPNG	db '/sys/lib/cnv_png.obj',0
system_dir_Sort		db '/sys/lib/sort.obj',0
system_dir_UNPACK	db '/sys/lib/archiver.obj',0
 
ihead_f_i:
ihead_f_l	db 'System	error',0
 
er_message_found_lib	db 'box_lib.obj - Not found!',0
er_message_import	db 'box_lib.obj - Wrong import!',0
 
er_message_found_lib2	db 'cnv_png.obj - Not found!',0
er_message_import2	db 'cnv_png.obj - Wrong import!',0
 
err_message_found_lib3	db 'sort.obj - Not found!',0
err_message_import3	db 'sort.obj - Wrong import!',0
 
err_message_found_lib4	db 'archiver.obj - Not found!',0
err_message_import4	db 'archiver.obj - Wrong import!',0
 
align	4
l_libs_start:
library01	l_libs	system_dir_Boxlib+9,path,file_name,system_dir_Boxlib,\
er_message_found_lib,ihead_f_l,Box_lib_import,er_message_import,ihead_f_i,plugins_directory
 
library02	l_libs	system_dir_CnvPNG+9,path,file_name,system_dir_CnvPNG,\
er_message_found_lib2,ihead_f_l,cnv_png_import,er_message_import2,ihead_f_i,plugins_directory
 
library03	l_libs	system_dir_Sort+9,path,file_name,system_dir_Sort,\
err_message_found_lib3,ihead_f_l,Sort_import,err_message_import3,ihead_f_i,plugins_directory
 
library04	l_libs	system_dir_UNPACK+9,path,file_name,system_dir_UNPACK,\
err_message_found_lib4,ihead_f_l,UNPACK_import,err_message_import4,ihead_f_i,plugins_directory
 
end_l_libs:
 
;---------------------------------------------------------------------
align	4
UNPACK_import:
;unpack_Version			dd aUnpack_Version
;unpack_PluginLoad		dd aUnpack_PluginLoad	
;unpack_OpenFilePlugin		dd aUnpack_OpenFilePlugin
;unpack_ClosePlugin		dd aUnpack_ClosePlugin
;unpack_ReadFolder		dd aUnpack_ReadFolder	
;unpack_SetFolder		dd aUnpack_SetFolder
;unpack_GetFiles		dd aUnpack_GetFiles
;unpack_GetOpenPluginInfo	dd aUnpack_GetOpenPluginInfo
;unpack_Getattr			dd aUnpack_Getattr
;unpack_Open			dd aUnpack_Open
;unpack_Read			dd aUnpack_Read
;unpack_Setpos			dd aUnpack_Setpos
;unpack_Close			dd aUnpack_Close
;unpack_DeflateUnpack		dd aUnpack_DeflateUnpack
unpack_DeflateUnpack2		dd aUnpack_DeflateUnpack2
	dd 0
	dd 0
 
;aUnpack_Version		db 'version',0
;aUnpack_PluginLoad		db 'plugin_load',0
;aUnpack_OpenFilePlugin		db 'OpenFilePlugin',0
;aUnpack_ClosePlugin		db 'ClosePlugin',0
;aUnpack_ReadFolder		db 'ReadFolder',0
;aUnpack_SetFolder		db 'SetFolder',0
;aUnpack_GetFiles		db 'GetFiles',0
;aUnpack_GetOpenPluginInfo	db 'GetOpenPluginInfo',0
;aUnpack_Getattr		db 'getattr',0
;aUnpack_Open			db 'open',0
;aUnpack_Read			db 'read',0
;aUnpack_Setpos			db 'setpos',0
;aUnpack_Close			db 'close',0
;aUnpack_DeflateUnpack		db 'deflate_unpack',0
aUnpack_DeflateUnpack2		db 'deflate_unpack2',0
 
;---------------------------------------------------------------------
;---------------------------------------------------------------------
align	4
Sort_import:
sort_init	dd aSort_init
sort_version	dd aSort_version
sort_dir	dd aSort_SortDir
sort_strcmpi	dd aSort_strcmpi
	dd 0
	dd 0
 
aSort_init	db 'START',0
aSort_version	db 'version',0
aSort_SortDir	db 'SortDir',0
aSort_strcmpi	db 'strcmpi',0
 
;---------------------------------------------------------------------
align	4
cnv_png_import:
.Start		dd aCP_Start
.Version	dd aCP_Version
.Check		dd aCP_Check
.Assoc		dd aCP_Assoc
	dd 0
	dd 0
aCP_Start	db 'START',0
aCP_Version	db 'version',0
aCP_Check	db 'Check_Header',0
aCP_Assoc	db 'Associations',0
;---------------------------------------------------------------------
align	4
Box_lib_import:	
;init_lib	dd a_init
;version_lib	dd a_version
 
 
edit_box_draw		dd aEdit_box_draw
edit_box_key		dd aEdit_box_key
edit_box_mouse		dd aEdit_box_mouse
;version_ed		dd aVersion_ed
 
;check_box_draw	dd aCheck_box_draw
;check_box_mouse	dd aCheck_box_mouse
;version_ch		dd aVersion_ch
 
;option_box_draw	dd aOption_box_draw
;option_box_mouse	dd aOption_box_mouse
;version_op		dd aVersion_op
 
scrollbar_ver_draw	dd aScrollbar_ver_draw
scrollbar_ver_mouse	dd aScrollbar_ver_mouse
;scrollbar_hor_draw	dd aScrollbar_hor_draw
;scrollbar_hor_mouse	dd aScrollbar_hor_mouse
;version_scrollbar	dd aVersion_scrollbar
 
;dinamic_button_draw	dd aDbutton_draw
;dinamic_button_mouse	dd aDbutton_mouse
;version_dbutton	dd aVersion_dbutton
 
menu_bar_draw		dd aMenu_bar_draw
menu_bar_mouse		dd aMenu_bar_mouse
menu_bar_activate	dd aMenu_bar_activate
;version_menu_bar	dd aVersion_menu_bar
 
FileBrowser_draw	dd aFileBrowser_draw
FileBrowser_mouse	dd aFileBrowser_mouse
FileBrowser_key		dd aFileBrowser_key
;Version_FileBrowser	dd aVersion_FileBrowser
 
PathShow_prepare	dd sz_PathShow_prepare
PathShow_draw		dd sz_PathShow_draw
;Version_path_show	dd szVersion_path_show
	dd 0
	dd 0
 
;a_init			db 'lib_init',0
;a_version		db 'version',0
 
aEdit_box_draw		db 'edit_box',0
aEdit_box_key		db 'edit_box_key',0
aEdit_box_mouse		db 'edit_box_mouse',0
;aVersion_ed		db 'version_ed',0
 
;aCheck_box_draw	db 'check_box_draw',0
;aCheck_box_mouse	db 'check_box_mouse',0
;aVersion_ch		db 'version_ch',0
 
;aOption_box_draw	db 'option_box_draw',0
;aOption_box_mouse	db 'option_box_mouse',0
;aVersion_op		db 'version_op',0
 
aScrollbar_ver_draw	db 'scrollbar_v_draw',0
aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
;aScrollbar_hor_draw	db 'scrollbar_h_draw',0
;aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
;aVersion_scrollbar	db 'version_scrollbar',0
 
;aDbutton_draw		db 'dbutton_draw',0
;aDbutton_mouse		db 'dbutton_mouse',0
;aVersion_dbutton	db 'version_dbutton',0
 
aMenu_bar_draw		db 'menu_bar_draw',0
aMenu_bar_mouse		db 'menu_bar_mouse',0
aMenu_bar_activate	db 'menu_bar_activate',0
;aVersion_menu_bar	db 'version_menu_bar',0
 
aFileBrowser_draw	db 'FileBrowser_draw',0
aFileBrowser_mouse	db 'FileBrowser_mouse',0
aFileBrowser_key	db 'FileBrowser_key',0
;aVersion_FileBrowser	db 'version_FileBrowser',0
 
sz_PathShow_prepare	db 'PathShow_prepare',0
sz_PathShow_draw	db 'PathShow_draw',0
;szVersion_path_show	db 'version_PathShow',0
;---------------------------------------------------------------------
;---------------------------------------------------------------------
align	4
window_high			dd 0
window_width			dd 0
window_status			dd 0
 
active_process			dd 0
PID				dd 0
sort_type			dd 2
root_folder_area		dd 0
root_folder_block		dd 0
root1_folder_area		dd 0
root1_folder_block		dd 0
temp_counter_1			dd 0
retrieved_devices_table_counter	dd 0
communication_area		dd 0
open_dialog_type		dd 0
 
open_dialog_title_pointer:
	dd title_0
	dd title_1
	dd title_2
	dd 0
	
message_open_dialog_button:
	dd message_0
	dd message_1
	dd message_2
	dd 0
;---------------------------------------------------------------------
expansion_length	dd 0
;---------------------------------------------------------------------
N_error			dd 0
error_type		dd 0
error_path		dd 0
error_window_x:		dd 100 shl 16+250
error_window_y:		dd 100 shl 16+120
;---------------------------------------------------------------------
mouse_scroll_data:
.vertical	dw 0
.horizontal	dw 0
 
mouse_position:
.y	dw 0
.x	dw 0
;---------------------------------------------------------------------
; not	change	this	section!!!
; start	section
;---------------------------------------------------------------------
align	4
image_file	dd 0
raw_pointer	dd 0
return_code	dd 0
img_size	dd 0
deflate_unpack	dd 0
raw_pointer_2	dd 0	;+20
;---------------------------------------------------------------------
; end	section
;---------------------------------------------------------------------
align	4
fileinfo:
.subfunction	dd 5
.Offset		dd 0
.Offset_1	dd 0
.size		dd 0
.return		dd file_info
		db 0
.name:		dd file_name
;---------------------------------------------------------------------
align	4
dirinfo:
.subfunction	dd 1
.start		dd 0
.flags		dd 0
.size		dd 0
.return		dd 0
		db 0
.name:		dd dir_path
;---------------------------------------------------------------------
align	4
dir_header:
.version	dd 0	;+0
.curn_blocks	dd 0	;+4
.totl_blocks	dd 0	;+8
.other	rb	20
;---------------------------------------------------------------------
load_ini_error_type:
	db 'Error loading INI file',0
 
load_icons_error_type:
	db 'Error loading of icons file',0
 
memory_free_error_type:
	db 'Error of free memory',0
 
memory_get_error_type:
	db 'Memory allocation error',0
 
load_directory_error_type:
	db 'Error loading directory',0
 
convert_icons_error_type:
	db 'Unsupported or corrupt data for icons file',0
;---------------------------------------------------------------------
error_help_text:
	db 'For continue press  key or ',0
;---------------------------------------------------------------------
align	4
error_fs_text_pointers:
	dd error_fs_text_0
	dd error_fs_text_1
	dd error_fs_text_2
	dd error_fs_text_3
	dd error_fs_text_4
	dd error_fs_text_5
	dd error_fs_text_6
	dd error_fs_text_7
	dd error_fs_text_8
	dd error_fs_text_9
	dd error_fs_text_10
	dd error_fs_text_11
 
error_fs_text_0:	db '0 - Success full',0
error_fs_text_1:	db '1 - Base and/or partition of a hard disk is not defined',0
error_fs_text_2:	db '2 - Function is not supported for the given file system',0
error_fs_text_3:	db '3 - Unknown file system',0
error_fs_text_4:	db '4 - Reserved, is never returned in the current implementation',0
error_fs_text_5:	db '5 - File not found',0
error_fs_text_6:	db '6 - End of file, EOF',0
error_fs_text_7:	db '7 - Pointer lies outside of application memory',0
error_fs_text_8:	db '8 - Disk is full',0
error_fs_text_9:	db '9 - FAT table is destroyed',0
error_fs_text_10:	db '10 - Access denied',0
error_fs_text_11:	db '11 - Device error',0
;---------------------------------------------------------------------
 
extended_key	db 0
 
shift_flag	db 0
ctrl_flag	db 0
alt_flag	db 0
 
error_window	db 0
 
Tab_key		db 0
Tab_key_block	db 0
 
filter_flag	db 1
 
focus_pointer	db 0
;---------------------------------------------------------------------
start_pach:
	db '/rd/1',0
 
root_pach:
	db '/',0
 
icons_file_name_2	db 'buttons/'
icons_file_name		db 'z_icons.png',0
ini_file_name		db 'icons.ini',0
;---------------------------------------------------------------------
 
message:
	db 'Press any key...',0
 
message_cancel_button:
	db 'Cancel',0
 
message_ReloadDir_button:
	db 'Refresh',0
 
message_ExitDir_button:
	db '^',0
 
message_file_name:
	db 'File name:',0
	
message_0:
	db ' Open ',0
message_1:
	db ' Save ',0
message_2:
	db 'Select',0
	
title_0:
	db 'Open Dialog',0
title_1:
	db 'Save Dialog',0
title_2:
	db 'Select Dir',0
;---------------------------------------------------------------------
align 4
menu_data_1:
.type:		dd 1   ;+0
.x:
.size_x 	dw 80  ;+4
.start_x	dw 10	;+6
.y:
.size_y 	dw 15	;+8
.start_y	dw 26  ;+10
.text_pointer:	dd menu_text_area_1  ;0 ;+12
.pos_pointer:	dd menu_text_area_1_1 ;0 ;+16
.text_end	dd menu_text_area_1_1 ;0 ;+20
.ret_key	dd 0  ;+24
.mouse_keys	dd 0  ;+28
.x1:
.size_x1	dw 80  ;+32
.start_x1	dw 10	;+34
.y1:
.size_y1	dw 100	 ;+36
.start_y1	dw 41  ;+38
.bckg_col	dd 0xffffff  ;0xe5e5e5 ;+40
.frnt_col	dd 0xff ;+44
.menu_col	dd 0xeef0ff ;0xffffff ;+48
.select 	dd 0 ;+52
.out_select	dd 0 ;+56
.buf_adress	dd 0 ;+60
.procinfo	dd procinfo ;+64
.click		dd 0 ;+68
.cursor 	dd 0 ;+72
.cursor_old	dd 0 ;+76
.interval	dd 16 ;+80
.cursor_max	dd 0 ;+84
.extended_key	dd 0 ;+88
.menu_sel_col	dd 0x00cc00 ;+92
.bckg_text_col	dd 0 ; +96
.frnt_text_col	dd 0xffffff ;+100
.mouse_keys_old dd 0 ;+104
.font_height	dd 8 ;+108
.cursor_out	dd 0 ;+112
.get_mouse_flag dd 0 ;+116
;---------------------------------------------------------------------
menu_text_area_1:
db 'Select Disk',0
;---------------------------------------------------------------------
align 4
menu_data_2:
.type:		dd 0   ;+0
.x:
.size_x 	dw 30  ;+4
.start_x	dw 95	;+6
.y:
.size_y 	dw 15	;+8
.start_y	dw 26  ;+10
.text_pointer:	dd menu_text_area_2  ;0 ;+12
.pos_pointer:	dd menu_text_area_2.1 ;0 ;+16
.text_end	dd menu_text_area_2.end ;0 ;+20
.ret_key	dd 0  ;+24
.mouse_keys	dd 0  ;+28
.x1:
.size_x1	dw 30  ;+32
.start_x1	dw 95	;+34
.y1:
.size_y1	dw 100	 ;+36
.start_y1	dw 41  ;+38
.bckg_col	dd 0xffffff ; 0xe5e5e5 ;+40
.frnt_col	dd 0xff ;+44
.menu_col	dd 0xeef0ff  ;0xffffff ;+48
.select 	dd 0 ;+52
.out_select	dd 0 ;+56
.buf_adress	dd 0 ;+60
.procinfo	dd procinfo ;+64
.click		dd 0 ;+68
.cursor 	dd 0 ;+72
.cursor_old	dd 0 ;+76
.interval	dd 16 ;+80
.cursor_max	dd 0 ;+84
.extended_key	dd 0 ;+88
.menu_sel_col	dd 0x00cc00 ;+92
.bckg_text_col	dd 0 ; +96
.frnt_text_col	dd 0xffffff ;+100
.mouse_keys_old dd 0 ;+104
.font_height	dd 8 ;+108
.cursor_out	dd 0 ;+112
.get_mouse_flag dd 0 ;+116
;---------------------------------------------------------------------
menu_text_area_2:
db 'Sort',0
.1:
db 'Name',0
db 'Type',0
db 'Date',0
db 'Size',0
.end:
db 0
;---------------------------------------------------------------------
align 4
menu_data_3:
.type:		dd 0   ;+0
.x:
.size_x 	dw 45  ;+4
.start_x	dw 130	 ;+6
.y:
.size_y 	dw 15	;+8
.start_y	dw 26  ;+10
.text_pointer:	dd menu_text_area_3  ;0 ;+12
.pos_pointer:	dd menu_text_area_3.1 ;0 ;+16
.text_end	dd menu_text_area_3.end ;0 ;+20
.ret_key	dd 0  ;+24
.mouse_keys	dd 0  ;+28
.x1:
.size_x1	dw 95  ;+32
.start_x1	dw 130	 ;+34
.y1:
.size_y1	dw 100	 ;+36
.start_y1	dw 41  ;+38
.bckg_col	dd 0xffffff ; 0xe5e5e5 ;+40
.frnt_col	dd 0xff ;+44
.menu_col	dd 0xeef0ff  ;0xffffff ;+48
.select 	dd 0 ;+52
.out_select	dd 0 ;+56
.buf_adress	dd 0 ;+60
.procinfo	dd procinfo ;+64
.click		dd 0 ;+68
.cursor 	dd 0 ;+72
.cursor_old	dd 0 ;+76
.interval	dd 16 ;+80
.cursor_max	dd 0 ;+84
.extended_key	dd 0 ;+88
.menu_sel_col	dd 0x00cc00 ;+92
.bckg_text_col	dd 0 ; +96
.frnt_text_col	dd 0xffffff ;+100
.mouse_keys_old dd 0 ;+104
.font_height	dd 8 ;+108
.cursor_out	dd 0 ;+112
.get_mouse_flag dd 0 ;+116
;---------------------------------------------------------------------
menu_text_area_3:
db 'Filter',0
.1:
db '*.* - show all',0
db 'Only supported',0
.end:
db 0
;---------------------------------------------------------------------
 
align 4
scroll_bar_data_vertical:
.x:
.size_x 	dw 15 ;+0
.start_x	dw 500 ;+2
.y:
.size_y 	dw 300 ;+4
.start_y	dw 45 ;+6
.btn_high	dd 15 ;+8
.type		dd 2  ;+12
.max_area	dd 10  ;+16
.cur_area	dd 2  ;+20
.position	dd 0  ;+24
.bckg_col	dd 0xeeeeee ;+28
.frnt_col	dd 0xbbddff ;+32 ;0x8aeaa0
.line_col	dd 0  ;+36
.redraw 	dd 0  ;+40
.delta		dw 0  ;+44
.delta2 	dw 0  ;+46
.run_x:
.r_size_x	dw 0  ;+48
.r_start_x	dw 0  ;+50
.run_y:
.r_size_y	dw 0 ;+52
.r_start_y	dw 0 ;+54
.m_pos		dd 0 ;+56
.m_pos_2	dd 0 ;+60
.m_keys 	dd 0 ;+64
.run_size	dd 0 ;+68
.position2	dd 0 ;+72
.work_size	dd 0 ;+76
.all_redraw	dd 0 ;+80
.ar_offset	dd 1 ;+84
;---------------------------------------------------------------------
align 4
file_browser_data_1:
.type				dd 0 ;+0
.x:
.size_x 			dw 400 ;+4
.start_x			dw 10 ;+6
.y:
.size_y 			dw 550 ;+8
.start_y			dw 45 ;+10
.icon_size_y			dw 16 ; +12
.icon_size_x			dw 16 ; +14
.line_size_x			dw 0 ; +16
.line_size_y			dw 18 ; +18
.type_size_x			dw 0 ; +20
.size_size_x			dw 0 ; +22
.date_size_x			dw 0 ; +24
.attributes_size_x		dw 0 ; +26
.icon_assoc_area		dd 0 ; +28
.icon_raw_area			dd 0 ; +32
.resolution_raw 		dd 0 ; +36
.palette_raw			dd 0 ; +40
.directory_path_area		dd 0 ; +44
.file_name_area 		dd 0 ; +48
.select_flag			dd 0 ; +52
.background_color		dd 0xffffff ; +56
.select_color			dd 0xbbddff ; +60
.seclect_text_color		dd 0 ; +64
.text_color			dd 0 ; +68
.reduct_text_color		dd 0xff0000 ; +72
.marked_text_color		dd 0 ; +76
.max_panel_line 		dd 0 ; +80
.select_panel_counter		dd 1 ; +84
.folder_block			dd 0 ; +88
.start_draw_line		dd 0 ; +92
.start_draw_cursor_line 	dw 0 ; +96 ; pixels
.folder_data			dd 0 ; +98
.temp_counter			dd 0 ; +102
.file_name_length		dd 0 ; +106
.marked_file			dd 0 ; +110
.extension_size 		dd 0 ; +114
.extension_start		dd 0 ; +118
.type_table			dd features_table ; +122
.ini_file_start 		dd 0 ; +126
.ini_file_end			dd 0 ; +130
.draw_scroll_bar		dd 0 ; +134
.font_size_y			dw 9 ; +138
.font_size_x			dw 6 ; +140
.mouse_keys			dd 0 ; +142
.mouse_keys_old 		dd 0 ; +146
.mouse_pos			dd 0 ; +150
.mouse_keys_delta		dd 0 ; +154
.mouse_key_delay		dd 50 ; +158
.mouse_keys_tick		dd 0 ; +162
.start_draw_cursor_line_2	dw 0 ;+166
.all_redraw			dd 0 ;+168
.selected_BDVK_adress		dd 0 ;+172
.key_action			dw 0 ;+176
.key_action_num			dw 0 ;+178
.name_temp_area 		dd name_temp_area ;+180
.max_name_temp_size		dd 0 ;+184
.display_name_max_length	dd 0 ;+188
.draw_panel_selection_flag	dd 0 ;+192
.mouse_pos_old			dd 0 ;+196
.marked_counter 		dd 0 ;+200
.keymap_pointer 		dd keymap_area ;+204
;---------------------------------------------------------------------
PathShow_data_1:
.type			dd 0	;+0
.start_y		dw 11	;+4
.start_x		dw 10	;+6
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
.area_size_x		dw 200	;+10
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
.background_flag	dd 0	;+16
.font_color		dd 0x0	;+20
.background_color	dd 0x0	;+24
.text_pointer		dd dir_path	;+28
.work_area_pointer	dd text_work_area	;+32
.temp_text_length	dd 0	;+36
;---------------------------------------------------------------------
; for EDITBOX
align	4
name_editboxes:
edit1	edit_box 200,10,7,0xffffff,0xbbddff,0,0,0,4095,user_selected_name,mouse_dd,,0
name_editboxes_end:
 
;mouse_flag:	dd 0x0
 
mouse_dd rd	1
;---------------------------------------------------------------------
window_x:
.x_size		dw 420
.x_start	dw 10
window_y:
.y_size		dw 320
.y_start	dw 10
;---------------------------------------------------------------------
features_table:
.type_table:
	db ' '
;---------------------------------------------------------------------
.size_table:
	db '1023b '
;---------------------------------------------------------------------
.date_table:
	db '00.00.00 00:00 '
;---------------------------------------------------------------------
.year_table:
	db '    '
;---------------------------------------------------------------------
example_name_temp:	
	db 'temp1.asm',0
;---------------------------------------------------------------------
IM_END:
;---------------------------------------------------------------------
do_not_draw_open_button_label	rb 1
;---------------------------------------------------------------------
;include_debug_strings
;---------------------------------------------------------------------
align 4
app_colours:
 
w_frame			rd 1
w_grab			rd 1
w_grab_button		rd 1
w_grab_button_text	rd 1
w_grab_text		rd 1
w_work			rd 1
w_work_button		rd 1
w_work_button_text	rd 1
w_work_text		rd 1
w_work_graph		rd 1
;---------------------------------------------------------------------
open_button_coordinates	rd 1
;---------------------------------------------------------------------
error_handler_store_input_mode rd 1
;---------------------------------------------------------------------
menu_text_area_1_1:
rb 256
;---------------------------------------------------------------------
	rb 1024
stacktop:
;---------------------------------------------------------------------
; window error message
	rb 1024
thread_stack:
;---------------------------------------------------------------------
retrieved_devices_table:
	rb 200
;---------------------------------------------------------------------
keymap_area:
	rb 128
;---------------------------------------------------------------------
name_temp_area:
	rb 256
;---------------------------------------------------------------------
user_selected_name:
	rb 256
;---------------------------------------------------------------------
param:
	rb 256
;---------------------------------------------------------------------
path:
	rb 4096
;---------------------------------------------------------------------
file_name:
	rb 4096
;---------------------------------------------------------------------
previous_dir_path:
	rb 4096
;---------------------------------------------------------------------
dir_path:
	rb 4096
;---------------------------------------------------------------------
dir_path_temp:
	rb 4096
;---------------------------------------------------------------------
text_work_area:
	rb 1024
;---------------------------------------------------------------------
procinfo:
process_info:
	rb 1024
;----------------------
file_info:
	rb 40
I_END:

Rev 4061	Rev 4159
1	;*****************************************************************************	1	;*****************************************************************************
2	; Open Dialog - for Kolibri OS	2	; Open Dialog - for Kolibri OS
3	; Copyright (c) 2009-2013, Marat Zakiyanov aka Mario79, aka Mario	3	; Copyright (c) 2009-2013, Marat Zakiyanov aka Mario79, aka Mario
4	; All rights reserved.	4	; All rights reserved.
5	;	5	;
6	; Redistribution and use in source and binary forms, with or without	6	; Redistribution and use in source and binary forms, with or without
7	; modification, are permitted provided that the following conditions are met:	7	; modification, are permitted provided that the following conditions are met:
8	; * Redistributions of source code must retain the above copyright	8	; * Redistributions of source code must retain the above copyright
9	; notice, this list of conditions and the following disclaimer.	9	; notice, this list of conditions and the following disclaimer.
10	; * Redistributions in binary form must reproduce the above copyright	10	; * Redistributions in binary form must reproduce the above copyright
11	; notice, this list of conditions and the following disclaimer in the	11	; notice, this list of conditions and the following disclaimer in the
12	; documentation and/or other materials provided with the distribution.	12	; documentation and/or other materials provided with the distribution.
13	; * Neither the name of the nor the	13	; * Neither the name of the nor the
14	; names of its contributors may be used to endorse or promote products	14	; names of its contributors may be used to endorse or promote products
15	; derived from this software without specific prior written permission.	15	; derived from this software without specific prior written permission.
16	;	16	;
17	; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY	17	; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
18	; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED	18	; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
19	; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE	19	; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
20	; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY	20	; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY
21	; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES	21	; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
22	; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;	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	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	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	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.	26	; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27	;*****************************************************************************	27	;*****************************************************************************
28	;---------------------------------------------------------------------	28	;---------------------------------------------------------------------
29	;Some documentation for memory	29	;Some documentation for memory
30	;	30	;
31	;area name db 'FFFFFFFF_open_dialog',0 ; FFFFFFFF = PID	31	;area name db 'FFFFFFFF_open_dialog',0 ; FFFFFFFF = PID
32	;	32	;
33	; communication area data	33	; communication area data
34	; flag ; +0	34	; flag ; +0
35	; dw 0 ; 0 - empty, 1 - file for open, 2 -folder for open,	35	; dw 0 ; 0 - empty, 1 - file for open, 2 -folder for open,
36	; 3 - cancel, 4 - path=name of area 6822.	36	; 3 - cancel, 4 - path=name of area 6822.
37	;	37	;
38	; type of dialog: 0-Open, 1-Save, 2-Dir	38	; type of dialog: 0-Open, 1-Save, 2-Dir
39	; dw 0 ; +2	39	; dw 0 ; +2
40	;	40	;
41	; window X size ; +4	41	; window X size ; +4
42	; dw 0	42	; dw 0
43	;	43	;
44	; window X position ; +6	44	; window X position ; +6
45	; dw 0	45	; dw 0
46	;	46	;
47	; window y size ; +8	47	; window y size ; +8
48	; dw 0	48	; dw 0
49	;	49	;
50	; window Y position ; +10	50	; window Y position ; +10
51	; dw 0	51	; dw 0
52	;	52	;
53	; OpenDialog WINDOW SLOT ; +12	53	; OpenDialog WINDOW SLOT ; +12
54	; dd 0	54	; dd 0
55	;	55	;
56	; file_path ; +16	56	; file_path ; +16
57	; rb 3824 ; path to file	57	; rb 3824 ; path to file
58	;	58	;
59	; file name ; +3840	59	; file name ; +3840
60	; rb 256	60	; rb 256
61	;	61	;
62	; filtration flag ; +4096	62	; filtration flag ; +4096
63	; dd 0 ; flag 0 - no filtration, 1 - filtering	63	; dd 0 ; flag 0 - no filtration, 1 - filtering
64	;	64	;
65	; area for storage of filtering values ; +4100	65	; area for storage of filtering values ; +4100
66	; rb 4092	66	; rb 4092
67	;---------------------------------------------------------------------	67	;---------------------------------------------------------------------
68	use32	68	use32
69	org 0x0	69	org 0x0
70		70
71	db 'MENUET01'	71	db 'MENUET01'
72	dd 0x01	72	dd 0x01
73	dd START	73	dd START
74	dd IM_END	74	dd IM_END
75	dd I_END	75	dd I_END
76	dd stacktop	76	dd stacktop
77	dd param	77	dd param
78	dd path	78	dd path
79		79
80	include '../../macros.inc'	80	include '../../macros.inc'
81	;define __DEBUG__ 1	81	;define __DEBUG__ 1
82	;define __DEBUG_LEVEL__ 1	82	;define __DEBUG_LEVEL__ 1
83	;include '../../debug-fdo.inc'	83	;include '../../debug-fdo.inc'
84	include '../../develop/libraries/box_lib/load_lib.mac'	84	include '../../develop/libraries/box_lib/load_lib.mac'
85	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	85	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
86	;include 'macros.inc'	86	;include 'macros.inc'
87	;include 'load_lib.mac'	87	;include 'load_lib.mac'
88	;include 'box_lib.mac'	88	;include 'box_lib.mac'
89	@use_library	89	@use_library
90		90
91	x_minimal_size equ 350	91	x_minimal_size equ 350
92	y_minimal_size equ 250	92	y_minimal_size equ 250
93	;---------------------------------------------------------------------	93	;---------------------------------------------------------------------
94	;---------------------------------------------------------------------	94	;---------------------------------------------------------------------
95	START:	95	START:
96	mcall 68,11	96	mcall 68,11
97	mcall 66,1,1	97	mcall 66,1,1
98	mcall 40,0x27	98	mcall 40,0x27
99	call get_communication_area	99	call get_communication_area
100		100
101	call get_active_pocess	101	call get_active_pocess
102		102
103	load_libraries l_libs_start,end_l_libs	103	load_libraries l_libs_start,end_l_libs
104	test eax,eax	104	test eax,eax
105	jnz button.exit	105	jnz button.exit
106	; initialize sort	106	; initialize sort
107	push dword 1	107	push dword 1
108	call dword [sort_init]	108	call dword [sort_init]
109	; unpack deflate	109	; unpack deflate
110	mov eax,[unpack_DeflateUnpack2]	110	mov eax,[unpack_DeflateUnpack2]
111	mov [deflate_unpack],eax	111	mov [deflate_unpack],eax
112		112
113	mov esi,start_pach	113	mov esi,start_pach
114	mov edi,previous_dir_path	114	mov edi,previous_dir_path
115	call copy_dir_name.1	115	call copy_dir_name.1
116		116
117	call load_root_directory	117	call load_root_directory
118	call load_start_directory	118	call load_start_directory
119	call sort_directory	119	call sort_directory
120	call load_icons	120	call load_icons
121	call convert_icons	121	call convert_icons
122	call load_ini	122	call load_ini
123	call calc_ini	123	call calc_ini
124	jmp red_1	124	jmp red_1
125	;---------------------------------------------------------------------	125	;---------------------------------------------------------------------
126	red:	126	red:
127	call control_minimal_window_size	127	call control_minimal_window_size
128	red_1:	128	red_1:
129	call draw_window	129	call draw_window
130	;---------------------------------------------------------------------	130	;---------------------------------------------------------------------
131	still:	131	still:
132	mcall 10	132	mcall 10
133	cmp eax,1	133	cmp eax,1
134	je red	134	je red
135	cmp eax,2	135	cmp eax,2
136	je key	136	je key
137	cmp eax,3	137	cmp eax,3
138	je button	138	je button
139	cmp eax,6	139	cmp eax,6
140	je mouse	140	je mouse
141	jmp still	141	jmp still
142	;---------------------------------------------------------------------	142	;---------------------------------------------------------------------
143	control_minimal_window_size:	143	control_minimal_window_size:
144	pusha	144	pusha
145	call get_window_param	145	call get_window_param
146	test [window_status],10b	146	test [window_status],10b
147	jnz .end ;red_1	147	jnz .end ;red_1
148	test [window_status],100b	148	test [window_status],100b
149	jnz .end ;red_1	149	jnz .end ;red_1
150	test [window_status],1b	150	test [window_status],1b
151	jnz .end ;red_1	151	jnz .end ;red_1
152	mov esi,-1	152	mov esi,-1
153	mov eax,procinfo	153	mov eax,procinfo
154	mov eax,[eax+46]	154	mov eax,[eax+46]
155	cmp eax,dword y_minimal_size ;200	155	cmp eax,dword y_minimal_size ;200
156	jae @f	156	jae @f
157	mov esi,dword y_minimal_size ;200	157	mov esi,dword y_minimal_size ;200
158	mcall 67,-1,ebx,ebx	158	mcall 67,-1,ebx,ebx
159	@@:	159	@@:
160	mov edx,-1	160	mov edx,-1
161	mov eax,procinfo	161	mov eax,procinfo
162	mov eax,[eax+42]	162	mov eax,[eax+42]
163	cmp eax,dword x_minimal_size ;300	163	cmp eax,dword x_minimal_size ;300
164	jae @f	164	jae @f
165	mov edx,dword x_minimal_size ;300	165	mov edx,dword x_minimal_size ;300
166	mcall 67,-1,ebx,,ebx	166	mcall 67,-1,ebx,,ebx
167	@@:	167	@@:
168	.end:	168	.end:
169	popa	169	popa
170	ret	170	ret
171	;---------------------------------------------------------------------	171	;---------------------------------------------------------------------
172	key:	172	key:
173	mov al,[focus_pointer]	173	mov al,[focus_pointer]
174	test al,al	174	test al,al
175	jne key_ASCII	175	jne key_ASCII
176	mcall 2	176	mcall 2
177	xor ebx,ebx	177	xor ebx,ebx
178	cmp [extended_key],1	178	cmp [extended_key],1
179	je .extended_key	179	je .extended_key
180	test al,al	180	test al,al
181	jnz still	181	jnz still
182	cmp ah,0xE0	182	cmp ah,0xE0
183	jne @f	183	jne @f
184	mov [extended_key],1	184	mov [extended_key],1
185	jmp still	185	jmp still
186	@@:	186	@@:
187	cmp ah,72 ; arrow up	187	cmp ah,72 ; arrow up
188	je .2	188	je .2
189	cmp ah,80 ; arrow down	189	cmp ah,80 ; arrow down
190	je .1	190	je .1
191	cmp ah,28 ; Enter	191	cmp ah,28 ; Enter
192	je .7	192	je .7
193	cmp ah,1 ; Esc	193	cmp ah,1 ; Esc
194	je button.exit	194	je button.exit
195	cmp ah,14 ; Backspace	195	cmp ah,14 ; Backspace
196	je button.exit_dir	196	je button.exit_dir
197	cmp ah,187 ; F1	197	cmp ah,187 ; F1
198	je select_disk	198	je select_disk
199	cmp ah,188 ; F2	199	cmp ah,188 ; F2
200	je select_sort	200	je select_sort
201	cmp ah,189 ; F3	201	cmp ah,189 ; F3
202	je select_filter	202	je select_filter
203	cmp ah,19 ; R	203	cmp ah,19 ; R
204	je button.reload_dir	204	je button.reload_dir
205	cmp ah,42	205	cmp ah,42
206	je key_shift_up	206	je key_shift_up
207	cmp ah,54	207	cmp ah,54
208	je key_shift_up	208	je key_shift_up
209	cmp ah,170	209	cmp ah,170
210	je key_shift_down	210	je key_shift_down
211	cmp ah,182	211	cmp ah,182
212	je key_shift_down	212	je key_shift_down
213	cmp ah,29	213	cmp ah,29
214	je key_ctrl_up	214	je key_ctrl_up
215	cmp ah,157	215	cmp ah,157
216	je key_ctrl_down	216	je key_ctrl_down
217	cmp ah,56	217	cmp ah,56
218	je key_alt_up	218	je key_alt_up
219	cmp ah,184	219	cmp ah,184
220	je key_alt_down	220	je key_alt_down
221	cmp ah,206 ; NumPad+ Up	221	cmp ah,206 ; NumPad+ Up
222	je NumPad_plus_Up	222	je NumPad_plus_Up
223	cmp ah,202 ; NumPad- Up	223	cmp ah,202 ; NumPad- Up
224	je NumPad_minus_Up	224	je NumPad_minus_Up
225	cmp ah,183 ; NumPad* Up	225	cmp ah,183 ; NumPad* Up
226	je NumPad_invert_Up	226	je NumPad_invert_Up
227	cmp ah,158	227	cmp ah,158
228	je symbol_a_up	228	je symbol_a_up
229	cmp ah,15 ; Tab down	229	cmp ah,15 ; Tab down
230	je change_focus_area_press_Tab_key	230	je change_focus_area_press_Tab_key
231	cmp ah,143 ; Tab up	231	cmp ah,143 ; Tab up
232	je change_focus_area_check_Tab_key	232	je change_focus_area_check_Tab_key
233	; compare for "1,2,3,4,5,6,7,8,9,0,(-),(=)"	233	; compare for "1,2,3,4,5,6,7,8,9,0,(-),(=)"
234	cmp ah,2	234	cmp ah,2
235	jb still	235	jb still
236	cmp ah,13	236	cmp ah,13
237	jbe .12	237	jbe .12
238	; compare for "q,w,e,r,t,y,u,i,o,p,([),(])"	238	; compare for "q,w,e,r,t,y,u,i,o,p,([),(])"
239	cmp ah,16	239	cmp ah,16
240	jb still	240	jb still
241	cmp ah,27	241	cmp ah,27
242	jbe .12	242	jbe .12
243	; compare for "a,s,d,f,g,h,j,k,l,(;),('),(`)"	243	; compare for "a,s,d,f,g,h,j,k,l,(;),('),(`)"
244	cmp ah,30	244	cmp ah,30
245	jb still	245	jb still
246	cmp ah,41	246	cmp ah,41
247	jbe .12	247	jbe .12
248	; compare for "(\),z,x,c,v,b,n,m,(,),(.),(/)"	248	; compare for "(\),z,x,c,v,b,n,m,(,),(.),(/)"
249	cmp ah,43	249	cmp ah,43
250	jb still	250	jb still
251	cmp ah,53	251	cmp ah,53
252	jbe .12	252	jbe .12
253	jmp still	253	jmp still
254	.extended_key:	254	.extended_key:
255	mov [extended_key],0	255	mov [extended_key],0
256	cmp ah,80 ; arrow down	256	cmp ah,80 ; arrow down
257	je .1	257	je .1
258	cmp ah,72 ; arrow up	258	cmp ah,72 ; arrow up
259	je .2	259	je .2
260	cmp ah,81 ; PageDown	260	cmp ah,81 ; PageDown
261	je .3	261	je .3
262	cmp ah,73 ; PageUp	262	cmp ah,73 ; PageUp
263	je .4	263	je .4
264	cmp ah,71 ; Home	264	cmp ah,71 ; Home
265	je .5	265	je .5
266	cmp ah,79 ; End	266	cmp ah,79 ; End
267	je .6	267	je .6
268	cmp ah,28 ; Enter	268	cmp ah,28 ; Enter
269	je .7	269	je .7
270	cmp ah,82 ; Insert	270	cmp ah,82 ; Insert
271	je .8	271	je .8
272		272
273	cmp ah,29	273	cmp ah,29
274	je key_ctrl_up	274	je key_ctrl_up
275	cmp ah,157	275	cmp ah,157
276	je key_ctrl_down	276	je key_ctrl_down
277	cmp ah,56	277	cmp ah,56
278	je key_alt_up	278	je key_alt_up
279	cmp ah,184	279	cmp ah,184
280	je key_alt_down	280	je key_alt_down
281	jmp still	281	jmp still
282	;---------------------------------	282	;---------------------------------
283	.12:	283	.12:
284	inc ebx ; 12 - Search with key	284	inc ebx ; 12 - Search with key
285	;---------------------------------	285	;---------------------------------
286	.11:	286	.11:
287	inc ebx ; 11 - Invert Mark	287	inc ebx ; 11 - Invert Mark
288	;---------------------------------	288	;---------------------------------
289	.10:	289	.10:
290	inc ebx ; 10 - Unmark All	290	inc ebx ; 10 - Unmark All
291	;---------------------------------	291	;---------------------------------
292	.9:	292	.9:
293	inc ebx ; 9 - Mark All	293	inc ebx ; 9 - Mark All
294	;---------------------------------	294	;---------------------------------
295	.8:	295	.8:
296	inc ebx ; 8 - Insert (Mark)	296	inc ebx ; 8 - Insert (Mark)
297	;---------------------------------	297	;---------------------------------
298	.7:	298	.7:
299	inc ebx ; 7 - Enter	299	inc ebx ; 7 - Enter
300	;---------------------------------	300	;---------------------------------
301	.6:	301	.6:
302	inc ebx ; 6 - End	302	inc ebx ; 6 - End
303	;---------------------------------	303	;---------------------------------
304	.5:	304	.5:
305	inc ebx ; 5 - Home	305	inc ebx ; 5 - Home
306	;---------------------------------	306	;---------------------------------
307	.4:	307	.4:
308	inc ebx ; 4 - PageUp	308	inc ebx ; 4 - PageUp
309	;---------------------------------	309	;---------------------------------
310	.3:	310	.3:
311	inc ebx ; 3 - PageDown	311	inc ebx ; 3 - PageDown
312	;---------------------------------	312	;---------------------------------
313	.2:	313	.2:
314	inc ebx ; 2 - arrow up	314	inc ebx ; 2 - arrow up
315	;---------------------------------	315	;---------------------------------
316	.1:	316	.1:
317	inc ebx ; 1 - arrow down	317	inc ebx ; 1 - arrow down
318	;---------------------------------	318	;---------------------------------
319	call .key_action	319	call .key_action
320		320
321	; movzx ecx,word [file_browser_data_1.start_draw_cursor_line]	321	; movzx ecx,word [file_browser_data_1.start_draw_cursor_line]
322	; mcall 47,0x80000,,<50,0>,0x40000000,0xffffff	322	; mcall 47,0x80000,,<50,0>,0x40000000,0xffffff
323	; movzx ecx,word [file_browser_data_1.size_y]	323	; movzx ecx,word [file_browser_data_1.size_y]
324	; mcall 47,0x80000,,<150,0>,0x40000000,0xffffff	324	; mcall 47,0x80000,,<150,0>,0x40000000,0xffffff
325		325
326	mov eax,file_browser_data_1.mouse_keys_delta	326	mov eax,file_browser_data_1.mouse_keys_delta
327	cmp [eax],dword 3	327	cmp [eax],dword 3
328	jne still	328	jne still
329	xor ebx,ebx	329	xor ebx,ebx
330	mov [eax],ebx	330	mov [eax],ebx
331	call load_next_dir	331	call load_next_dir
332	jmp still	332	jmp still
333	;-------------------------------------------------------	333	;-------------------------------------------------------
334	.key_action:	334	.key_action:
335	mov [file_browser_data_1.key_action],bx	335	mov [file_browser_data_1.key_action],bx
336	shr ax,8	336	shr ax,8
337	mov [file_browser_data_1.key_action_num],ax	337	mov [file_browser_data_1.key_action_num],ax
338		338
339	push dword file_browser_data_1	339	push dword file_browser_data_1
340	call [FileBrowser_key]	340	call [FileBrowser_key]
341		341
342	call draw_open_button_label	342	call draw_open_button_label
343		343
344	cmp [file_browser_data_1.draw_scroll_bar],0	344	cmp [file_browser_data_1.draw_scroll_bar],0
345	je @f	345	je @f
346	call draw_scrollbar1	346	call draw_scrollbar1
347	mov [file_browser_data_1.draw_scroll_bar],0	347	mov [file_browser_data_1.draw_scroll_bar],0
348	@@:	348	@@:
349	ret	349	ret
350	;---------------------------------------------------------------------	350	;---------------------------------------------------------------------
351	change_focus_area_Tab_key_ASCII:	351	change_focus_area_Tab_key_ASCII:
352	xor eax,eax	352	xor eax,eax
353	inc eax	353	inc eax
354	mov [Tab_key_block],al	354	mov [Tab_key_block],al
355	jmp change_focus_area	355	jmp change_focus_area
356	;---------------------------------------------------------------------	356	;---------------------------------------------------------------------
357	change_focus_area_press_Tab_key:	357	change_focus_area_press_Tab_key:
358	cmp [open_dialog_type],1	358	cmp [open_dialog_type],1
359	jne still	359	jne still
360	mov al,[Tab_key_block]	360	mov al,[Tab_key_block]
361	test al,al	361	test al,al
362	jnz still	362	jnz still
363	xor eax,eax	363	xor eax,eax
364	inc eax	364	inc eax
365	mov [Tab_key],al	365	mov [Tab_key],al
366	jmp still	366	jmp still
367	;---------------------------------------------------------------------	367	;---------------------------------------------------------------------
368	change_focus_area_check_Tab_key:	368	change_focus_area_check_Tab_key:
369	cmp [open_dialog_type],1	369	cmp [open_dialog_type],1
370	jne still	370	jne still
371	xor eax,eax	371	xor eax,eax
372	mov [Tab_key_block],al	372	mov [Tab_key_block],al
373	mov al,[Tab_key]	373	mov al,[Tab_key]
374	test al,al	374	test al,al
375	jz still	375	jz still
376	xor eax,eax	376	xor eax,eax
377	mov [Tab_key],al	377	mov [Tab_key],al
378	;---------------------------------------------------------------------	378	;---------------------------------------------------------------------
379	change_focus_area:	379	change_focus_area:
380	mov al,[focus_pointer]	380	mov al,[focus_pointer]
381	inc al	381	inc al
382	and al,1	382	and al,1
383	mov [focus_pointer],al	383	mov [focus_pointer],al
384	.1:	384	.1:
385	mov edi,edit1	385	mov edi,edit1
386	test al,al	386	test al,al
387	jne @f	387	jne @f
388	mov [file_browser_data_1.select_panel_counter],1	388	mov [file_browser_data_1.select_panel_counter],1
389	and [edi+44],dword 0xFFFFFFFD ; ed_focus	389	and [edi+44],dword 0xFFFFFFFD ; ed_focus
390	mov [edi+12],dword 0xffffff ; color white	390	mov [edi+12],dword 0xffffff ; color white
391	call draw_draw_file_browser1	391	call draw_draw_file_browser1
392	mcall 66,1,1	392	mcall 66,1,1
393	jmp still	393	jmp still
394	@@:	394	@@:
395	mov [file_browser_data_1.select_panel_counter],0	395	mov [file_browser_data_1.select_panel_counter],0
396	or [edi+44],dword ed_focus	396	or [edi+44],dword ed_focus
397	mov [edi+12],dword 0xffffb0 ; color yellow	397	mov [edi+12],dword 0xffffb0 ; color yellow
398	call draw_draw_file_browser1	398	call draw_draw_file_browser1
399	mcall 66,1,0	399	mcall 66,1,0
400	jmp still	400	jmp still
401	;---------------------------------------------------------------------	401	;---------------------------------------------------------------------
402	key_ASCII:	402	key_ASCII:
403	mcall 2	403	mcall 2
404	cmp ah,9	404	cmp ah,9
405	je change_focus_area_Tab_key_ASCII	405	je change_focus_area_Tab_key_ASCII
406	cmp ah,13	406	cmp ah,13
407	je .13	407	je .13
408	cmp ah,27	408	cmp ah,27
409	je button.exit	409	je button.exit
410	push dword name_editboxes	410	push dword name_editboxes
411	call [edit_box_key]	411	call [edit_box_key]
412	jmp still	412	jmp still
413	.13:	413	.13:
414	; cmp [open_dialog_type],2 ; Select dir	414	; cmp [open_dialog_type],2 ; Select dir
415	; je file_no_folder	415	; je file_no_folder
416	; cmp [open_dialog_type],1 ; Save file	416	; cmp [open_dialog_type],1 ; Save file
417	; jne user_selected_name_action ; load_dir	417	; jne user_selected_name_action ; load_dir
418	; inc [open_dialog_type]	418	; inc [open_dialog_type]
419	jmp file_no_folder	419	jmp file_no_folder
420	;.load_dir:	420	;.load_dir:
421	; mov [file_browser_data_1.select_panel_counter],1	421	; mov [file_browser_data_1.select_panel_counter],1
422	; xor eax,eax	422	; xor eax,eax
423	; mov [focus_pointer],al	423	; mov [focus_pointer],al
424	; mcall 66,1,1	424	; mcall 66,1,1
425		425
426	; xor eax,eax	426	; xor eax,eax
427	; mov esi,dir_path	427	; mov esi,dir_path
428	; cld	428	; cld
429	;@@:	429	;@@:
430	; lodsb	430	; lodsb
431	; test al,al	431	; test al,al
432	; jne @r	432	; jne @r
433	; sub esi,2	433	; sub esi,2
434	; cmp [esi],byte '/'	434	; cmp [esi],byte '/'
435	; jne @f	435	; jne @f
436	; xor eax,eax	436	; xor eax,eax
437	; mov [esi],al	437	; mov [esi],al
438	;@@:	438	;@@:
439	; call load_next_dir.1	439	; call load_next_dir.1
440	; jmp still	440	; jmp still
441	;---------------------------------------------------------------------	441	;---------------------------------------------------------------------
442	user_selected_name_action:	442	user_selected_name_action:
443	mov eax,[communication_area]	443	mov eax,[communication_area]
444	test eax,eax	444	test eax,eax
445	jnz @f	445	jnz @f
446	call control_minimal_window_size	446	call control_minimal_window_size
447	call draw_window	447	call draw_window
448	ret	448	ret
449	@@:	449	@@:
450	add eax,16 ;12	450	add eax,16 ;12
451	;copy_path user_selected_name,dir_path,eax,0	451	;copy_path user_selected_name,dir_path,eax,0
452	mov esi,dir_path	452	mov esi,dir_path
453	mov edi,eax	453	mov edi,eax
454	call copy_dir_name	454	call copy_dir_name
455	mov [edi-1],byte '/'	455	mov [edi-1],byte '/'
456	mov esi,user_selected_name	456	mov esi,user_selected_name
457	call copy_dir_name	457	call copy_dir_name
458		458
459	mov eax,[communication_area]	459	mov eax,[communication_area]
460	mov [eax],word 1	460	mov [eax],word 1
461	jmp button.exit	461	jmp button.exit
462	;---------------------------------------------------------------------	462	;---------------------------------------------------------------------
463	select_disk:	463	select_disk:
464	call check_alt	464	call check_alt
465	.1:	465	.1:
466	call load_root_directory	466	call load_root_directory
467	xor eax,eax	467	xor eax,eax
468	mov [menu_data_1.ret_key],eax	468	mov [menu_data_1.ret_key],eax
469		469
470	push dword menu_data_1	470	push dword menu_data_1
471	call [menu_bar_activate]	471	call [menu_bar_activate]
472		472
473	call clear_control_key_flag	473	call clear_control_key_flag
474		474
475	mov eax,[menu_data_1.ret_key]	475	mov eax,[menu_data_1.ret_key]
476	mov [menu_data_1.ret_key],dword 0	476	mov [menu_data_1.ret_key],dword 0
477	cmp eax,1	477	cmp eax,1
478	je select_filter.1	478	je select_filter.1
479		479
480	cmp eax,2	480	cmp eax,2
481	je select_sort.1	481	je select_sort.1
482		482
483	cmp [menu_data_1.click],dword 1	483	cmp [menu_data_1.click],dword 1
484	jne still	484	jne still
485		485
486	cmp [menu_data_1.cursor_out],dword 0	486	cmp [menu_data_1.cursor_out],dword 0
487	jne analyse_out_menu_1	487	jne analyse_out_menu_1
488	jmp still	488	jmp still
489	;---------------------------------------------------------------------	489	;---------------------------------------------------------------------
490	select_sort:	490	select_sort:
491	call check_alt	491	call check_alt
492	.1:	492	.1:
493	xor eax,eax	493	xor eax,eax
494	mov [menu_data_2.ret_key],eax	494	mov [menu_data_2.ret_key],eax
495		495
496	push dword menu_data_2	496	push dword menu_data_2
497	call [menu_bar_activate]	497	call [menu_bar_activate]
498		498
499	call clear_control_key_flag	499	call clear_control_key_flag
500		500

Subversion Repositories Kolibri OS

(root)/programs/fs/opendial/opendial.asm – Rev 4061 → 4159