From bd8bfe32653201b530d338860564b53d0cdf69d7 Mon Sep 17 00:00:00 2001 From: "Marat Zakiyanov (Mario79)" Date: Tue, 7 Sep 2010 20:43:41 +0000 Subject: [PATCH] RDsave: 1) select path with OpenDialog 2) keys 1,2,3,4 for select options git-svn-id: svn://kolibrios.org@1606 a494cfbc-eb01-0410-851d-a64ba20cac60 --- programs/system/rdsave/trunk/build.sh | 13 + programs/system/rdsave/trunk/build_en.bat | 1 + programs/system/rdsave/trunk/build_et.bat | 1 + programs/system/rdsave/trunk/build_ru.bat | 1 + programs/system/rdsave/trunk/rdsave.asm | 704 ++++++++++++++-------- 5 files changed, 483 insertions(+), 237 deletions(-) create mode 100755 programs/system/rdsave/trunk/build.sh diff --git a/programs/system/rdsave/trunk/build.sh b/programs/system/rdsave/trunk/build.sh new file mode 100755 index 000000000..ff76120ef --- /dev/null +++ b/programs/system/rdsave/trunk/build.sh @@ -0,0 +1,13 @@ +#!/bin/bash +# This script does for linux the same as build.bat for DOS, +# it compiles the KoOS kernel, hopefully ;-) + + echo "lang fix en" + echo "lang fix en" > lang.inc + fasm -m 16384 rdsave.asm rdsave + rm -f lang.inc + exit 0 + + + + diff --git a/programs/system/rdsave/trunk/build_en.bat b/programs/system/rdsave/trunk/build_en.bat index a93dd62c0..a778504f6 100644 --- a/programs/system/rdsave/trunk/build_en.bat +++ b/programs/system/rdsave/trunk/build_en.bat @@ -1,5 +1,6 @@ @erase lang.inc @echo lang fix en >lang.inc @fasm rdsave.asm rdsave +@kpack rdsave @erase lang.inc @pause \ No newline at end of file diff --git a/programs/system/rdsave/trunk/build_et.bat b/programs/system/rdsave/trunk/build_et.bat index a0e9adda6..3ab693ff0 100644 --- a/programs/system/rdsave/trunk/build_et.bat +++ b/programs/system/rdsave/trunk/build_et.bat @@ -1,5 +1,6 @@ @erase lang.inc @echo lang fix et >lang.inc @fasm rdsave.asm rdsave +@kpack rdsave @erase lang.inc @pause \ No newline at end of file diff --git a/programs/system/rdsave/trunk/build_ru.bat b/programs/system/rdsave/trunk/build_ru.bat index 1873b3582..31ae125fc 100644 --- a/programs/system/rdsave/trunk/build_ru.bat +++ b/programs/system/rdsave/trunk/build_ru.bat @@ -1,5 +1,6 @@ @erase lang.inc @echo lang fix ru >lang.inc @fasm rdsave.asm rdsave +@kpack rdsave @erase lang.inc @pause \ No newline at end of file diff --git a/programs/system/rdsave/trunk/rdsave.asm b/programs/system/rdsave/trunk/rdsave.asm index ced142949..972b663df 100644 --- a/programs/system/rdsave/trunk/rdsave.asm +++ b/programs/system/rdsave/trunk/rdsave.asm @@ -1,6 +1,12 @@ ; ; RDsave для Kolibri (0.6.5.0 и старше) -; +; +; version: 1.3 +; last update: 08/09/2010 +; written by: Marat Zakiyanov aka Mario79, aka Mario +; changes: select path with OpenDialog, +; keys 1,2,3,4 for select options +;--------------------------------------------------------------------- ; Mario79 2005 ; Heavyiron 12.02.2007 ; 11.05.2009 - для работы нужна системная библиотека box_lib.obj @@ -11,19 +17,19 @@ include 'lang.inc' include '..\..\..\macros.inc' appname equ 'RDsave ' -version equ '1.2' +version equ '1.3' - use32 ; включить 32-битный режим ассемблера - org 0x0 ; адресация с нуля +use32 ; включить 32-битный режим ассемблера +org 0x0 ; адресация с нуля - db 'MENUET01' ; 8-байтный идентификатор MenuetOS - dd 0x01 ; версия заголовка (всегда 1) - dd START ; адрес первой команды - dd I_END ; размер программы - dd I_END ; количество памяти - dd I_END ; адрес вершины стэка - dd 0x0 ; адрес буфера для параметров (не используется) - dd cur_dir_path + db 'MENUET01' ; 8-байтный идентификатор MenuetOS + dd 0x01 ; версия заголовка (всегда 1) + dd START ; адрес первой команды + dd IM_END ; размер программы + dd I_END ; количество памяти + dd stacktop ; адрес вершины стэка + dd 0x0 ; адрес буфера для параметров (не используется) + dd cur_dir_path ;include '..\..\..\develop\examples\editbox\trunk\editbox.inc' include '../../../develop/libraries/box_lib/load_lib.mac' @@ -39,337 +45,561 @@ include '../../../develop/libraries/box_lib/trunk/box_lib.mac' ;--------------------------------------------------------------------- align 4 START: -sys_load_library library_name, cur_dir_path, library_path, system_path, \ -err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i + mcall 68,11 + +load_libraries l_libs_start,end_l_libs + cmp eax,-1 jz close + mov edi,filename_area + mov esi,start_temp_file_name + xor eax,eax + cld +@@: + lodsb + stosb + test eax,eax + jnz @b - mov eax, 40 - mov ebx, 100111b - mcall + + mov edi,fname_buf + mov esi,path4 + xor eax,eax + cld +@@: + lodsb + stosb + test eax,eax + jnz @b + +;OpenDialog initialisation + push dword OpenDialog_data + call [OpenDialog_Init] + +; prepare for PathShow + push dword PathShow_data_1 + call [PathShow_prepare] + + mcall 40,100111b red: ; перерисовать окно - mov eax,48 - mov ebx,3 - mov ecx,sc - mov edx,sizeof.system_colors - mcall - edit_boxes_set_sys_color editbox,editbox_end,sc - call draw_window ; вызываем процедуру отрисовки окна + mcall 48,3,sc,sizeof.system_colors + call draw_window ; вызываем процедуру отрисовки окна ;--------------------------------------------------------------------- ;--- ЦИКЛ ОБРАБОТКИ СОБЫТИЙ ---------------------------------------- ;--------------------------------------------------------------------- - still: - mcall 10 + mcall 10 - dec eax ; перерисовать окно? - jz red ; если да - на метку red - dec eax - jz key - dec eax - jz button - -mouse: -; mouse_edit_box editbox - push dword editbox - call [edit_box_mouse] + dec eax ; перерисовать окно? + jz red ; если да - на метку red + dec eax + jz key + dec eax + jz button jmp still - +;--------------------------------------------------------------------- button: - mov al,17 ; получить идентификатор нажатой кнопки - mcall - - cmp ah,1 ; кнопка с id=1("закрыть")? - jne noclose + mcall 17 ; получить идентификатор нажатой кнопки + cmp ah,1 ; кнопка с id=1("закрыть")? + jne noclose close: - or eax,-1 ; функция -1: завершить программу - mcall + or eax,-1 ; функция -1: завершить программу + mcall noclose: push eax call clear_err pop eax push 16 - xor ebx, ebx + xor ebx,ebx inc ebx ; 16.1 = save to /FD/1 - cmp ah, 2 + cmp ah,2 je doit inc ebx ; 16.2 = save to /FD/2 - cmp ah, 3 + cmp ah,3 je doit pop ebx push 18 - mov bl, 6 ; 18.6 = save to specified folder + mov bl,6 ; 18.6 = save to specified folder mov ecx, path3 - cmp ah, 4 + cmp ah,4 je doit - mov ecx, path4 + +; invoke OpenDialog + push dword OpenDialog_data + call [OpenDialog_Start] + cmp [OpenDialog_data.status],1 + jne still + +; prepare for PathShow + push dword PathShow_data_1 + call [PathShow_prepare] + + call draw_PathShow + + mov ecx,fname_buf ;path4 doit: pop eax mcall call check_for_error jmp still - -key: - mov al,2 - mcall -; key_edit_box editbox - push dword editbox - call [edit_box_key] - - jmp still - - +;--------------------------------------------------------------------- +key: + mcall 2 + cmp ah,0x31 + jb still + cmp ah,0x34 + ja still + sub ah,0x30 + inc ah + jmp noclose +;--------------------------------------------------------------------- check_for_error: ;Обработчик ошибок - mov ecx, [sc.work_text] - mov edx, ok - test eax, eax + mov ecx,[sc.work_text] + mov edx,ok + test eax,eax jz print - mov ecx, 0xdd2222 - add edx, error3 - ok + mov ecx,0xdd2222 + add edx,error3 - ok dec eax dec eax jz print - add edx, error5 - error3 + add edx,error5 - error3 dec eax dec eax jz print - add edx, error8 - error5 + add edx,error8 - error5 dec eax dec eax dec eax jz print - add edx, error9 - error8 + add edx,error9 - error8 dec eax jz print - add edx, error10 - error9 + add edx,error10 - error9 dec eax jz print - add edx, error11 - error10 + add edx,error11 - error10 dec eax jz print - add edx, aUnknownError - error11 - - print: - mov eax,4 ;надписи - mov ebx,20 shl 16 + 148 - or ecx,0x80000000 - mcall - ret - + add edx,aUnknownError - error11 +print: + mov eax,4 ;надписи + mov ebx,20 shl 16 + 148 + or ecx,0x80000000 + mcall + ret +;--------------------------------------------------------------------- clear_err: - mov eax,13 - mov ebx,15 shl 16 + 240 - mov ecx,145 shl 16 +15 - mov edx,[sc.work] - mcall - ret - + mov eax,13 + mov ebx,15 shl 16 + 240 + mov ecx,145 shl 16 +15 + mov edx,[sc.work] + mcall + ret +;--------------------------------------------------------------------- +draw_PathShow: + pusha + mcall 13,<8,172>,<110,15>,0xffffff +; draw for PathShow + push dword PathShow_data_1 + call [PathShow_draw] + popa + ret ;--------------------------------------------------------------------- ;--- ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА ---------------------------------- ;--------------------------------------------------------------------- - draw_window: - - mov eax,12 ; функция 12: сообщить ОС об отрисовке окна - mov bl,1 ; 1 - начинаем рисовать - mcall - + mcall 12,1 ; функция 12: сообщить ОС об отрисовке окна + ; 1 - начинаем рисовать ; СОЗДАЁМ ОКНО - xor eax,eax ; функция 0 : определить и отрисовать окно - mov ebx,200 shl 16 + 270 ; [x старт] *65536 + [x размер] - mov ecx,200 shl 16 + 190 ; [y старт] *65536 + [y размер] - mov edx,[sc.work] ; цвет рабочей области RRGGBB,8->color gl - or edx,0x34000000 - mov edi,title ; ЗАГОЛОВОК ОКНА - mcall + xor eax,eax ; функция 0 : определить и отрисовать окно + mov ebx,200 shl 16 + 300 ; [x старт] *65536 + [x размер] + mov ecx,200 shl 16 + 190 ; [y старт] *65536 + [y размер] + mov edx,[sc.work] ; цвет рабочей области RRGGBB,8->color gl + or edx,0x34000000 + mov edi,title ; ЗАГОЛОВОК ОКНА + mcall - push dword editbox - call [edit_box_draw] + call draw_PathShow -;draw_edit_box editbox ;рисование edit box +;отрисовка теней кнопок + mcall 13,<194,60>,<34,15>,0x444444 - mov al,13 ;отрисовка теней кнопок - mov ebx,194 shl 16 + 60 - mov ecx,34 shl 16 +15 - mov edx,0x444444 - mcall + add ecx,20 shl 16 + mcall - add ecx,20 shl 16 - mcall + add ecx,20 shl 16 + mcall - add ecx,20 shl 16 - mcall + add ecx,40 shl 16 + mcall +;отрисовка кнопок + sub ebx,4 shl 16 + sub ecx,4 shl 16 + mcall 8,,,5,[sc.work_button] - add ecx,40 shl 16 - mcall + sub ecx,40 shl 16 + dec edx + mcall - mov eax,8 ;отрисовка кнопок - sub ebx,4 shl 16 - sub ecx,4 shl 16 - mov edx,5 - mov esi,[sc.work_button] - mcall + sub ecx,20 shl 16 + dec edx + mcall - sub ecx,40 shl 16 - dec edx - mcall + sub ecx,20 shl 16 + dec edx + mcall +; надписи + mov ecx,[sc.work_text] + or ecx,0x80000000 + mcall 4,<45,12>,,label1 - sub ecx,20 shl 16 - dec edx - mcall + mov ebx,150 shl 16 + 35 + mov edx,path1 + mcall - sub ecx,20 shl 16 - dec edx - mcall + add ebx,20 + mov edx,path2 + mcall - mov al,4 ;надписи - mov ebx,45 shl 16 + 12 - mov ecx,[sc.work_text] - or ecx,0x80000000 - mov edx,label1 - mcall + mov ebx,75 shl 16 + 75 + mov edx,path3 + mcall - mov ebx,150 shl 16 + 35 - mov edx,path1 - mcall + mov ebx,30 shl 16 + 97 + mov edx,label2 + mcall - add ebx,20 - mov edx,path2 - mcall + mov ebx,40 shl 16 + 135 + mov edx,label3 + mcall - mov ebx,75 shl 16 + 75 - mov edx,path3 - mcall + mov ecx,[sc.work_button_text] + or ecx,0x80000000 + mov ebx,195 shl 16 + 35 + mov edx,save + mcall - mov ebx,30 shl 16 + 97 - mov edx,label2 - mcall + push edx + mov edx,key_help + call key_help_correct + pop edx - mov ebx,40 shl 16 + 135 - mov edx,label3 - mcall + add ebx,20 + mcall - mov ecx,[sc.work_button_text] - or ecx,0x80000000 - mov ebx,195 shl 16 + 35 - mov edx,save - mcall + push edx + mov edx,key_help+2 + call key_help_correct + pop edx - add ebx,20 - mcall + add ebx,20 + mcall - add ebx,20 - mcall + push edx + mov edx,key_help+4 + call key_help_correct + pop edx - add ebx,40 - mcall - - mov al,12 ; функция 12: сообщить ОС об отрисовке окна - mov ebx,2 ; 2, закончили рисовать - mcall - - ret ; выходим из процедуры + mov edx,select + add ebx,40 + mcall + mov edx,key_help+6 + call key_help_correct + mcall 12,2 ; функция 12: сообщить ОС об отрисовке окна + ; 2, закончили рисовать + ret ; выходим из процедуры +;--------------------------------------------------------------------- +key_help_correct: + push ebx + ror ebx,16 + mov bx,270 + rol ebx,16 + pusha + mov ecx,ebx + sub ebx,3 shl 16 + mov bx,13 + sub cx,3 + shl ecx,16 + mov cx,13 + mcall 13,,,0xffffff + popa + mcall + pop ebx + ret ;--------------------------------------------------------------------- ;--- ДАННЫЕ ПРОГРАММЫ ---------------------------------------------- ;--------------------------------------------------------------------- -title db appname,version,0 - -editbox: -edit1 edit_box 170,10,113,0xffffff,0xaabbcc,0,0,0,512,path4,mouse_dd,ed_focus,26,26 -editbox_end: +title db appname,version,0 +;--------------------------------------------------------------------- +PathShow_data_1: +.type dd 0 ;+0 +.start_y dw 113 ;+4 +.start_x dw 10 ;+6 +.font_size_x dw 6 ;+8 ; 6 - for font 0, 8 - for font 1 +.area_size_x dw 170 ;+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_buf ;+28 +.work_area_pointer dd text_work_area ;+32 +.temp_text_length dd 0 ;+36 +;--------------------------------------------------------------------- if lang eq ru -save db 'Сохранить',0 -label1 db 'Выберите один из вариантов:',0 -label2 db 'Или введите полный путь к файлу:',0 -label3 db 'Все папки должны существовать',0 -ok db 'RAM-диск сохранен успешно',0 -error3 db 'Неизвестная файловая система',0 -error5 db 'Несуществующий путь',0 -error8 db 'Нет места на диске',0 -error9 db 'Таблица FAT разрушена',0 -error10 db 'Доступ запрещен',0 -error11 db 'Ошибка устройства',0 -aUnknownError db 'Неизвестная ошибка',0 +save db 'Сохранить',0 +select db ' Выбрать',0 +label1 db 'Выберите один из вариантов:',0 +label2 db 'Или выберите полный путь к файлу:',0 +label3 db 'Все папки должны существовать',0 +ok db 'RAM-диск сохранен успешно',0 +error3 db 'Неизвестная файловая система',0 +error5 db 'Несуществующий путь',0 +error8 db 'Нет места на диске',0 +error9 db 'Таблица FAT разрушена',0 +error10 db 'Доступ запрещен',0 +error11 db 'Ошибка устройства',0 +aUnknownError db 'Неизвестная ошибка',0 +;--------------------------------------------------------------------- else if lang eq et -save db 'Salvesta',0 -label1 db 'Vali №ks variantidest:',0 -label2 db 'Vїi sisesta teekond failinimeni:',0 -label3 db 'Kїik kataloogid peavad eksisteerima',0 -ok db 'RAM-ketas salvestatud edukalt',0 -error3 db 'Tundmatu failis№steem',0 -error5 db 'Vigane teekond',0 -error8 db 'Ketas tфis',0 -error9 db 'FAT tabel vigane',0 -error10 db 'Juurdepффs keelatud',0 -error11 db 'Seadme viga',0 -aUnknownError db 'Tundmatu viga',0 - +save db 'Salvesta',0 +select db ' Valige',0 +label1 db 'Vali №ks variantidest:',0 +label2 db 'Vїi valige teekond failinimeni:',0 +label3 db 'Kїik kataloogid peavad eksisteerima',0 +ok db 'RAM-ketas salvestatud edukalt',0 +error3 db 'Tundmatu failis№steem',0 +error5 db 'Vigane teekond',0 +error8 db 'Ketas tфis',0 +error9 db 'FAT tabel vigane',0 +error10 db 'Juurdepффs keelatud',0 +error11 db 'Seadme viga',0 +aUnknownError db 'Tundmatu viga',0 +;--------------------------------------------------------------------- else -save db ' Save',0 -label1 db 'Select one of the variants:',0 -label2 db ' Or enter full path to file:',0 -label3 db ' All folders must exist',0 -ok db 'RAM-drive was saved successfully',0 -error3 db 'Unknown file system',0 -error5 db 'Incorrect path',0 -error8 db 'Disk is full',0 -error9 db 'FAT table corrupted',0 -error10 db 'Access denied',0 -error11 db 'Device error',0 -aUnknownError db 'Unknown error',0 +save db ' Save',0 +select db ' Select',0 +label1 db 'Select one of the variants:',0 +label2 db ' Or select full path to file:',0 +label3 db ' All folders must exist',0 +ok db 'RAM-drive was saved successfully',0 +error3 db 'Unknown file system',0 +error5 db 'Incorrect path',0 +error8 db 'Disk is full',0 +error9 db 'FAT table corrupted',0 +error10 db 'Access denied',0 +error11 db 'Device error',0 +aUnknownError db 'Unknown error',0 end if ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;DATA данные ;Всегда соблюдать последовательность в имени. -system_path db '/sys/lib/' -library_name db 'box_lib.obj',0 +system_dir_Boxlib db '/sys/lib/box_lib.obj',0 +system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0 head_f_i: head_f_l db 'System error',0 -err_message_import db 'Error on load import library box_lib.obj',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 + +;--------------------------------------------------------------------- +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: +;--------------------------------------------------------------------- +OpenDialog_data: +.type dd 1 ; Save +.procinfo dd procinfo ;+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_buf ;+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_dialog',0 +open_dialog_path: + db '/sys/File Managers/opendial',0 +communication_area_default_pach: + db '/hd0/1/kolibri',0 + +Filter: +dd Filter.end - Filter.1 +.1: +db 'IMG',0 +db 'IMA',0 +.end: +db 0 + +start_temp_file_name: db 'kolibri.img',0 + +;--------------------------------------------------------------------- align 4 -myimport: - -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 - - dd 0 - dd 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 +ProcLib_import: +OpenDialog_Init dd aOpenDialog_Init +OpenDialog_Start dd aOpenDialog_Start +;OpenDialog__Version dd aOpenDialog_Version + dd 0 + dd 0 +aOpenDialog_Init db 'OpenDialog_init',0 +aOpenDialog_Start db 'OpenDialog_start',0 +;aOpenDialog_Version db 'Version_OpenDialog',0 +;--------------------------------------------------------------------- +align 4 +Box_lib_import: +;init_lib dd a_init +;version_lib dd a_version -;mouse_flag: dd 0x0 +;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 +;--------------------------------------------------------------------- path1 db '/fd/1/',0 path2 db '/fd/2/',0 path3 db '/hd0/1/kolibri.img',0 path4 db '/hd0/1/kolibri/kolibri.img',0 ;для резервного сохранения - ;--------------------------------------------------------------------- - -rb 514 - +key_help: + db '1',0 + db '2',0 + db '3',0 + db '4',0 +;--------------------------------------------------------------------- +IM_END: +;--------------------------------------------------------------------- sc system_colors mouse_dd rd 1 -cur_dir_path rb 1096 -library_path rb 1096 +;--------------------------------------------------------------------- +cur_dir_path: + rb 4096 +;--------------------------------------------------------------------- +library_path: + rb 4096 +;--------------------------------------------------------------------- +temp_dir_pach: + rb 4096 +;--------------------------------------------------------------------- +fname_buf: + rb 4096 +;--------------------------------------------------------------------- +procinfo: + rb 1024 +;--------------------------------------------------------------------- +filename_area: + rb 256 +;--------------------------------------------------------------------- +text_work_area: + rb 1024 +;--------------------------------------------------------------------- align 4 -rb 0x100 ; for stack -I_END: ; метка конца программы + rb 4096 +stacktop: +I_END: ; метка конца программы