Subversion Repositories Kolibri OS

;*****************************************************************************

; File Browser control for Kolibri OS

; Copyright (c) 2009, 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.

;*****************************************************************************

;*****************************************************************************

macro	file_browser_exit

{

popa

ret 4

}

;*****************************************************************************

macro	use_file_browser

{

file_browser:

fb_type				equ dword [edi]		;dword

fb_size_x			equ [edi+4]		;word

fb_start_x			equ [edi+6]		;word

fb_size_y			equ [edi+8]		;word

fb_start_y			equ [edi+10]		;word

fb_icon_size_y			equ word [edi+12]	;word

fb_icon_size_x			equ word [edi+14]	;word

fb_line_size_x			equ word [edi+16]	;word

fb_line_size_y			equ word [edi+18]	;word

fb_type_size_x			equ word [edi+20]	;word

fb_size_size_x			equ word [edi+22]	;word

fb_date_size_x			equ word [edi+24]	;word

fb_attributes_size_x		equ word [edi+26]	;word

fb_icon_assoc_area		equ dword [edi+28]	;dword

fb_icon_raw_area		equ dword [edi+32]	;dword

fb_resolution_raw		equ dword [edi+36]	;dword

fb_palette_raw			equ dword [edi+40]	;dword

fb_directory_path_area		equ dword [edi+44]	;dword

fb_file_name_area		equ dword [edi+48]	;dword

fb_select_flag			equ dword [edi+52]	;dword

fb_background_color		equ dword [edi+56]	;dword

fb_select_color			equ dword [edi+60]	;dword

fb_seclect_text_color		equ dword [edi+64]	;dword

fb_text_color			equ dword [edi+68]	;dword

fb_reduct_text_color		equ dword [edi+72]	;dword

fb_marked_text_color		equ dword [edi+76]	;dword

fb_max_panel_line		equ dword [edi+80]	;dword

fb_select_panel_counter		equ dword [edi+84]	;dword

fb_folder_block			equ dword [edi+88]	;dword

fb_start_draw_line		equ dword [edi+92]	;dword

fb_start_draw_cursor_line	equ word [edi+96]	;word

fb_folder_data			equ dword [edi+98]	;dword

fb_temp_counter			equ dword [edi+102]	;dword

fb_file_name_length		equ dword [edi+106]	;dword

fb_marked_file			equ dword [edi+110]	;dword

fb_extension_size		equ dword [edi+114]	;dword

fb_extension_start		equ dword [edi+118]	;dword

fb_type_table			equ dword [edi+122]	;dword

fb_ini_file_start		equ dword [edi+126]	;dword

fb_ini_file_end			equ dword [edi+130]	;dword

fb_draw_scroll_bar		equ dword [edi+134]	;dword

fb_font_size_y			equ word [edi+138]	;dword

fb_font_size_x			equ word [edi+140]	;dword

fb_mouse_keys			equ dword [edi+142]	;dword

fb_mouse_keys_old		equ dword [edi+146]	;dword

fb_mouse_pos			equ dword [edi+150]	;dword

fb_mouse_keys_delta		equ dword [edi+154]	;dword

fb_mouse_key_delay		equ dword [edi+158]	;dword

fb_mouse_keys_tick		equ dword [edi+162]	;dword

fb_start_draw_cursor_line_2	equ word [edi+166]	;dword

fb_all_redraw			equ dword [edi+168]	;dword

fb_selected_BDVK_adress		equ dword [edi+172]	;dword

fb_key_action			equ dword [edi+176]	;dword

fb_name_temp_area		equ dword [edi+180]	;dword

fb_max_name_temp_size		equ dword [edi+184]	;dword

fb_display_name_max_length	equ dword [edi+188]	;dword

fb_draw_panel_selection_flag	equ dword [edi+192]	;dword

fb_mouse_pos_old		equ dword [edi+196]	;dword

fb_marked_counter		equ dword [edi+200]	;dword

;---------------------------------------------------------------------

fb_draw_panel:

	pusha

	mov	edi,dword [esp+36]

	call	fb_clear_panel

	call	fb_calc_max_panel_line

	call	fb_calc_folder_sysdata

	call	fb_draw_panel_selection

	call	fb_draw_folder_data

file_browser_exit

;---------------------------------------------------------------------

fb_draw_panel_1:

	pusha

	mov	eax,fb_select_color

	push	eax

	mov	eax,fb_seclect_text_color

	push	eax

	mov	ax,fb_start_draw_cursor_line

	push	eax

	mov	eax,fb_background_color

	mov	fb_select_color,eax

	mov	eax,fb_text_color

	mov	fb_seclect_text_color,eax

	mov	ax,fb_start_draw_cursor_line_2

	mov	fb_start_draw_cursor_line,ax

	call	fb_draw_panel_selection

	pop	eax

	mov	fb_start_draw_cursor_line,ax

	pop	eax

	mov	fb_seclect_text_color,eax

	pop	eax

	mov	fb_select_color,eax

	call	fb_draw_panel_selection

	call	fb_draw_folder_data

	popa

	ret

;---------------------------------------------------------------------

fb_clear_panel:

	cmp	fb_all_redraw,dword 1

	jne	@f

	xor	eax,eax

	mov	fb_max_name_temp_size,eax

@@:

	ret

;---------------------------------------------------------------------

fb_calc_folder_sysdata:

	mov	eax,fb_folder_data

	mov	eax,[eax+4]

	mov	fb_folder_block,eax

	ret

;---------------------------------------------------------------------

fb_calc_max_panel_line:

	xor	eax,eax

	xor	ebx,ebx

	mov	ax,fb_size_y

	mov	bx,fb_line_size_y

	test	ebx,ebx

	jnz	@f

	inc	ebx

@@:

	xor	edx,edx

	div	ebx

	mov	fb_max_panel_line,eax

	ret

;---------------------------------------------------------------------

fb_draw_panel_selection:

	cmp	fb_all_redraw,dword 2

	je	.end

	xor	eax,eax

	cmp	fb_select_panel_counter,eax

	je	.end

	mov	eax,fb_folder_block

	sub	eax,fb_start_draw_line

	mov	cx,fb_start_draw_cursor_line

	call	fb_for_all_panel_selection

	mov	eax,fb_folder_block

	dec	eax

	xor	edx,edx

	mov	dx,fb_line_size_y

	imul	eax,edx

	cmp	ax,cx

	jae	@f

	mov	cx,ax

@@:

	mov	fb_start_draw_cursor_line,cx

	mov	ebx,fb_size_x

	add	cx,fb_start_y

.1:

	shl	ecx,16

	mov	cx,fb_line_size_y

	mov	edx,fb_select_color

	xor	eax,eax

	mov	ax,fb_icon_size_x

	add	eax,2

	sub	ebx,eax

	shl	eax,16

	push	eax

	add	ebx,eax

	mcall	13

	pop	ebx

	cmp	fb_all_redraw,dword 0

	je	.end

	mov	bx,fb_start_x

	ror	ebx,16

	mcall	13,,,fb_background_color

.end:

	ret

;---------------------------------------------------------------------

fb_for_all_panel_selection:

;	dec	eax

	xor	edx,edx

	mov	dx,fb_line_size_y

	imul	eax,edx

	cmp	ax,cx

	jae	@f

	mov	cx,ax

@@:

	mov	eax,fb_max_panel_line

	dec	eax

	imul	eax,edx

	cmp	ax,cx

	jae	@f

	mov	cx,ax

@@:

	ret

;---------------------------------------------------------------------

fb_draw_folder_data:

	mov	eax,fb_folder_block

	sub	eax,fb_max_panel_line

	test	eax,0x8000000

	jz	.ok_left

	mov	fb_start_draw_line,0

	jmp	@f

.ok_left:

	cmp	eax,fb_start_draw_line

	jae	@f

	mov	fb_start_draw_line,eax

@@:

	mov	bx,fb_start_x

	add	bx,3

	add	bx,fb_icon_size_x

	shl	ebx,16

	mov	bx,fb_start_y

	mov	edx,fb_start_draw_line

	imul	edx,304

	add	edx,fb_folder_data

	add	edx,32+40

	xor	eax,eax

.start:

	pusha

	mov	eax,edx

	sub	eax,fb_folder_data

	sub	eax,32+40

	xor	edx,edx

	mov	ebx,304

	div	ebx

	cmp	eax,fb_folder_block

	je	.end_1

;.continue_1:

	popa

	cmp	eax,fb_max_panel_line

	je	.end_2

	mov	fb_marked_file,0

	cmp	[edx+299-40],byte 0

	je	@f

	mov	fb_marked_file,1

@@:

	call	fb_clear_line

	call	fb_draw_type_size_date

	cmp	fb_all_redraw,dword 2

	je	.draw_icon

	cmp	fb_all_redraw,dword 0

	je	@f

.draw_icon:

	call	fb_draw_icon

@@:

	push	eax

	xor	eax,eax

	mov	ax,fb_size_x

	push	ebx edx

	xor	ebx,ebx

	mov	bx,fb_font_size_x

	xor	edx,edx

	div	ebx

	pop	edx ebx

	sub	eax,23+2+2

	mov	esi,fb_file_name_length

	mov	fb_temp_counter,0

	mov	fb_display_name_max_length,eax

	cmp	esi,eax

	jbe	@f

	mov	esi,eax

	mov	fb_temp_counter,1

@@:

	cmp	fb_max_name_temp_size,esi

	jae	@f

	mov	fb_max_name_temp_size,esi

	inc	fb_max_name_temp_size

@@:

	mov	ecx,fb_text_color

	cmp	fb_marked_file,0

	je	@f

	mov	ecx,fb_reduct_text_color	;0xff0000

@@:

	mov	ax,fb_line_size_y

	sub	ax,fb_font_size_y

	push	ebx

	mov	bx,ax

	shr	ax,1

	test	bx,1b

	jz	@f

	inc	ax

@@:

	pop	ebx

	push	ebx

	add	bx,ax

	call	.draw_name_temp_area

	xor	eax,eax

	mov	ax,fb_font_size_x

	imul	eax,fb_display_name_max_length

	shl	eax,16

	push	edx

	add	ebx,eax

	mov	esi,2

	mov	ecx,fb_reduct_text_color	;0xff0000

	mov	edx,dword fb_truncated_filename_char

	cmp	fb_temp_counter,0

	jne	@f

	mov	edx,dword fb_truncated_filename_clear

	mov	ecx,fb_text_color

@@:

	push	edi

	and	ecx,0x30ffffff

	add	ecx,0x40000000

	mov	eax,fb_background_color

	cmp	fb_draw_panel_selection_flag,1

	jne	@f

	mov	eax,fb_select_color

@@:

	mov	edi,eax

	mcall	4

	pop	edi

	cmp	fb_temp_counter,0

	je	.continue_1

	push	edi

	mov	eax,fb_background_color

	cmp	fb_draw_panel_selection_flag,1

	jne	@f

	mov	eax,fb_select_color

@@:

	mov	edi,eax

	add	ebx,1 shl 16

	mcall	4

	pop	edi

.continue_1:

	pop	edx

.continue:

	pop	ebx

	add	bx,fb_line_size_y

	add	edx,304

	pop	eax

	inc	eax

	jmp	.start

;--------------------------------------

.draw_name_temp_area:

	pusha

	mov	ebx,esi

	mov	eax,dword '    '

	mov	ecx,256/4

	cld

	push	edi

	mov	edi,fb_name_temp_area

	rep	stosd

	pop	edi

	mov	esi,edx

	mov	ecx,ebx

	cld

	mov	edi,fb_name_temp_area

	rep	movsb

	popa

	pusha

	mov	edx,fb_name_temp_area

	cmp	fb_all_redraw,dword 2

	jne	.draw_name_temp_area_1

	mov	esi,fb_max_name_temp_size

	and	ecx,0xffffff

	add	ecx,0x40000000

	mov	eax,fb_background_color

	cmp	fb_draw_panel_selection_flag,1

	jne	@f

	mov	eax,fb_select_color

@@:

	mov	edi,eax

.draw_name_temp_area_1:

	mcall	4

	popa

	ret

;--------------------------------------

.end_1:

	popa

.end_2:

	cmp	fb_all_redraw,dword 1

	jne	@f

	mov	ax,fb_start_y

	add	ax,fb_size_y

	mov	cx,bx

	rol	ecx,16

	mov	cx,ax

	mov	eax,ecx

	shr	eax,16

	sub	cx,ax

	cmp	cx,0

	jbe	@f

	mov	bx,fb_size_x

	ror	ebx,16

	sub	bx,fb_icon_size_x

	sub	bx,3

	rol	ebx,16

	mov	edx,fb_background_color	;0xffffff

	mcall	13

@@:

.end:

;	mov	fb_draw_scroll_bar,dword 1

	ret

;---------------------------------------------------------------------

fb_clear_line:

	mov	fb_draw_panel_selection_flag,0

	pusha

	shl	ebx,16

	shr	ebx,16

;	dec	ebx

	cmp	fb_select_panel_counter,0

	je	.continue

	mov	ax,fb_start_draw_cursor_line

	add	ax,fb_start_y

	cmp	bx,ax

	jne	.continue

	mov	fb_draw_panel_selection_flag,1

	jmp	.end

.continue:

	cmp	fb_all_redraw,dword 2

	je	.end

	cmp	fb_all_redraw,dword 0

	je	.end

	mov	ebx,[esp+16]

	mov	cx,bx

;	dec	cx

	rol	ecx,16

	mov	cx,fb_line_size_y

	mov	bx,fb_size_x

	ror	ebx,16

	sub	bx,fb_icon_size_x

	sub	bx,3

	rol	ebx,16

	mov	edx,fb_background_color

	mcall	13

.end:

	popa

	ret

;---------------------------------------------------------------------

fb_draw_type_size_date:

	pusha

	mov	eax,fb_type_table

	test	[edx-40],byte 0x10

	jz	.copy_type

	mov	[eax],dword '

	mov	[eax+4],word '> '

	mov	fb_file_name_length,0

	mov	fb_extension_size,0

	jmp	.start

.copy_type:

	mov	[eax],dword '	'

	mov	[eax+4],word '	'

.start:

	mov	esi,edx

	xor	eax,eax

@@:

	cld

	lodsb

	test	eax,eax

	jnz	@b

	mov	fb_file_name_length,esi

	sub	fb_file_name_length,edx

	mov	fb_temp_counter,esi

	test	[edx-40],byte	0x10

	jnz	.size

;@@:

	dec	esi

	dec	edx

@@:

	std

	lodsb

	cmp	esi,edx

	je	.extension_size_0

	cmp	al,'.'

	jnz	@b

	add	esi,2

	mov	fb_extension_start,esi

	mov	ecx,fb_temp_counter

	sub	ecx,esi

	inc	ecx

	mov	fb_extension_size,ecx

	sub	fb_file_name_length,ecx

	cmp	ecx,2

	ja	@f

	inc	fb_file_name_length

@@:

	sub	ecx,2

	cmp	ecx,4

	jbe	@f

	mov	ecx,3

	mov	eax,fb_type_table

	mov	[eax+3],word '..'

@@:

	push	edi

	mov	edi,fb_type_table

	cld

	rep	movsb

	pop	edi

	inc	edx

	jmp	.size

.extension_size_0:

	inc	edx

	mov	fb_extension_size,0

.size:

	mov	eax,fb_type_table

	test	[edx-40],byte 0x10

	jz	.copy_size

	mov	[eax+6],dword '----'

	mov	[eax+6+4],word '- '

	jmp	.date

;-----------------------------------------

.call_decimal_string:

	mov	ebx,fb_type_table

	add	ebx,6

	call	fb_decimal_string_4

	mov	[ebx],dl

	jmp	.size_convert_end

;-----------------------------------------

.copy_size:

;/0x40000000 - Gb

;/0x100000 - Mb

;/0x400 Kb

	mov	[eax+6],dword '    '

	mov	[eax+6+4],word '  '

	push	ebx

	push	edx

	mov	eax,[edx-40+32]

	mov	ebx,eax

	shr	eax,30 ; /(1024*1024*1024)

	test	eax,eax

	jz	@f

	mov	dl,byte 'G'

	jmp	.call_decimal_string

@@:

	mov	eax,ebx

	shr	eax,20 ; /(1024*1024)

	test	eax,eax

	jz	@f

	mov	dl,byte 'M'

	jmp	.call_decimal_string

@@:

	mov	eax,ebx

	shr	eax,10 ; /1024

	test	eax,eax

	jz	@f

	mov	dl,byte 'K'

	jmp	.call_decimal_string

@@:

	mov	eax,ebx

;.size_convert:

	mov	ebx,fb_type_table

	add	ebx,6

	call	fb_decimal_string_4

.size_convert_end:

	mov	eax,fb_type_table

	add	eax,6

	push	edi

	cmp	[eax],byte '0'

	jne	@f

	mov	[eax],byte ' '

@@:

	add	eax,3

@@:

	cmp	[eax+1],byte ' '

	jne	@f

	mov	esi,eax

	mov	edi,esi

	inc	edi

	mov	ecx,5

	std

	rep	movsb

	jmp	@r

@@:

	pop	edi

	pop	edx

	pop	ebx

;-----------------------------------------

.date:

	xor	eax,eax

	mov	al,[edx-40+28]

	push	ebx

	mov	ebx,fb_type_table

	add	ebx,12

	call	fb_decimal_string_2 ; day

	mov	al,[edx-40+29]

	mov	ebx,fb_type_table

	add	ebx,12+3

	call	fb_decimal_string_2 ; month

	mov	ax,[edx-40+30]

	mov	ebx,fb_type_table

	add	ebx,12+15

	call	fb_decimal_string_4 ; year

	mov	ebx,fb_type_table

	mov	ax,[ebx+12+15+2]

	mov	[ebx+12+6],ax

	pop	ebx

;-----------------------------------------

	ror	ebx,16

	add	bx,fb_size_x

	sub	ebx,122+12+15

	rol	ebx,16

	mov	ecx,fb_text_color

	cmp	fb_marked_file,0

	je	@f

	mov	ecx,fb_reduct_text_color	;0xff0000

@@:

	mov	edx,fb_type_table

	mov	esi,20

	mov	ax,fb_line_size_y

	sub	ax,fb_font_size_y

	push	ebx

	mov	bx,ax

	shr	ax,1

	test	bx,1b

	jz	@f

	inc	ax

@@:

	pop	ebx

	add	bx,ax

	cmp	fb_all_redraw,dword 2

	jne	.draw  ;@f

	and	ecx,0xffffff

	add	ecx,0x40000000

	mov	eax,fb_background_color

	cmp	fb_draw_panel_selection_flag,1

	jne	@f

	mov	eax,fb_select_color

@@:

	mov	edi,eax

.draw:

	mcall	4

	popa

	ret

;---------------------------------------------------------------------

fb_draw_icon:

	pusha

	xor	eax,eax

	mov	ax,fb_icon_size_y

	mov	ebx,fb_resolution_raw

	imul	eax,ebx

	mov	bx,fb_icon_size_x

	imul	eax,ebx

	mov	ebx,eax

	shr	eax,3

	test	ebx,111b

	jz	@f

	inc	eax

@@:

	test	[edx-40],byte 0x10

	jnz	.draw_dir_pic

	call	fb_get_icon_number

;	mov	ebx,2

	imul	ebx,eax	;16*16*3

	jmp	.draw

.draw_dir_pic:

	xor	ebx,ebx

	cmp	[edx],word '..'

	jne	.draw

	mov	ebx,eax	;16*16*3

.draw:

	add	ebx,fb_icon_raw_area

	mov	cx,fb_icon_size_x

	shl	ecx,16

	mov	cx,fb_icon_size_y

	mov	edx,[esp+16]

	ror	edx,16

	sub	edx,2

	sub	dx,fb_icon_size_x

	rol	edx,16

	mov	ax,fb_line_size_y

	sub	ax,fb_icon_size_y

	shr	ax,1

	add	dx,ax

	mov	esi,fb_resolution_raw

	xor	ebp,ebp

	push	edi

	mov	edi,fb_palette_raw

	mcall	65

	pop	edi

	popa

	ret

;---------------------------------------------------------------------

; Convert of a binary number in decimal string form

; Input:

;  AX - value

;  EBX - address of string

; Output:

;  string contains the number, marked the end of the code 0

fb_decimal_string_2:

	push	eax ebx ecx edx

	xor	ecx,ecx

	mov	[ebx],byte '0'

	inc	ebx

.p3:

	xor	edx,edx

	push	ebx

	mov	ebx,10

	div	ebx

	pop	ebx

	add	edx,48

	push	edx

	inc	ecx

	cmp	ax,0

	jne	.p3

	cmp	ecx,1

	jbe	.p4

	mov	ecx,2

	dec	ebx

.p4:

	pop	edx

	mov	[ebx],dl

	inc	ebx

	loop	.p4

	pop	edx ecx ebx eax

	ret

;---------------------------------------------------------------------

fb_decimal_string_4:

	push	eax ecx edx

	xor	ecx,ecx

	mov	[ebx],byte '0'

	inc	ebx

.p3:

	xor	edx,edx

	push	ebx

	mov	ebx,10

	div	ebx

	pop	ebx

	add	edx,48

	push	edx

	inc	ecx

	cmp	eax,0

	jne	.p3

	cmp	ecx,3

	jbe	.p4

	mov	ecx,4

	dec	ebx

.p4:

	pop	edx

	mov	[ebx],dl

	inc	ebx

	loop	.p4

	pop	edx ecx eax

	ret

;---------------------------------------------------------------------

fb_get_icon_number:

	push	eax

	mov	ebp,fb_extension_size

	test	ebp,ebp

	je	.end

	dec	ebp

	test	ebp,ebp

	je	.end

	dec	ebp

	test	ebp,ebp

	je		.end

@@:

	mov	edx,fb_ini_file_end

	sub	edx,ebp

	mov	eax,fb_ini_file_start

	dec	eax

.search_association:

	cmp	edx,eax

	jbe	.end

	mov	esi,fb_extension_start

	inc	eax

	mov	ecx,eax

	mov	ebx,eax

	cld

.check:

	lodsb

	test	al,al

	jz	@f

	call	fb_char_toupper

	shl	ax,8

	mov	al,[ebx]

	inc	ebx

	call	fb_char_toupper

	cmp	al,ah

	je	.check

	mov	eax,ecx

	jmp	.search_association

@@:

	mov	eax,ecx

	mov	esi,eax

	add	esi,ebp

	cmp	[esi],byte '='

	jne	.search_association

	inc	esi

	xor	ebx,ebx

	xor	eax,eax

	mov	ecx,9

	call	.calculate

	cmp al,0x30

	jb	.end

	cmp	al,0x39

	ja	.end

	sub	eax,0x30

@@:

	call	.calculate_1

	cmp al,0x30

	jb	@f

	cmp	al,0x39

	ja	@f

	sub	eax,0x30

	lea ebx,[ebx+ebx*4]

	shl	ebx,1

	dec	ecx

	jnz	@b

@@:

	pop	eax

	ret

.end:

	mov	ebx,2

	pop	eax

	ret

;---------------------------------------------------------------------

.calculate_1:

	add	ebx,eax

.calculate:

	xor	eax,eax

	cld

	lodsb

	ret

;---------------------------------------------------------------------

fb_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

;---------------------------------------------------------------------

fb_truncated_filename_char:

	db	'..'

fb_truncated_filename_clear:

	db	'  '

;---------------------------------------------------------------------

;*****************************************************************************

;*****************************************************************************

; mouse event

;*****************************************************************************

;*****************************************************************************

fb_mouse:

	pusha

	mov	edi,dword [esp+36]

;-------------------------------------------------------

	mcall	37,2

	mov	ebx,fb_mouse_keys

	mov	fb_mouse_keys_old,ebx

	mov	fb_mouse_keys,eax

	mcall	37,1

	mov	ebx,fb_mouse_pos

	mov	fb_mouse_pos_old,ebx

	mov	fb_mouse_pos,eax

	test	eax,0x80000000

	jnz	.exit_fb

	test	eax,0x8000

	jnz	.exit_fb

	mov	ebx,eax

	shr	ebx,16	; x position

	shl	eax,16

	shr	eax,16	; y position

	mov	cx,fb_start_x

	cmp	bx,cx

	jb	.exit_fb

	add	cx,fb_size_x

	cmp	bx,cx

	ja	.exit_fb

	mov	cx,fb_start_y

	cmp	ax,cx

	jb	.exit_fb

	add	cx,fb_size_y

	cmp	ax,cx

	ja	.exit_fb

;-------------------------------------------------------

	cmp	fb_mouse_keys_delta,1

	je	.enter_1

	cmp	fb_mouse_keys,0

	jz	.exit_fb

.start:

	sub	ax,fb_start_y

	xor	ebx,ebx

	mov	bx,fb_line_size_y

	xor	edx,edx

	push	eax

	div	ebx

	pop	eax

	sub	eax,edx

	xor	edx,edx

	cmp	fb_select_panel_counter,edx

	jne	@f

	mov	fb_mouse_keys_delta,0

	jmp	.continue

@@:

	xor	edx,edx

	cmp	fb_start_draw_cursor_line,ax

	jne	@f

	cmp	fb_mouse_keys,edx

	jnz	.continue

@@:

	mov	fb_mouse_keys_delta,edx

.continue:

	xor	ebx,ebx

	mov	bx,fb_line_size_y

	imul	ebx,fb_folder_block

	cmp	eax,ebx

	jb	@f

	xor	edx,edx

	mov	dx,fb_line_size_y

	sub	ebx,edx

	cmp	bx,fb_start_draw_cursor_line

	je	.enter

	call	.store_old_cursor_line

	mov	fb_start_draw_cursor_line,bx

	jmp	.continue_1

@@:

	cmp	ax,fb_start_draw_cursor_line

	je	.enter

	call	.store_old_cursor_line

	mov	fb_start_draw_cursor_line,ax

.continue_1:

	test	fb_mouse_keys,10b

	jne	.mark_mouse

	jmp	.enter_1

.continue_2:

	mov	ax,fb_start_draw_cursor_line

	cmp	ax,fb_start_draw_cursor_line_2

	je	.exit_fb

	call	fb_draw_panel_1

	jmp	.exit_fb

.enter:

	cmp	fb_mouse_keys_delta,2

	je	.enter_2

	cmp	fb_mouse_keys_delta,1

	je	.enter_1

	mov	eax,fb_mouse_keys_old

	cmp	fb_mouse_keys,eax

	jz	.exit_fb

	test	fb_mouse_keys,10b

	jne	.mark_mouse

	xor	edx,edx

	inc	edx

	mov	fb_mouse_keys_delta,edx

	jmp	.exit_fb

.enter_1:

	mov	eax,fb_mouse_keys_old

	cmp	fb_mouse_keys,eax

	jz	.exit_fb

	test	fb_mouse_keys,10b

	jne	.mark_mouse

	mov	edx,2

	mov	fb_mouse_keys_delta,edx

	mcall	26,9

	add	eax,fb_mouse_key_delay

	mov	fb_mouse_keys_tick,eax

	jmp	.continue_2

.enter_2:

	mcall	26,9

	cmp	eax,fb_mouse_keys_tick

	ja	@f

;	mov	eax,fb_mouse_pos_old

;	cmp	eax,fb_mouse_pos

;	jne	@f

	mov	eax,fb_mouse_keys_old

	cmp	fb_mouse_keys,eax

	jz	@f

	test	fb_mouse_keys,10b

	jne	.mark_mouse

	call	.enter_3

	jmp	.exit_fb

@@:

	xor	eax,eax

	inc	eax

	mov	fb_mouse_keys_delta,eax

;-------------------------------------------------------

.exit_fb:

file_browser_exit

;-------------------------------------------------------

.mark_mouse:

	call	fb_key.mark_1

	call	fb_draw_panel_1

	xor	eax,eax

	mov	fb_mouse_keys_delta,eax

	jmp	.exit_fb

;-------------------------------------------------------

.enter_3:

	xor	eax,eax

	mov	fb_mouse_keys,eax

	mov	fb_mouse_keys_old,eax

	mov	eax,3

	mov	fb_mouse_keys_delta,eax

	xor	eax,eax

	mov	ax,fb_start_draw_cursor_line

	xor	ebx,ebx

	mov	bx,fb_line_size_y

	xor	edx,edx

	div	ebx

	add	eax,fb_start_draw_line

	imul	eax,304

	add	eax,32

	add	eax,fb_folder_data

	mov	fb_selected_BDVK_adress,eax

	xor	eax,eax

	mov	fb_max_name_temp_size,eax

	ret

;-------------------------------------------------------

.store_old_cursor_line:

	push	eax

	mov	ax,fb_start_draw_cursor_line

	mov	fb_start_draw_cursor_line_2,ax

	xor	eax,eax

;	mov	fb_mouse_keys_delta,eax

	pop	eax

	ret

;*****************************************************************************

;*****************************************************************************

; key event

; 1 - arrow down

; 2 - arrow up

; 3 - PageDown

; 4 - PageUp

; 5 - Home

; 6 - End

; 7 - Enter

; 8 - Insert (Mark)

; 9 - Mark All

; 10 - Unmark All

; 11 - Invert Mark

;*****************************************************************************

;*****************************************************************************

fb_key:

	pusha

	mov	edi,dword [esp+36]

;-------------------------------------------------------

	mov	eax,fb_key_action

	shl	eax,2

	add	eax,dword fb_key_table

	cmp	eax,fb_key_table.end

	jae	.exit_fb

	cmp	[eax],dword 0

	je	.exit_fb

	jmp	dword [eax]

;-------------------------------------------------------

.arrow_down:

	mov	ax,fb_start_draw_cursor_line

	add	ax,fb_line_size_y

	add	ax,fb_line_size_y

	cmp	ax,word fb_size_y

	ja	@f

.add_1:

	call	fb_mouse.store_old_cursor_line

	mov	ax,fb_start_draw_cursor_line

	add	ax,fb_line_size_y

	mov	fb_start_draw_cursor_line,ax

	call	fb_draw_panel_1

	jmp	.exit_fb

@@:

	mov	eax,fb_folder_block

	sub	eax,fb_max_panel_line

	test	eax,0x80000000

	jnz	.page_down_2