Subversion Repositories Kolibri OS

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

lsz	s_text,\

	ru,'�롮� 䠩��',\

	en,'Select file'

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

lsz	r_text,\

	ru,'���',\

	en,'Start'

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

title	db 'File Speed  v0.1',0

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

include_debug_strings

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

l_libs_start:

library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \

err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i

library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \

err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i

end_l_libs:

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

system_dir_Boxlib	db '/sys/lib/box_lib.obj',0

system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0

head_f_i:

head_f_l	db 'System error',0

err_message_found_lib1	db 'box_lib.obj - Not found!',0

err_message_found_lib2	db 'proc_lib.obj - Not found!',0

err_message_import1	db 'box_lib.obj - Wrong import!',0

err_message_import2	db 'proc_lib.obj - Wrong import!',0

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

align 4

ProcLib_import:

OpenDialog_Init		dd aOpenDialog_Init

OpenDialog_Start	dd aOpenDialog_Start

;OpenDialog_Version	dd aOpenDialog_Version

;ColorDialog_Init	dd aColorDialog_Init

;ColorDialog_Start	dd aColorDialog_Start

;ColorDialog_Version	dd aColorDialog_Version

        dd      0

        dd      0

aOpenDialog_Init	db 'OpenDialog_init',0

aOpenDialog_Start	db 'OpenDialog_start',0

;aOpenDialog_Version	db 'Version_OpenDialog',0

;aColorDialog_Init	db 'ColorDialog_init',0

;aColorDialog_Start	db 'ColorDialog_start',0

;aColorDialog_Version	db 'Version_ColorDialog',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

;Frame_draw		dd sz_Frame_draw

;Version_frame		dd szVersion_frame

			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

;sz_Frame_draw		db 'frame_draw',0

;szVersion_frame	db 'version_frame',0

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

PathShow_data:

.type			dd 0	;+0

.start_y		dw 5+4	;+4

.start_x		dw 5+5	;+6

.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1

.area_size_x		dw 400-30	;+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 fname	;+28

.work_area_pointer	dd text_work_area	;+32

.temp_text_length	dd 0	;+36

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

OpenDialog_data:

.type			dd 0

.procinfo		dd process_info	;+4

.com_area_name		dd communication_area_name	;+8

.com_area		dd 0	;+12

.opendir_pach		dd temp_dir_pach	;+16

.dir_default_pach	dd communication_area_default_pach	;+20

.start_path		dd open_dialog_path	;+24

.draw_window		dd draw_window	;+28

.status			dd 0	;+32

.openfile_pach 		dd fname	;+36

.filename_area		dd filename_area	;+40

.filter_area		dd Filter

.x:

.x_size			dw 420 ;+48 ; Window X size

.x_start		dw 10 ;+50 ; Window X position

.y:

.y_size			dw 320 ;+52 ; Window y size

.y_start		dw 10 ;+54 ; Window Y position

communication_area_name:

	db 'FFFFFFFF_open_dialog2',0

open_dialog_path:

if __nightbuild eq yes

	db '/sys/MANAGERS/opendial',0

else

	db '/sys/File Managers/opendial',0

end if

communication_area_default_pach:

	db '/sys',0

Filter:

dd	Filter.end - Filter.1

.1:

;db	'BIN',0

;db	'DAT',0

.end:

db	0

start_temp_file_name:

	db 'default.dtp',0

default_dtp:

	db '/sys/default.dtp',0

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

sector equ 512

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

result_table:

	dd a512b, 0, sector*1

	dd a1K, 1, sector*2

	dd a2K, 2, sector*4

	dd a4K, 3, sector*8

	dd a8K, 4, sector*16

	dd a16K, 5, sector*32

	dd a32K, 6, sector*64

	dd a64K, 7, sector*128

	dd a128K, 8, sector*256

	dd a256K, 9, sector*512

	dd a512K, 10, sector*1024

	dd a1M, 11, sector*2*1024

	dd a2M, 12, sector*4*1024

	dd a4M, 13, sector*8*1024

	dd a8M, 14, sector*16*1024

	dd a16M, 15, sector*32*1024

	dd a32M, 16, sector*64*1024

	dd a64M, -1, sector*128*1024

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

a512b	db ' 512',0

a1K	db '  1K',0

a2K	db '  2K',0

a4K	db '  4K',0

a8K	db '  8K',0

a16K	db ' 16K',0

a32K	db ' 32K',0

a64K	db ' 64K',0

a128K	db '128K',0

a256K	db '256K',0

a512K	db '512K',0

a1M	db '  1M',0

a2M	db '  2M',0

a4M	db '  4M',0

a8M	db '  8M',0

a16M	db ' 16M',0

a32M	db ' 32M',0

a64M	db ' 64M',0

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

align 4

fileinfo:

.subfunction	dd 5

.offset		dd 0

.offset_1	dd 0

.size		dd 0

.return		dd file_info

		db 0

.name:		dd fname

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

align 4

fileread:

.subfunction	dd 0

.offset		dd 0

.offset_1	dd 0

.size		dd 0

.return		dd process_info

		db 0

.name:		dd fname

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