Subversion Repositories Kolibri OS

Rev

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

  1. fn_col_option dd def_col_file
  2. fn_syntax_dir db 'info/',0
  3. def_col_file db 'default.syn',0
  4.  
  5. ;значения задаваемые по умолчанию, без ini файла
  6. ini_def_window_t equ 10
  7. ini_def_window_l equ 10
  8. ini_def_window_w equ 485
  9. ini_def_window_h equ 320
  10. ini_def_symbol_w equ 7
  11. ini_def_symbol_h equ 10
  12. ini_def_scroll_type equ 0
  13. ;описание параматров для ini файла
  14. ini_name db 't_edit.ini',0
  15. ini_sec_window db 'Window',0
  16. key_window_t db 't',0
  17. key_window_l db 'l',0
  18. key_window_w db 'w',0
  19. key_window_h db 'h',0
  20. key_symbol_w db 'symbol_w',0
  21. key_symbol_h db 'symbol_h',0
  22. key_scroll_type db 'scroll_type',0
  23. ini_sec_options db 'Options',0
  24. key_synt_file:
  25.         db 'syntax_'
  26.         .numb: db '0',0
  27. key_synt_ext:
  28.         db 'ext_'
  29.         .numb: db '0',0
  30. ini_def_synt_f db 0
  31.  
  32. align 4
  33. max_synt_auto_open equ 10
  34. synt_auto_open:
  35.         rb 64*max_synt_auto_open
  36.         db 0
  37.  
  38. system_dir_0 db '/sys/lib/'
  39. lib_name_0 db 'box_lib.obj',0
  40.  
  41. system_dir_1 db '/sys/lib/'
  42. lib_name_1 db 'msgbox.obj',0
  43.  
  44. system_dir_2 db '/sys/lib/'
  45. lib_name_2 db 'proc_lib.obj',0
  46.  
  47. system_dir_3 db '/sys/lib/'
  48. lib_name_3 db 'libimg.obj',0
  49.  
  50. system_dir_4 db '/sys/lib/'
  51. lib_name_4 db 'libini.obj',0
  52.  
  53.  
  54. ;---------------------------------------------------------------------
  55. align 4
  56. import_box_lib:
  57.         dd alib_init0 ;функция запускается макросом 1 раз при подключении бибилиотеки, потому в программе метка на нее не нужна
  58.  
  59.         edit_box_draw  dd aEdit_box_draw
  60.         edit_box_key   dd aEdit_box_key
  61.         edit_box_mouse dd aEdit_box_mouse
  62.         ;edit_box_set_text dd aEdit_box_set_text
  63.         ;version_ed     dd aVersion_ed
  64.  
  65.         scrollbar_ver_draw  dd aScrollbar_ver_draw
  66.         scrollbar_ver_mouse dd aScrollbar_ver_mouse
  67.         scrollbar_hor_draw  dd aScrollbar_hor_draw
  68.         scrollbar_hor_mouse dd aScrollbar_hor_mouse
  69.         ;version_scrollbar   dd aVersion_scrollbar
  70.  
  71.         ;dinamic_button_draw  dd aDbutton_draw
  72.         ;dinamic_button_mouse dd aDbutton_mouse
  73.         ;version_dbutton      dd aVersion_dbutton
  74.  
  75.         menu_bar_draw    dd aMenu_bar_draw
  76.         menu_bar_mouse   dd aMenu_bar_mouse
  77.         ;version_menu_bar dd aVersion_menu_bar
  78.  
  79.         tl_data_init dd sz_tl_data_init
  80.         tl_data_clear dd sz_tl_data_clear
  81.         tl_info_clear dd sz_tl_info_clear
  82.         tl_key dd sz_tl_key
  83.         tl_mouse dd sz_tl_mouse
  84.         tl_draw dd sz_tl_draw
  85.         tl_info_undo dd sz_tl_info_undo
  86.         tl_info_redo dd sz_tl_info_redo
  87.         tl_node_add dd sz_tl_node_add
  88.         tl_node_set_data dd sz_tl_node_set_data
  89.         tl_node_get_data dd sz_tl_node_get_data
  90.         tl_node_delete dd sz_tl_node_delete
  91.         tl_cur_beg dd sz_tl_cur_beg
  92.         tl_cur_next dd sz_tl_cur_next
  93.         tl_cur_perv dd sz_tl_cur_perv
  94.         ;tl_node_close_open dd sz_tl_node_close_open
  95.         tl_node_lev_inc dd sz_tl_node_lev_inc
  96.         tl_node_lev_dec dd sz_tl_node_lev_dec
  97.  
  98.         ted_but_save_file dd sz_ted_but_save_file
  99.         ted_but_sumb_upper dd sz_ted_but_sumb_upper
  100.         ted_but_sumb_lover dd sz_ted_but_sumb_lover
  101.         ted_can_save dd sz_ted_can_save
  102.         ted_clear dd sz_ted_clear
  103.         ted_delete dd sz_ted_delete
  104.         ted_draw dd sz_ted_draw
  105.         ted_init dd sz_ted_init
  106.         ted_init_scroll_bars dd sz_ted_init_scroll_bars
  107.         ted_init_syntax_file dd sz_ted_init_syntax_file
  108.         ted_is_select dd sz_ted_is_select
  109.         ted_key dd sz_ted_key
  110.         ted_mouse dd sz_ted_mouse
  111.         ted_open_file dd sz_ted_open_file
  112.         ted_text_add dd sz_ted_text_add
  113.         ted_but_select_word dd sz_ted_but_select_word
  114.         ted_but_cut dd sz_ted_but_cut
  115.         ted_but_copy dd sz_ted_but_copy
  116.         ted_but_paste dd sz_ted_but_paste
  117.         ted_but_undo dd sz_ted_but_undo
  118.         ted_but_redo dd sz_ted_but_redo
  119.         ted_but_reverse dd sz_ted_but_reverse
  120.         ted_but_find_next dd sz_ted_but_find_next
  121.         ted_text_colored dd sz_ted_text_colored
  122.         version_text_edit dd sz_ted_version
  123.  
  124. dd 0,0
  125.         alib_init0 db 'lib_init',0
  126.  
  127.         aEdit_box_draw  db 'edit_box',0
  128.         aEdit_box_key   db 'edit_box_key',0
  129.         aEdit_box_mouse db 'edit_box_mouse',0
  130.         ;aEdit_box_set_text db 'edit_box_set_text',0
  131.         ;aVersion_ed    db 'version_ed',0
  132.  
  133.         aScrollbar_ver_draw  db 'scrollbar_v_draw',0
  134.         aScrollbar_ver_mouse db 'scrollbar_v_mouse',0
  135.         aScrollbar_hor_draw  db 'scrollbar_h_draw',0
  136.         aScrollbar_hor_mouse db 'scrollbar_h_mouse',0
  137.         ;aVersion_scrollbar   db 'version_scrollbar',0
  138.  
  139.         ;aDbutton_draw    db 'dbutton_draw',0
  140.         ;aDbutton_mouse   db 'dbutton_mouse',0
  141.         ;aVersion_dbutton  db 'version_dbutton',0
  142.  
  143.         aMenu_bar_draw    db 'menu_bar_draw',0
  144.         aMenu_bar_mouse   db 'menu_bar_mouse',0
  145.         ;aVersion_menu_bar db 'version_menu_bar',0
  146.  
  147.         sz_tl_data_init db 'tl_data_init',0
  148.         sz_tl_data_clear db 'tl_data_clear',0
  149.         sz_tl_info_clear db 'tl_info_clear',0
  150.         sz_tl_key db 'tl_key',0
  151.         sz_tl_mouse db 'tl_mouse',0
  152.         sz_tl_draw db 'tl_draw',0
  153.         sz_tl_info_undo db 'tl_info_undo',0
  154.         sz_tl_info_redo db 'tl_info_redo',0
  155.         sz_tl_node_add db 'tl_node_add',0
  156.         sz_tl_node_set_data db 'tl_node_set_data',0
  157.         sz_tl_node_get_data db 'tl_node_get_data',0
  158.         sz_tl_node_delete db 'tl_node_delete',0
  159.         sz_tl_cur_beg db 'tl_cur_beg',0
  160.         sz_tl_cur_next db 'tl_cur_next',0
  161.         sz_tl_cur_perv db 'tl_cur_perv',0
  162.         ;sz_tl_node_close_open db 'tl_node_close_open',0
  163.         sz_tl_node_lev_inc db 'tl_node_lev_inc',0
  164.         sz_tl_node_lev_dec db 'tl_node_lev_dec',0
  165.  
  166.         sz_ted_but_save_file    db 'ted_but_save_file',0
  167.         sz_ted_but_sumb_upper   db 'ted_but_sumb_upper',0
  168.         sz_ted_but_sumb_lover   db 'ted_but_sumb_lover',0
  169.         sz_ted_can_save                 db 'ted_can_save',0
  170.         sz_ted_clear                    db 'ted_clear',0
  171.         sz_ted_delete                   db 'ted_delete',0
  172.         sz_ted_draw                             db 'ted_draw',0
  173.         sz_ted_init                             db 'ted_init',0
  174.         sz_ted_init_scroll_bars db 'ted_init_scroll_bars',0
  175.         sz_ted_init_syntax_file db 'ted_init_syntax_file',0
  176.         sz_ted_is_select                db 'ted_is_select',0
  177.         sz_ted_key                              db 'ted_key',0
  178.         sz_ted_mouse                    db 'ted_mouse',0
  179.         sz_ted_open_file                db 'ted_open_file',0
  180.         sz_ted_text_add                 db 'ted_text_add',0
  181.         sz_ted_but_select_word  db 'ted_but_select_word',0
  182.         sz_ted_but_cut                  db 'ted_but_cut',0
  183.         sz_ted_but_copy                 db 'ted_but_copy',0
  184.         sz_ted_but_paste                db 'ted_but_paste',0
  185.         sz_ted_but_undo                 db 'ted_but_undo',0
  186.         sz_ted_but_redo                 db 'ted_but_redo',0
  187.         sz_ted_but_reverse              db 'ted_but_reverse',0
  188.         sz_ted_but_find_next    db 'ted_but_find_next',0
  189.         sz_ted_text_colored             db 'ted_text_colored',0
  190.         sz_ted_version db 'version_text_edit',0
  191.  
  192. align 4
  193. import_proclib:
  194.         OpenDialog_Init dd aOpenDialog_Init
  195.         OpenDialog_Start dd aOpenDialog_Start
  196. dd 0,0
  197.         aOpenDialog_Init db 'OpenDialog_init',0
  198.         aOpenDialog_Start db 'OpenDialog_start',0
  199.  
  200. align 4
  201. import_msgbox_lib:
  202.         mb_create dd amb_create
  203.         mb_reinit dd amb_reinit
  204.         mb_setfunctions dd amb_setfunctions
  205. dd 0,0
  206.         amb_create db 'mb_create',0
  207.         amb_reinit db 'mb_reinit',0
  208.         amb_setfunctions db 'mb_setfunctions',0
  209.  
  210. align 4
  211. import_libimg:
  212.         dd alib_init1
  213.         img_to_rgb2 dd aimg_to_rgb2
  214.         img_decode  dd aimg_decode
  215.         img_destroy dd aimg_destroy
  216. dd 0,0
  217.         alib_init1   db 'lib_init',0
  218.         aimg_to_rgb2 db 'img_to_rgb2',0
  219.         aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
  220.         aimg_destroy db 'img_destroy',0
  221.  
  222. align 4
  223. import_libini:
  224.         dd alib_init2
  225.         ini_get_str   dd aini_get_str
  226.         ini_get_int   dd aini_get_int
  227.         ini_get_color dd aini_get_color
  228. dd 0,0
  229.         alib_init2     db 'lib_init',0
  230.         aini_get_str   db 'ini_get_str',0
  231.         aini_get_int   db 'ini_get_int',0
  232.         aini_get_color db 'ini_get_color',0
  233.  
  234. ;---------------------------------------------------------------------
  235. align 4
  236. wScr:
  237. .x:
  238. .size_x   dw 16 ;+0
  239. .start_x  dw 50 ;+2
  240. .y:
  241. .size_y   dw 300 ; +4
  242. .start_y  dw  50 ; +6
  243. .btn_high dd  15 ; +8
  244. .type     dd ini_def_scroll_type ;+12
  245. .max_area dd 100 ;+16
  246. .cur_area dd  30 ;+20
  247. .position dd   0 ;+24
  248. .bckg_col dd   0 ;+28
  249. .frnt_col dd   0 ;+32
  250. .line_col dd   0 ;+36
  251. .redraw   dd   0 ;+40
  252. .delta    dw   0 ;+44
  253. .delta2   dw   0 ;+46
  254. .run_x:
  255. rb 2+2+2+2+4+4+4+4+4+4
  256. .all_redraw dd 0 ;+80
  257. .ar_offset  dd 1 ;+84
  258. ;---------------------------------------------------------------------
  259. align 4
  260. hScr:
  261. .x:
  262. .size_x     dw 150 ;+0
  263. .start_x    dw 0 ;+2
  264. .y:
  265. .size_y     dw 16 ;+4
  266. .start_y    dw 50 ;+6
  267. .btn_high   dd 15 ;+8
  268. .type       dd ini_def_scroll_type ;+12
  269. .max_area   dd 100 ;+16
  270. .cur_area   dd 30 ;+20
  271. .position   dd 0  ;+24
  272. .bckg_col   dd 0  ;+28
  273. .frnt_col   dd 0  ;+32
  274. .line_col   dd 0  ;+36
  275. .redraw     dd 0  ;+40
  276. .delta      dw 0  ;+44
  277. .delta2     dw 0  ;+46
  278. .run_x:
  279. rb 2+2+2+2+4+4+4+4+4+4
  280. .all_redraw dd 0 ;+80
  281. .ar_offset  dd 1 ;+84
  282. ;---------------------------------------------------------------------  
  283. align 4
  284. ws_dir_lbox: ;дочерний скроллинг для элемента ListBox
  285. .x:
  286. .size_x     dw 16 ;+0
  287. .start_x    dw 0 ;+2
  288. .y:
  289. .size_y     dw 30 ;+4
  290. .start_y    dw 70 ;+6
  291. .btn_high   dd 15 ;+8
  292. .type       dd ini_def_scroll_type ;+12
  293. .max_area   dd 100 ;+16
  294. .cur_area   dd 30 ;+20
  295. .position   dd 0  ;+24
  296. .bckg_col   dd 0  ;+28
  297. .frnt_col   dd 0  ;+32
  298. .line_col   dd 0  ;+36
  299. .redraw     dd 0  ;+40
  300. .delta      dw 0  ;+44
  301. .delta2     dw 0  ;+46
  302. .run_x:
  303. rb 2+2+2+2+4+4+4+4+4+4
  304. .all_redraw dd 0 ;+80
  305. .ar_offset  dd 1 ;+84
  306. ;---------------------------------------------------------------------
  307.  
  308. align 4
  309. menu_data_1:
  310. .type: dd 0   ;+0
  311. .x:
  312. .size_x  dw 35 ;+4
  313. .start_x dw  5 ;+6
  314. .y:
  315. .size_y  dw 15 ;+8
  316. .start_y dw  5 ;+10
  317. .text_pointer: dd menu_text_area   ;+12
  318. .pos_pointer:  dd menu_text_area.1 ;+16
  319. .text_end   dd menu_text_area.end  ;+20
  320. .mouse_pos  dd 0 ;+24
  321. .mouse_keys dd 0 ;+28
  322. .x1:
  323. .size_x1  dw 70  ;+32
  324. .start_x1 dw  5  ;+34
  325. .y1:
  326. .size_y1  dw 15  ;+36
  327. .start_y1 dw 20  ;+38
  328. .bckg_col dd 0xeeeeee ;+40
  329. .frnt_col dd 0xff ;+44
  330. .menu_col dd 0xffffff ;+48
  331. .select   dd 0 ;+52
  332. .out_select dd 0 ;+56
  333. .buf_adress dd 0 ;+60
  334. .procinfo dd procinfo ;0 ;+64
  335. .click   dd 0 ;+68
  336. .cursor  dd 0 ;+72
  337. .cursor_old dd 0 ;+76
  338. .interval   dd 16 ;+80
  339. .cursor_max  dd 0 ;+84
  340. .extended_key dd 0 ;+88
  341. .menu_sel_col dd 0x00cc00 ;+92
  342. .bckg_text_col dd 0 ;+96
  343. .frnt_text_col dd 0xffffff ;+100
  344. .mouse_keys_old dd 0 ;+104
  345. .font_height dd 8 ;+108
  346. .cursor_out  dd 0 ;+112
  347. .get_mouse_flag dd 0 ;+116
  348.  
  349. ;---------------------------------------------------------------------
  350. align 4
  351. OpenDialog_data:
  352. .type                   dd 0
  353. .procinfo               dd procinfo     ;+4
  354. .com_area_name  dd communication_area_name      ;+8
  355. .com_area               dd 0    ;+12
  356. .opendir_path           dd plugin_path ;+16
  357. .dir_default_path       dd default_dir ;+20
  358. .start_path             dd file_name ;+24 путь к диалогу открытия файлов
  359. .draw_window    dd draw_window  ;+28
  360. .status                 dd 0    ;+32
  361. .openfile_path  dd openfile_path        ;+36 путь к открываемому файлу
  362. .filename_area  dd filename_area        ;+40
  363. .filter_area    dd Filter
  364. .x:
  365. .x_size                 dw 420 ;+48 ; Window X size
  366. .x_start                dw 10 ;+50 ; Window X position
  367. .y:
  368. .y_size                 dw 320 ;+52 ; Window y size
  369. .y_start                dw 10 ;+54 ; Window Y position
  370.  
  371. default_dir db '/rd/1',0 ;директория по умолчанию
  372.  
  373. communication_area_name:
  374.         db 'FFFFFFFF_open_dialog',0
  375. open_dialog_name:
  376.         db 'opendial',0
  377. communication_area_default_path:
  378.         db '/rd/1/File managers/',0
  379.  
  380. Filter:
  381. dd Filter.end - Filter.1
  382. .1:
  383. db 'ASM',0
  384. db 'CPP',0
  385. db 'INC',0
  386. db 'INI',0
  387. db 'TXT',0
  388. db 'H',0
  389. db 'HTM',0
  390. db 'HTML',0
  391. .end:
  392. db 0
  393.  
  394. TED_PANEL_NULL  equ 0 ;нет открытой панели
  395. TED_PANEL_FIND  equ 1 ;панель поиска
  396. TED_PANEL_SYNTAX equ 2 ;панель выбора файлов подсветки
  397. TED_PANEL_WIDTH equ 150 ;ширина панели
  398.  
  399. count_of_dir_list_files equ 15 ;максимальное число файлов синтаксиса показываемых в окне элемента tree1
  400.  
  401. ;------------------------------------------------------------------------------
  402. struct TexSelect
  403.   x0 dd ?
  404.   y0 dd ?
  405.   x1 dd ?
  406.   y1 dd ?
  407. ends
  408. ;------------------------------------------------------------------------------
  409. align 4
  410. tedit0: ;структура текстового редактора
  411.         .wnd BOX 0,50,440,150 ;+ 0
  412.         .rec BOX 30,23,ini_def_symbol_w,ini_def_symbol_h ;+16
  413.         .drag_m db 0 ;+32 выделение от мыши
  414.         .drag_k db 0 ;+33 выделение от клавиатуры
  415.         .sel  TexSelect 0,0,0,0 ;+34 структура выделения
  416.         .seln TexSelect ;+50 дополнительная структура выделения
  417.         .tex      dd 0 ;+66 text memory pointer
  418.         .tex_1    dd 0 ;+70 text first symbol pointer
  419.         .tex_end  dd 0 ;+74 text end memory pointer
  420.         .cur_x    dd 0 ;+78 координата x курсора
  421.         .cur_y    dd 0 ;+82 координата y курсора
  422.         .max_chars dd maxChars ;+86 максимальное число символов в одном документе
  423.         .count_colors_text dd 1 ;+90 колличество цветов текста
  424.         .count_key_words   dd 0 ;+94 колличество ключевых слов
  425.         .color_cursor      dd 0x808080 ;+98 цвет курсора
  426.         .color_wnd_capt    dd     0x80 ;+102 цвет полей вокруг окна
  427.         .color_wnd_work    dd      0x0 ;+106 цвет фона окна
  428.         .color_wnd_bord    dd 0xd0d0d0 ;+110 цвет текста на полях
  429.         .color_select      dd 0x208080 ;+114 цвет выделения
  430.         .color_cur_text    dd 0xff0000 ;+118 цвет символа под курсором
  431.         .color_wnd_text    dd 0xffff00 ;+122 цвет текста в окне
  432.         .syntax_file       dd 0 ;+126 указатель на начало файла синтаксиса
  433.         .syntax_file_size  dd maxSyntaxFileSize ;+130 максимальный размер файла синтаксиса
  434.         .text_colors       dd 0 ;+134 указатель на массив цветов текста
  435.         .help_text_f1      dd 0 ;+138 указатель на текст справки (по нажатии F1)
  436.         .help_id           dd -1 ;+142 идентификатор для справки
  437.         .key_words_data    dd 0 ;+146 указатель на структуры ключевых слов TexColViv
  438.         .tim_ch      dd ? ;+150 количество изменений в файле
  439.         .tim_undo    dd ? ;+154 количество отмененных действий
  440.         .tim_ls      dd ? ;+158 время последнего сохранения
  441.         .tim_co      dd ? ;+162 время последней цветовой разметки
  442.         .el_focus    dd el_focus ;+166 указатель на переменную элемента в фокусе
  443.         .err_save    db 0 ;+170 ошибка сохранения файла
  444.         .panel_id    db 0 ;+171 номер открытой панели
  445.         .key_new     db 0 ;+172 символ, который будет добавлятся с клавиатуры
  446.         .symbol_new_line db 20 ;+173 символ завершения строки
  447.         .scr_w       dd wScr ;+174 вертикальный скроллинг
  448.         .scr_h       dd hScr ;+178 горизонтальный скроллинг
  449.         .arr_key_pos dd 0 ;+182 указатель на массив позиций ключевых слов
  450.         .buffer      dd buf ;+186 указатель на буфер копирования/вставки
  451.         .buffer_find dd buf_find ;+190 указатель на буфер для поиска
  452.         .cur_ins     db 1 ;+194 режим работы курсора (обычный или замена)
  453.         .mode_color  db 1 ;+195 режим выделения слов цветом (0-выкл. 1-вкл.)
  454.         .mode_invis  db 0 ;+196 режим показа непечатаемых символов
  455.         .gp_opt      db 0 ;+197 опции возвращаемые функцией ted_get_pos_by_cursor
  456.         .fun_on_key_ctrl_o dd ted_but_open_file ;+198 указатель на функцию вызываемую при нажатии Ctrl+O (открытие файла)
  457.         .fun_on_key_ctrl_f dd ted_but_find      ;+202 ... Ctrl+F (вызова/скрытия панели поиска)
  458.         .fun_on_key_ctrl_n dd ted_but_new_file  ;+206 ... Ctrl+N (создание нового документа)
  459.         .fun_on_key_ctrl_s dd 0 ;+210 ... Ctrl+S
  460.         .buffer_size       dd BUF_SIZE ;+214 размер буфера копирования/вставки
  461.         .fun_find_err      dd ted_on_find_err ;+218 указатель на функцию вызываемую если поиск закончился неудачно
  462.         .fun_init_synt_err dd 0   ;+222
  463.         .fun_draw_panel_buttons dd draw_but_toolbar  ;+226 указатель на функцию рисования панели с кнопками
  464.         .fun_draw_panel_find    dd draw_panel_find   ;+230 указатель на функцию рисования панели поиска
  465.         .fun_draw_panel_syntax  dd draw_panel_syntax ;+234 указатель на функцию рисования панели синтаксиса
  466.         .fun_save_err           dd ted_save_err_msg  ;+238 указатель на функцию вызываемую если сохранение файла закончилось неудачно
  467.         .increase_size dd 200 ;+242 число символов на которые будет увечиваться память при нехватке
  468.         .ptr_free_symb dd ?   ;+246 используется внутри элемента для ускорения вставки текста
  469. ;------------------------------------------------------------------------------
  470.  
  471. conv_tabl rb 128 ; таблица для конвертирования scan-кода в ascii-код
  472.  
  473. el_focus dd 0
  474. mouse_dd dd 0
  475. tree1 tree_list 264,count_of_dir_list_files+2, tl_key_no_edit+tl_draw_par_line+tl_list_box_mode,\
  476.     16,16, 0x8080ff,0x0000ff,0xffffff, 0,70,TED_PANEL_WIDTH-17,120, 0,0,0, el_focus,\
  477.     ws_dir_lbox,0
  478.  
  479. ;dir_list memory
  480. tree_file_struct:
  481.   dd 1
  482.   dd 0,0,count_of_dir_list_files
  483.   dd dir_mem
  484.   db 0
  485.   dd file_name ;sys_path
  486.  
  487. if lang eq ru
  488.  
  489. hed db 'Текстовый редактор 12.03.13',0 ;подпись окна
  490.  
  491. menu_text_area:
  492. db 'Файл',0
  493. .1:
  494. db 'Создать',0
  495. db 'Открыть',0
  496. db 'Сохранить',0
  497. db 'Выход',0
  498. .end:
  499. db 0
  500.  
  501. msgbox_1:
  502.   dw 0
  503.   db 'Внимание',0 ;+2 = +MB_TEXT_OFFSET
  504.   db 'Файл большой, потому открыт не весь.',13
  505.   db '  1. При его сохранении будут потеряны "не открывшиеся" символы.',13
  506.   db '  2. В документ нельзя добавлять текст, т. к. память занята.',0
  507.   db 'Я понял(а)',0 ;button1
  508.   db 0
  509. msgbox_2:
  510.   db 3,0
  511.   db 'Внимание',0
  512.   db 'Сохранить изменения в файле?',0
  513.   db 'Сохранить',0
  514.   db 'Не сохранять',0
  515.   db 'Отмена',0
  516.   db 0
  517.  
  518. msgbox_3:
  519.   db 1,0
  520.   db 'Внимание',0
  521.   db 'Ошибка при открытии файла с цветовыми настройками!',13,\
  522.      'Потому выделение слов цветом не возможно.',13,\
  523.      '  (код ошибки ='
  524.   .err: db '?'
  525.   db ')',0
  526.   db 'Закрыть',0
  527.   db 0
  528.  
  529. msgbox_4:
  530.   db 1,0
  531.   db 'Внимание',0
  532.   db 'Ошибка при открытии файла!',13,\
  533.      'Возможно имя файла введено не правильно.',13,\
  534.      '  (код ошибки ='
  535.   .err: db '?'
  536.   db ')',0
  537.   db 'Закрыть',0
  538.   db 0
  539.  
  540. msgbox_5:
  541.   db 3,0
  542.   db 'Внимание',0
  543.   db 'Сохранить изменения в файле?',0
  544.   db 'Не сохранять',0
  545.   db 'Отмена',0
  546.   db 0
  547.  
  548. msgbox_6:
  549.   db 1,0
  550.   db 'Внимание',0
  551.   db 'Ошибка при сохранении файла!',13,\
  552.      'Возможно имя файла введено не правильно.',13,\
  553.      '  (код ошибки ='
  554.   .err: db '?'
  555.   db ')',0
  556.   db 'Закрыть',0
  557.   db 0
  558. msgbox_7:
  559.   db 1,0
  560.   db 'Текст не найден',0
  561.   db 'Достигнут конец документа.',13,\
  562.      'Попробуйте перейти в начало документа',13,\
  563.      'или изменить запрос и повторить поиск.',0
  564.   db 'Закрыть',0
  565.   db 0
  566. msgbox_8:
  567.   db 3,0
  568.   db 'Внимание',0
  569.   db 'Для выхода завершите работу с файлом.',13,\
  570.      'Попробуйте сохранить изменения в файле',13,\
  571.      'или начать новый пустой.',0
  572.   db 'Отмена',0
  573.   db 0
  574. msgbox_9:
  575.   db 3,0
  576.   db 'Внимание',0
  577.   db 'Не открылся ',39,'диалог открытия файла',39,'.',13
  578.   .fdp:
  579.   rb 100
  580.   db 0
  581.   db 'Закрыть',0
  582.   db 0
  583. msgbox_10:
  584.   db 1,0
  585.   db 'Внимание',0
  586.   db 'Вы используете старую версию библиотеки ',39,'box_lib.obj',39,'.',13,\
  587.         'Попробуйте найти библиотеку в которой',13,\
  588.         'элемент ',39,'t_edit',39,' имеет версию 3.',0
  589.   db 'Закрыть',0
  590.   db 0
  591.  
  592. txtFile db 'Файл:',0
  593. txtFindCapt db 'Поиск',0
  594. txtFindNext db 'Найти далее',0
  595. txtFormatCapt db 'Формат',0
  596. txtFormatApply db 'Применить',0
  597.  
  598. else
  599.  
  600. hed db 'Text editor 12.03.13',0
  601.  
  602. menu_text_area:
  603. db 'File',0
  604. .1:
  605. db 'New',0
  606. db 'Open',0
  607. db 'Save',0
  608. db 'Exit',0
  609. .end:
  610. db 0
  611.  
  612. msgbox_1:
  613.   dw 0
  614.   db 'Warning',0 ;+2 = +MB_TEXT_OFFSET
  615.   db 'File is large, because not all open.',13
  616.   db '  1. If you save it will lose "not opened" characters.',13
  617.   db '  2. The document can not add text, because the memory is busy.',0
  618.   db 'Ok',0 ;button1
  619.   db 0
  620. msgbox_2:
  621.   db 3,0
  622.   db 'Warning',0
  623.   db 'Save changes to the file?',0
  624.   db 'Save',0
  625.   db 'Discard',0
  626.   db 'Cancel',0
  627.   db 0
  628.  
  629. msgbox_3:
  630.   db 1,0
  631.   db 'Warning',0
  632.   db 'Error opening the file with the color settings!',13,\
  633.      'Because color selection of words is not possible.',13,\
  634.      '  (error code ='
  635.   .err: db '?'
  636.   db ')',0
  637.   db 'Close',0
  638.   db 0
  639.  
  640. msgbox_4:
  641.   db 1,0
  642.   db 'Warning',0
  643.   db 'Error opening file!',13,\
  644.      'Maybe the file name is not entered correctly.',13,\
  645.      '  (error code ='
  646.   .err: db '?'
  647.   db ')',0
  648.   db 'Close',0
  649.   db 0
  650.  
  651. msgbox_5:
  652.   db 3,0
  653.   db 'Warning',0
  654.   db 'Save changes to the file?',0
  655.   db 'Discard',0
  656.   db 'Cancel',0
  657.   db 0
  658.  
  659. msgbox_6:
  660.   db 1,0
  661.   db 'Warning',0
  662.   db 'Error saving file!',13,\
  663.      'Maybe the file name is not entered correctly.',13,\
  664.      '  (error code ='
  665.   .err: db '?'
  666.   db ')',0
  667.   db 'Close',0
  668.   db 0
  669. msgbox_7:
  670.   db 1,0
  671.   db 'Text not found.',0
  672.   db 'Reached end of the document.',13,\
  673.      'Try to go to the beginning of the document',13,\
  674.      'or change the query and search again.',0
  675.   db 'Close',0
  676.   db 0
  677. msgbox_8:
  678.   db 3,0
  679.   db 'Warning',0
  680.   db 'To quit, quit the file.',13,\
  681.      'Try to keep changes to a file',13,\
  682.      'or start a new blank file.',0
  683.   db 'Cancel',0
  684.   db 0
  685. msgbox_9:
  686.   db 3,0
  687.   db 'Warning',0
  688.   db 'Error run ',39,'open file dialog',39,'.',13
  689.   .fdp:
  690.   rb 100
  691.   db 0
  692.   db 'Close',0
  693.   db 0
  694. msgbox_10:
  695.   db 1,0
  696.   db 'Warning',0
  697.   db 'You are using an older version of the library ',39,'box_lib.obj',39,'.',13,\
  698.         'Try to find a library in which the element',13,\
  699.         39,'t_edit',39,' has a version 3.',13,0
  700.   db 'Close',0
  701.   db 0
  702.  
  703. txtFile db 'File:',0
  704. txtFindCapt db 'Search',0
  705. txtFindNext db 'Find next',0
  706. txtFormatCapt db 'Format',0
  707. txtFormatApply db 'Apply',0
  708.  
  709. end if
  710.  
  711. ;функции для кнопок в сообщениях
  712. msgbox_2_funct:
  713.   dd On_SaveAndNewFile
  714.   dd On_NewFile
  715.   dd 0
  716. msgbox_5_funct:
  717.   dd ted_but_open_file.no_msg
  718.   dd 0
  719.  
  720. KM_SHIFT equ 0x00010000
  721. KM_CTRL equ 0x00020000
  722. KM_ALT equ 0x00040000
  723. KM_NUMLOCK equ 0x00080000
  724.  
  725. ; KEY CODES
  726. KEY_F1 equ 0x0000003B
  727. KEY_F2 equ 0x0000003C
  728. KEY_F3 equ 0x0000003D
  729.  
  730.