Subversion Repositories Kolibri OS

Rev

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

  1. ;Огромная благодарность Maxxxx32, Diamond, Heavyiron
  2. ;и другим программистам, а также
  3. ;Теплову Алексею (<Lrz> www.lrz.land.ru)
  4.  
  5.  
  6. use32
  7.   org 0x0
  8.   db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
  9.   dd 0x01
  10.   dd start
  11.   dd i_end ; размер приложения
  12.   dd mem
  13.   dd stacktop
  14.   dd file_name ; command line
  15.   dd sys_path
  16.  
  17. MAX_COLOR_WORD_LEN equ 40
  18. maxChars equ 100002 ;(...+2)
  19. BUF_SIZE equ 4096 ;buffer for copy|paste
  20. maxSyntaxFileSize equ 410000
  21.  
  22. include '../../proc32.inc'
  23. ;include '../../config.inc'
  24. include '../../macros.inc'
  25. include '../../dll.inc'
  26. include '../../develop/libraries/box_lib/load_lib.mac'
  27. include '../../develop/libraries/box_lib/trunk/box_lib.mac'
  28. include '../../system/desktop/trunk/kglobals.inc'
  29. include '../../system/desktop/trunk/unpacker.inc'
  30. include 'lang.inc'
  31.  
  32. include 't_data.inc'
  33. include 'strlen.inc'
  34. include 't_draw.inc' ;draw main window functions
  35. include 't_button.inc' ;text work functions
  36. include 'wnd_k_words.inc'
  37.  
  38. @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
  39.  
  40.  
  41. ;Макрос для загрузки изображений с использованием библиотеки libimg.obj
  42. ;для использования макроса нужны переменные:
  43. ; - run_file_70 FileInfoBlock
  44. ; - image_data dd 0
  45. macro load_image_file path,buf,size
  46. {
  47.         ;path - может быть переменной или строковым параметром
  48.         if path eqtype '' ;проверяем задан ли строкой параметр path
  49.                 jmp @f
  50.                         local .path_str
  51.                         .path_str db path ;формируем локальную переменную
  52.                         db 0
  53.                 @@:
  54.                 ;32 - стандартный адрес по которому должен быть буфер с системным путем
  55.                 copy_path .path_str,[32],file_name,0x0
  56.         else
  57.                 copy_path path,[32],file_name,0x0 ;формируем полный путь к файлу изображения, подразумеваем что он в одной папке с программой
  58.         end if
  59.  
  60.         stdcall mem.Alloc, dword size ;выделяем память для изображения
  61.         mov [buf],eax
  62.  
  63.         mov eax,70 ;70-я функция работа с файлами
  64.         mov [run_file_70.Function], 0
  65.         mov [run_file_70.Position], 0
  66.         mov [run_file_70.Flags], 0
  67.         mov [run_file_70.Count], dword size
  68.         m2m [run_file_70.Buffer], [buf]
  69.         mov byte[run_file_70+20], 0
  70.         mov [run_file_70.FileName], file_name
  71.         mov ebx,run_file_70
  72.         int 0x40 ;загружаем файл изображения
  73.         cmp ebx,0xffffffff
  74.         je @f
  75.                 ;определяем вид изображения и переводим его во временный буфер image_data
  76.                 stdcall dword[img_decode], dword[buf],ebx,0
  77.                 mov dword[image_data],eax
  78.                 ;преобразуем изображение к формату rgb
  79.                 stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
  80.                 ;удаляем временный буфер image_data
  81.                 stdcall dword[img_destroy], dword[image_data]
  82.         @@:
  83. }
  84.  
  85. image_data dd 0 ;указатель на временную память. для нужен преобразования изображения
  86. icon_tl_sys dd 0 ;указатель на память для хранения системных иконок
  87.  
  88. align 4
  89. start:
  90.   mcall 48,3,sc,sizeof.system_colors
  91.  
  92.   mcall 68,11
  93.   or eax,eax
  94.   jz button.exit
  95.  
  96.   mcall 66,1,1 ;scan code
  97.   mcall 40,0xC0000027
  98.  
  99.   mov esi,file_name
  100.   call strlen
  101.   mov ecx,eax
  102.   mov edi,openfile_path
  103.   cld
  104.   rep movsb ;копируем имя файла в буфер edit1
  105.  
  106. load_libraries l_libs_start,load_lib_end
  107.  
  108. ;проверка на сколько удачно загузились библиотеки
  109.         mov     ebp,lib0
  110.         cmp     dword [ebp+ll_struc_size-4],0
  111.         jz      @f
  112.         mcall -1 ;exit not correct
  113. @@:
  114.         mov     ebp,lib1 ;
  115.         cmp     dword [ebp+ll_struc_size-4],0
  116.         jz      @f
  117.         mcall -1 ;exit not correct
  118. @@:
  119.  
  120.         cmp dword[version_text_edit],3
  121.         jge @f
  122.                 stdcall [mb_create],msgbox_10,thread
  123.                 mcall -1
  124.         @@:
  125.  
  126. ;---------------------------------------------------------------------
  127.         stdcall [ted_init], tedit0
  128.         stdcall dword[tl_data_init], tree1
  129.  
  130. ; OpenDialog initialisation
  131.         stdcall [OpenDialog_Init],OpenDialog_data
  132.  
  133. ; init toolbar file
  134.         load_image_file 'te_icon.png', bmp_icon,1200*18
  135. ;---------------------------------------------------------------------
  136. ; читаем файл с курсорами и линиями
  137.         load_image_file 'tl_sys_16.png', icon_tl_sys,54+3*256*13
  138.         mov eax,dword[icon_tl_sys]
  139.         mov dword[tree1.data_img_sys],eax
  140. ;---------------------------------------------------------------------
  141. ; читаем файл с иконками узлов
  142.         load_image_file 'tl_nod_16.png', icon_tl_sys,54+3*256*2
  143.         mov eax,dword[icon_tl_sys]
  144.         mov dword[tree1.data_img],eax
  145. ;------------------------------------------------------------------------------
  146.   copy_path fn_syntax_dir,sys_path,file_name,0x0 ;берем путь к папке с файлами синтаксиса
  147.   mov eax,70
  148.   mov ebx,tree_file_struct
  149.   int 0x40
  150.  
  151. cmp ebx,-1
  152. je .end_dir_init
  153.  
  154.   mov eax,dir_mem
  155.   add eax,32+4+1+3+4*6+8
  156. mov ecx,ebx
  157. @@:
  158.   cmp byte[eax],'.' ;фильтруем файлы с именами '.' и '..'
  159.   je .filter
  160.     ;0x10000 ;1*2^16 - где 1 номер иконки с книгой
  161.     stdcall dword[tl_node_add], eax,0x10000, tree1
  162.  
  163.     stdcall dword[tl_cur_next], tree1
  164.   .filter:
  165.   add eax,304
  166.   loop @b
  167.   stdcall dword[tl_cur_beg],tree1 ;ставим курсор на начало списка
  168. .end_dir_init:
  169.  
  170. ;--- load ini file ---
  171.         copy_path ini_name,sys_path,file_name,0
  172.         ;window startup pozition
  173.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l
  174.         mov word[wnd_s_pos+2],ax
  175.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w
  176.         mov word[wnd_s_pos],ax
  177.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t
  178.         mov word[wnd_s_pos+6],ax
  179.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h
  180.         mov word[wnd_s_pos+4],ax
  181.         ;scrool type
  182.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type
  183.         mov [wScr.type],eax
  184.         mov [hScr.type],eax
  185.         mov [ws_dir_lbox.type],eax
  186.     mov [w_scr_t3.type],eax
  187.         ;symbol size
  188.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w
  189.         mov dword[tedit0.rec.width],eax
  190.         stdcall dword[ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h
  191.         mov dword[tedit0.rec.height],eax
  192.         lea eax,[eax+eax*2]
  193.         mov dword[tedit0.rec.top],eax
  194.         ;файловые расширения
  195.         xor edx,edx
  196.         mov ebx,synt_auto_open
  197.         @@:
  198.                 ;берем имя файла
  199.                 stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f
  200.                 cmp byte[ebx],0
  201.                 je @f
  202.                 inc byte[key_synt_file.numb]
  203.                 add ebx,32
  204.                 ;берем расширения
  205.                 stdcall dword[ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f
  206.                 inc byte[key_synt_ext.numb]
  207.                 add ebx,32
  208.                 inc edx
  209.                 cmp edx,max_synt_auto_open
  210.                 jl @b
  211.         @@:
  212.  
  213. ;--- load color option file ---
  214.         mov ebx,dword[fn_col_option]
  215.         call open_unpac_synt_file
  216.  
  217. ;--- get cmd line ---
  218.         cmp byte[openfile_path+3],0 ;openfile_path
  219.         je @f ;if file names exist
  220.                 mov esi,openfile_path
  221.                 call strlen ;eax=strlen
  222.                 mov [edit1.size],eax
  223.                 call but_no_msg_OpenFile
  224.         @@:
  225.  
  226.  
  227.  
  228. align 4
  229. red_win:
  230.   call draw_window
  231.  
  232. align 4
  233. still:
  234.         mcall 10
  235.  
  236.         cmp al,1 ;изменилось положение окна
  237.         jz red_win
  238.         cmp al,2
  239.         jz key
  240.         cmp al,3
  241.         jz button
  242.         cmp al,6 ;мышь
  243.         jne @f
  244.                 jmp mouse
  245.         @@:
  246.         jmp still
  247.  
  248. align 4
  249. draw_window:
  250.         mcall 12,1
  251.  
  252.         mov edx,[sc.work]
  253.         or  edx,0x73000000
  254.         mov edi,hed
  255.         mcall 0,dword[wnd_s_pos],dword[wnd_s_pos+4]
  256.  
  257.         mcall 9,procinfo,-1
  258.         mov edi,tedit0 ;значение edi нужно для EvSize и ted_wnd_t
  259.         call EvSize
  260.  
  261.         mov eax,13 ;верхний прямоугольник, для очистки верхней панели
  262.         xor ebx,ebx
  263.         mov ecx,ted_wnd_t
  264.         mov bx,word[procinfo.client_box.width]
  265.         inc bx
  266.         int 0x40
  267.  
  268.         mov eax,4
  269.         mov ebx,185*65536+9
  270.         mov ecx,[sc.work_text]
  271.         or  ecx,0x80000000
  272.         mov edx,txtFile
  273.         int 0x40
  274.  
  275.   stdcall [edit_box_draw], dword edit1
  276.   stdcall [menu_bar_draw], dword menu_data_1
  277.  
  278.   call draw_but_toolbar
  279.  
  280.   stdcall [ted_draw], tedit0
  281.  
  282.   mcall 12,2
  283.   ret
  284.  
  285. align 4
  286. mouse:
  287.         stdcall [edit_box_mouse], dword edit1
  288.  
  289.         test word [edit1.flags],10b ;ed_focus ;если не в фокусе, выходим
  290.         jne still
  291.  
  292.         stdcall [ted_mouse], tedit0
  293.  
  294.         cmp byte[tedit0.panel_id],TED_PANEL_FIND ;if not panel
  295.         jne @f
  296.                 stdcall [edit_box_mouse], dword edit2
  297.         @@:
  298.         cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX ;if not panel
  299.         jne .menu_bar_1 ;@f
  300.         stdcall [tl_mouse], tree1
  301. ;-----------------------------------------------
  302. .menu_bar_1:
  303.         mov [menu_data_1.get_mouse_flag],1
  304. ; mouse event for Menu 1
  305.         stdcall [menu_bar_mouse],dword menu_data_1
  306.         cmp dword[menu_data_1.click],1
  307.         jne .mnu_1
  308.         cmp dword[menu_data_1.cursor_out],4
  309.         je button.exit 
  310.         cmp dword[menu_data_1.cursor_out],3
  311.         jne @f
  312.                 stdcall [ted_but_save_file], tedit0,run_file_70,[edit1.text]
  313.         @@:
  314.         cmp dword[menu_data_1.cursor_out],2
  315.         jne @f
  316.                 call ted_but_open_file
  317.         @@:
  318.         cmp dword[menu_data_1.cursor_out],1
  319.         jne @f
  320.                 call ted_but_new_file
  321.         @@:
  322. .mnu_1:
  323.         jmp still
  324. ;---------------------------------------------------------------------
  325.  
  326. ;output:
  327. ; ah = symbol
  328. align 4
  329. proc KeyConvertToASCII, table:dword
  330.   push ebx
  331.   mov ebx,dword[table] ;convert scan to ascii
  332.   ror ax,8
  333.   xor ah,ah
  334.   add bx,ax
  335.   mov ah,byte[ebx]
  336.   pop ebx
  337.   ret
  338. endp
  339.  
  340. align 4
  341. key:
  342.   mcall 66,3 ;66.3 получить состояние управляющих клавиш
  343.   xor esi,esi
  344.   mov ecx,1
  345.   test al,0x03 ;[Shift]
  346.   jz @f
  347.     mov cl,2
  348.     or esi,KM_SHIFT
  349.   @@:
  350.   test al,0x0c ;[Ctrl]
  351.   jz @f
  352.     or esi,KM_CTRL
  353.   @@:
  354.   test al,0x30 ;[Alt]
  355.   jz @f
  356.     mov cl,3
  357.     or esi,KM_ALT
  358.   @@:
  359.   test al,0x80 ;[NumLock]
  360.   jz @f
  361.     or esi,KM_NUMLOCK
  362.   @@:
  363.  
  364.   mcall 26,2,,conv_tabl ;26.2 получить раскладку клавиатуры
  365.   mcall 2 ;получаем код нажатой клавиши
  366.   stdcall [tl_key], tree1
  367.  
  368.   test word [edit1.flags],10b;ed_focus ; если не в фокусе, выходим
  369.   je @f
  370.     cmp ah,0x80 ;if key up
  371.     ja still
  372.     cmp ah,42 ;[Shift] (left)
  373.     je still
  374.     cmp ah,54 ;[Shift] (right)
  375.     je still
  376.     cmp ah,56 ;[Alt]
  377.     je still
  378.     cmp ah,29 ;[Ctrl]
  379.     je still
  380.     cmp ah,69 ;[Pause Break]
  381.     je still
  382.  
  383.     stdcall KeyConvertToASCII, dword conv_tabl
  384.     stdcall [edit_box_key], dword edit1
  385.     jmp still
  386.   @@:
  387.  
  388.   test word [edit2.flags],10b;ed_focus ; если не в фокусе, выходим
  389.   je @f
  390.     cmp ah,0x80 ;if key up
  391.     ja still
  392.     cmp ah,42 ;[Shift] (left)
  393.     je still
  394.     cmp ah,54 ;[Shift] (right)
  395.     je still
  396.     cmp ah,56 ;[Alt]
  397.     je still
  398.     cmp ah,29 ;[Ctrl]
  399.     je still
  400.     cmp ah,69 ;[Pause Break]
  401.     je still
  402.  
  403.     stdcall KeyConvertToASCII, dword conv_tabl
  404.     stdcall [edit_box_key], dword edit2
  405.     jmp still
  406.   @@:
  407.  
  408.   stdcall [ted_key], tedit0, conv_tabl,esi
  409.   jmp still
  410.  
  411. align 4
  412. button:
  413. ;  cmp [menu_active],1 ;если нажали меню, то сначала реакция на меню
  414. ;  jne @f ;mouse.menu_bar_1
  415. ;    mov [menu_active],0
  416. ;    jmp still
  417. ;  @@:
  418.  
  419.   mcall 17 ;получить код нажатой кнопки
  420.   cmp ah,3
  421.   jne @f
  422.     call ted_but_new_file
  423.   @@:
  424.   cmp ah,4
  425.   jne @f
  426.     call ted_but_open_file
  427.   @@:
  428.   cmp ah,5
  429.   jne @f
  430.     stdcall [ted_but_save_file], tedit0,run_file_70,[edit1.text]
  431.   @@:
  432.   cmp ah,6
  433.   jne @f
  434.     stdcall [ted_but_select_word], tedit0
  435.   @@:
  436.   cmp ah,7
  437.   jne @f
  438.     stdcall [ted_but_cut], tedit0
  439.   @@:
  440.   cmp ah,8
  441.   jne @f
  442.     stdcall [ted_but_copy], tedit0
  443.   @@:
  444.   cmp ah,9
  445.   jne @f
  446.     stdcall [ted_but_paste], tedit0
  447.   @@:
  448.   cmp ah,10
  449.   jne @f
  450.     call ted_but_find
  451.   @@:
  452.   cmp ah,11
  453.   jne @f
  454.     call but_replace
  455.   @@:
  456.   cmp ah,12
  457.   jne @f
  458.     call but_find_key_w
  459.   @@:
  460.   cmp ah,13
  461.   jne @f
  462.     stdcall [ted_but_sumb_upper], tedit0
  463.   @@:
  464.   cmp ah,14
  465.   jne @f
  466.     stdcall [ted_but_sumb_lover], tedit0
  467.   @@:
  468.   cmp ah,15
  469.   jne @f
  470.     stdcall [ted_but_reverse], tedit0
  471.   @@:
  472.   cmp ah,16
  473.   jne @f
  474.     stdcall [ted_but_undo], tedit0
  475.   @@:
  476.   cmp ah,17
  477.   jne @f
  478.     stdcall [ted_but_redo], tedit0
  479.   @@:
  480.   cmp ah,18
  481.   jne @f
  482.     stdcall but_sumb_invis, tedit0
  483.   @@:
  484.   cmp ah,19
  485.   jne @f
  486.     stdcall but_k_words_show, tedit0
  487.   @@:
  488.   cmp ah,20
  489.   jne @f
  490.     stdcall but_synt_show, tedit0
  491.   @@:
  492.  
  493.   cmp ah,200
  494.   jne @f
  495.     stdcall ted_but_open_syntax, tedit0
  496.   @@:
  497.   cmp ah,201
  498.   jne @f
  499.     stdcall [ted_but_find_next], tedit0
  500.   @@:
  501.  
  502.   cmp ah,1
  503.   jne still
  504. .exit:
  505.         stdcall [ted_can_save], tedit0
  506.         cmp al,1
  507.         jne @f
  508.                 stdcall [mb_create],msgbox_8,thread ;message: save changes in file?
  509.                 jmp still
  510.         @@:
  511.         stdcall mem.Free,[bmp_icon]
  512.         cmp dword[unpac_mem],0
  513.         je @f
  514.                 stdcall mem.Free,[unpac_mem]
  515.         @@:
  516.  
  517.         stdcall [ted_delete], tedit0
  518.         stdcall dword[tl_data_clear], tree1
  519.         mcall -1 ;выход из программы
  520.  
  521.  
  522. edit1 edit_box 250, 220, 5, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 4090, openfile_path, mouse_dd, 0
  523. edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0
  524.  
  525. unpac_mem dd 0
  526.  
  527. if lang eq ru
  528.   head_f_i:
  529.   head_f_l db 'Системная ошибка',0
  530.   err_message_found_lib0 db 'Не найдена библиотека ',39,'box_lib.obj',39,0
  531.   err_message_import0 db 'Ошибка при импорте библиотеки ',39,'box_lib.obj',39,0
  532.   err_message_found_lib1 db 'Не найдена библиотека ',39,'msgbox.obj',39,0
  533.   err_message_import1 db 'Ошибка при импорте библиотеки ',39,'msgbox.obj',39,0
  534.   err_message_found_lib2 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0
  535.   err_message_import2 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0
  536.   err_message_found_lib_3 db 'Не найдена библиотека ',39,'libimg.obj',39,0
  537.   err_message_import_3 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0
  538.   err_message_found_lib_4 db 'Не найдена библиотека ',39,'libini.obj',39,0
  539.   err_message_import_4 db 'Ошибка при импорте библиотеки ',39,'libini.obj',39,0
  540. else
  541.   head_f_i:
  542.   head_f_l db 'System error',0
  543.   err_message_found_lib0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0
  544.   err_message_import0 db 'Error on load import library ',39,'box_lib.obj',39,0
  545.   err_message_found_lib1 db 'Sorry I cannot found library ',39,'msgbox.obj',39,0
  546.   err_message_import1 db 'Error on load import library ',39,'msgbox.obj',39,0
  547.   err_message_found_lib2 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0
  548.   err_message_import2 db 'Error on load import library ',39,'proc_lib.obj',39,0
  549.   err_message_found_lib_3 db 'Sorry I cannot found library ',39,'libimg.obj',39,0
  550.   err_message_import_3 db 'Error on load import library ',39,'libimg.obj',39,0
  551.   err_message_found_lib_4 db 'Sorry I cannot found library ',39,'libini.obj',39,0
  552.   err_message_import_4 db 'Error on load import library ',39,'libini.obj',39,0
  553. end if
  554.  
  555. ;library structures
  556. l_libs_start:
  557.         lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
  558.                 err_message_found_lib0, head_f_l, import_box_lib,err_message_import0, head_f_i
  559.         lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
  560.                 err_message_found_lib1, head_f_l, import_msgbox_lib, err_message_import1, head_f_i
  561.         lib2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\
  562.                 err_message_found_lib2, head_f_l, import_proclib, err_message_import2, head_f_i
  563.         lib3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
  564.                 err_message_found_lib_3, head_f_l, import_libimg, err_message_import_3, head_f_i
  565.         lib4 l_libs lib_name_4, sys_path, file_name, system_dir_4,\
  566.                 err_message_found_lib_4, head_f_l, import_libini, err_message_import_4, head_f_i
  567. load_lib_end:
  568.  
  569. IncludeIGlobals
  570. i_end:
  571.         dir_mem rb 32+304*count_of_dir_list_files
  572.         wnd_s_pos: ;место для настроек стартовой позиции окна
  573.                 rq 1
  574.         last_open_synt_file rb 32 ;имя последнего подключенного файла синтаксиса
  575.         buf rb BUF_SIZE ;буфер для копирования и вставки
  576.         buf_find rb 302 ;буфер для поиска текста
  577. IncludeUGlobals
  578.         align 16
  579.         procinfo process_information
  580.                 rb 1024
  581.         thread:
  582.         rb 1024
  583.     thread_coords:
  584.         rb 1024
  585. stacktop:
  586.         sys_path:
  587.                 rb 4096
  588.         file_name:
  589.                 rb 4096
  590.         file_name_rez:
  591.                 rb 4096
  592.         plugin_path:
  593.                 rb 4096
  594.         openfile_path:
  595.                 rb 4096
  596.         filename_area:
  597.                 rb 256
  598.         file_info:
  599.                 rb 40
  600. mem:
  601.