Subversion Repositories Kolibri OS

Rev

Rev 7575 | Rev 7577 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4308 IgorA 1 
;Огромная благодарность всем, кто помогал: кодом/советом/дизайном ...
1338 IgorA 2 
 
3 
use32
6906 IgorA 4 
  org 0
1449 IgorA 5 
  db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
6256 IgorA 6 
  dd 1, start, i_end, mem, stacktop, file_name, sys_path
1338 IgorA 7 
 
8 
MAX_COLOR_WORD_LEN equ 40
6256 IgorA 9 
maxChars equ 100002 ;(колличество символов в новом документе + 2)
2817 IgorA 10 
BUF_SIZE equ 4096 ;buffer for copy|paste
1457 IgorA 11 
maxSyntaxFileSize equ 410000
7573 IgorA 12 
TOOLBAR_ICONS_SIZE equ 1200*21
1338 IgorA 13 
 
1449 IgorA 14 
include '../../proc32.inc'
1338 IgorA 15 
include '../../macros.inc'
6086 IgorA 16 
include '../../KOSfuncs.inc'
6239 IgorA 17 
include '../../load_img.inc'
1449 IgorA 18 
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
6169 leency 19 
include '../../system/skincfg/trunk/kglobals.inc'
20 
include '../../system/skincfg/trunk/unpacker.inc'
1343 IgorA 21 
include 'lang.inc'
1467 IgorA 22 
 
1338 IgorA 23 
include 't_data.inc'
7573 IgorA 24 
include 't_button.inc'
5671 leency 25 
include 't_menu.inc'
1338 IgorA 26 
include 'strlen.inc'
27 
include 't_draw.inc' ;draw main window functions
3244 IgorA 28 
include 'wnd_k_words.inc'
1338 IgorA 29 
 
2632 IgorA 30 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
1338 IgorA 31 
 
6256 IgorA 32 
align 4
2632 IgorA 33 
icon_tl_sys dd 0 ;указатель на память для хранения системных иконок
6256 IgorA 34 
run_file_70 FileInfoBlock
2632 IgorA 35 
 
1456 IgorA 36 
align 4
1338 IgorA 37 
start:
6162 leency 38 
	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
1338 IgorA 39 
 
6086 IgorA 40 
	mcall SF_SYS_MISC,SSF_HEAP_INIT
4308 IgorA 41 
	or eax,eax
7575 IgorA 42 
	jnz @f
43 
		call ted_Exit
44 
	@@:
1338 IgorA 45 
 
6086 IgorA 46 
	mcall SF_KEYBOARD,SSF_SET_INPUT_MODE,1 ;scan code
47 
	mcall SF_SET_EVENTS_MASK,0xC0000027
1338 IgorA 48 
 
4308 IgorA 49 
	mov esi,file_name
50 
	call strlen
51 
	mov ecx,eax
52 
	mov edi,openfile_path
53 
	cld
54 
	rep movsb ;копируем имя файла в буфер openfile_path
1338 IgorA 55 
 
1456 IgorA 56 
load_libraries l_libs_start,load_lib_end
1338 IgorA 57 
 
2102 IgorA 58 
;проверка на сколько удачно загузились библиотеки
4308 IgorA 59 
mov	ebp,lib0
60 
.test_lib_open:
1456 IgorA 61 
	cmp	dword [ebp+ll_struc_size-4],0
62 
	jz	@f
6086 IgorA 63 
	mcall SF_TERMINATE_PROCESS ;exit not correct
1456 IgorA 64 
@@:
4308 IgorA 65 
	add ebp,ll_struc_size
66 
	cmp ebp,load_lib_end
67 
	jl .test_lib_open
1338 IgorA 68 
 
1456 IgorA 69 
;---------------------------------------------------------------------
1592 IgorA 70 
	stdcall [ted_init], tedit0
7488 IgorA 71 
	stdcall [tl_data_init], tree1
7576 IgorA 72 
	option_boxes_set_sys_color sc,opt_grlist1
1338 IgorA 73 
 
1467 IgorA 74 
; OpenDialog initialisation
1592 IgorA 75 
	stdcall [OpenDialog_Init],OpenDialog_data
1467 IgorA 76 
 
7573 IgorA 77 
; kmenu initialisation
78 
	call tedit_menu_init
5649 leency 79 
 
2632 IgorA 80 
; init toolbar file
6906 IgorA 81 
	include_image_file 'te_icon.png', bmp_icon,,,6 ;6 для серых кнопок
4128 IgorA 82 
	mov eax,[bmp_icon]
83 
	add eax,TOOLBAR_ICONS_SIZE
84 
	stdcall img_to_gray, [bmp_icon],eax,(TOOLBAR_ICONS_SIZE)/3
1338 IgorA 85 
;---------------------------------------------------------------------
6906 IgorA 86 
; внедряем файл с курсорами и линиями
87 
	include_image_file '..\..\media\log_el\trunk\tl_sys_16.png', icon_tl_sys
2632 IgorA 88 
	mov eax,dword[icon_tl_sys]
89 
	mov dword[tree1.data_img_sys],eax
6906 IgorA 90 
; внедряем файл с иконками узлов
91 
	include_image_file 'tl_nod_16.png', icon_tl_sys
2632 IgorA 92 
	mov eax,dword[icon_tl_sys]
93 
	mov dword[tree1.data_img],eax
1338 IgorA 94 
;------------------------------------------------------------------------------
5911 IgorA 95 
	copy_path fn_syntax_dir,sys_path,file_name,0 ;берем путь к папке с файлами синтаксиса
6086 IgorA 96 
	mcall SF_FILE,tree_file_struct
1338 IgorA 97 
 
5911 IgorA 98 
	cmp ebx,-1
99 
	je .end_dir_init
100 
		mov eax,dir_mem
101 
		add eax,32+4+1+3+4*6+8
102 
		mov ecx,ebx
103 
		@@:
104 
			cmp byte[eax],'.' ;фильтруем файлы с именами '.' и '..'
105 
			je .filter
106 
			;0x10000 ;1*2^16 - где 1 номер иконки с книгой
7488 IgorA 107 
			stdcall [tl_node_add], tree1,0x10000,eax
108 
			stdcall [tl_cur_next], tree1
5911 IgorA 109 
			.filter:
110 
			add eax,304
111 
			loop @b
7488 IgorA 112 
		stdcall [tl_cur_beg],tree1 ;ставим курсор на начало списка
7508 IgorA 113 
		or dword[tree1.style], tl_cursor_pos_limited ;ограничиваем движение курсора в пределах списка
5911 IgorA 114 
	.end_dir_init:
1338 IgorA 115 
 
2817 IgorA 116 
;--- load ini file ---
2855 IgorA 117 
	copy_path ini_name,sys_path,file_name,0
2817 IgorA 118 
	;window startup pozition
7488 IgorA 119 
	stdcall [ini_get_int],file_name,ini_sec_window,key_window_l,ini_def_window_l
2817 IgorA 120 
	mov word[wnd_s_pos+2],ax
7488 IgorA 121 
	stdcall [ini_get_int],file_name,ini_sec_window,key_window_w,ini_def_window_w
2817 IgorA 122 
	mov word[wnd_s_pos],ax
7488 IgorA 123 
	stdcall [ini_get_int],file_name,ini_sec_window,key_window_t,ini_def_window_t
2817 IgorA 124 
	mov word[wnd_s_pos+6],ax
7488 IgorA 125 
	stdcall [ini_get_int],file_name,ini_sec_window,key_window_h,ini_def_window_h
2817 IgorA 126 
	mov word[wnd_s_pos+4],ax
127 
	;scrool type
7488 IgorA 128 
	stdcall [ini_get_int],file_name,ini_sec_window,key_scroll_type,ini_def_scroll_type
2817 IgorA 129 
	mov [wScr.type],eax
130 
	mov [hScr.type],eax
131 
	mov [ws_dir_lbox.type],eax
3244 IgorA 132 
    mov [w_scr_t3.type],eax
2817 IgorA 133 
	;symbol size
7488 IgorA 134 
	stdcall [ini_get_int],file_name,ini_sec_window,key_symbol_w,ini_def_symbol_w
2817 IgorA 135 
	mov dword[tedit0.rec.width],eax
7488 IgorA 136 
	stdcall [ini_get_int],file_name,ini_sec_window,key_symbol_h,ini_def_symbol_h
2817 IgorA 137 
	mov dword[tedit0.rec.height],eax
6256 IgorA 138 
	;lea eax,[eax+eax*2]
139 
	;mov dword[tedit0.rec.top],eax
140 
	;font size
7488 IgorA 141 
	stdcall [ini_get_int],file_name,ini_sec_window,key_font_s,ini_def_font_s
6256 IgorA 142 
	shl eax,24
143 
	mov dword[tedit0.font_size],eax
7488 IgorA 144 
	;кнопки на панели
7573 IgorA 145 
	ini_panel key_but_new,    ID_BUT_NEW
146 
	ini_panel key_but_open,   ID_BUT_OPEN
147 
	ini_panel key_but_save,   ID_BUT_SAVE
148 
	ini_panel key_but_save_as,ID_BUT_SAVE_AS
149 
	ini_panel key_but_select, ID_BUT_SELECT
150 
	ini_panel key_but_cut,    ID_BUT_CUT
151 
	ini_panel key_but_copy,   ID_BUT_COPY
152 
	ini_panel key_but_paste,  ID_BUT_PASTE
153 
	ini_panel key_but_find,   ID_BUT_FIND
154 
	ini_panel key_but_replace,ID_BUT_REPLACE
155 
	ini_panel key_but_key_words,ID_BUT_KEY_WORDS
156 
	ini_panel key_but_upper,  ID_BUT_UPPER
157 
	ini_panel key_but_lower,  ID_BUT_LOWER
158 
	ini_panel key_but_reverse,ID_BUT_REVERSE
159 
	ini_panel key_but_undo,   ID_BUT_UNDO
160 
	ini_panel key_but_redo,   ID_BUT_REDO
161 
	ini_panel key_but_invisible,ID_BUT_INVISIBLE
162 
	ini_panel key_but_syntax_list,ID_BUT_SYNTAX_LIST
163 
	ini_panel key_but_syntax_mode,ID_BUT_SYNTAX_MODE
164 
	ini_panel key_but_convert_1251_866,ID_BUT_CONVERT_1251_866
165 
	ini_panel key_but_convert_866_1251,ID_BUT_CONVERT_866_1251
2855 IgorA 166 
	;файловые расширения
167 
	xor edx,edx
168 
	mov ebx,synt_auto_open
169 
	@@:
170 
		;берем имя файла
7488 IgorA 171 
		stdcall [ini_get_str],file_name,ini_sec_options,key_synt_file,ebx,32,ini_def_synt_f
2855 IgorA 172 
		cmp byte[ebx],0
173 
		je @f
174 
		inc byte[key_synt_file.numb]
175 
		add ebx,32
176 
		;берем расширения
7488 IgorA 177 
		stdcall [ini_get_str],file_name,ini_sec_options,key_synt_ext,ebx,32,ini_def_synt_f
2855 IgorA 178 
		inc byte[key_synt_ext.numb]
179 
		add ebx,32
180 
		inc edx
181 
		cmp edx,max_synt_auto_open
182 
		jl @b
183 
	@@:
2817 IgorA 184 
 
1338 IgorA 185 
;--- load color option file ---
6086 IgorA 186 
	stdcall open_unpac_synt_file,[fn_col_option]
1338 IgorA 187 
 
188 
;--- get cmd line ---
2708 IgorA 189 
	cmp byte[openfile_path+3],0 ;openfile_path
190 
	je @f ;if file names exist
191 
		mov esi,openfile_path
6086 IgorA 192 
		stdcall auto_open_syntax,esi
2708 IgorA 193 
		call but_no_msg_OpenFile
194 
	@@:
1338 IgorA 195 
 
2817 IgorA 196 
 
197 
 
6239 IgorA 198 
align 16
1338 IgorA 199 
red_win:
5911 IgorA 200 
	call draw_window
1467 IgorA 201 
 
6239 IgorA 202 
align 16
1467 IgorA 203 
still:
6086 IgorA 204 
	mcall SF_WAIT_EVENT
4991 IgorA 205 
	cmp dword[exit_code],1
7575 IgorA 206 
	jne @f
207 
		call ted_Exit
208 
		jmp still
209 
	@@:
1467 IgorA 210 
 
2125 IgorA 211 
	cmp al,1 ;изменилось положение окна
212 
	jz red_win
213 
	cmp al,2
214 
	jz key
215 
	cmp al,3
216 
	jz button
217 
	cmp al,6 ;мышь
218 
	jne @f
7575 IgorA 219 
		call mouse
2125 IgorA 220 
	@@:
221 
	jmp still
1467 IgorA 222 
 
6239 IgorA 223 
align 16
1338 IgorA 224 
mouse:
5649 leency 225 
	stdcall [kmainmenu_dispatch_cursorevent], [main_menu]
1338 IgorA 226 
 
6239 IgorA 227 
	mcall SF_MOUSE_GET,SSF_WINDOW_POSITION
228 
	cmp word[tedit0.wnd.top],ax
229 
	jg .no_edit
230 
	shr eax,16
231 
	cmp word[tedit0.wnd.left],ax
232 
	jg .no_edit
233 
	mcall SF_MOUSE_GET,SSF_BUTTON_EXT
234 
	bt eax,24 ;двойной щелчёк левой кнопкой
235 
	jnc @f
236 
		stdcall [ted_but_select_word], tedit0
7575 IgorA 237 
		ret
6239 IgorA 238 
	@@:
239 
		stdcall [ted_mouse], tedit0
240 
	.no_edit:
241 
 
7576 IgorA 242 
	;проверка боковых панелей
243 
	cmp byte[tedit0.panel_id],TED_PANEL_FIND
2125 IgorA 244 
	jne @f
6239 IgorA 245 
		stdcall [edit_box_mouse], edit2
7576 IgorA 246 
		stdcall [option_box_mouse], opt_grlist1
2125 IgorA 247 
	@@:
7576 IgorA 248 
	cmp byte[tedit0.panel_id],TED_PANEL_REPLACE
6239 IgorA 249 
	jne @f
7576 IgorA 250 
		stdcall [edit_box_mouse], edit2
251 
		stdcall [edit_box_mouse], edit1
252 
		stdcall [option_box_mouse], opt_grlist1
253 
	@@:
254 
	cmp byte[tedit0.panel_id],TED_PANEL_SYNTAX
255 
	jne @f
6239 IgorA 256 
		stdcall [tl_mouse], tree1
257 
	@@:
7575 IgorA 258 
	ret
1338 IgorA 259 
;---------------------------------------------------------------------
260 
 
1456 IgorA 261 
;output:
262 
; ah = symbol
6239 IgorA 263 
align 16
5911 IgorA 264 
proc KeyConvertToASCII uses ebx, table:dword
265 
	mov ebx,dword[table] ;convert scan to ascii
266 
	ror ax,8
267 
	xor ah,ah
268 
	add bx,ax
269 
	mov ah,byte[ebx]
270 
	ret
1456 IgorA 271 
endp
1338 IgorA 272 
 
6239 IgorA 273 
align 16
1338 IgorA 274 
key:
6239 IgorA 275 
	mcall SF_KEYBOARD,SSF_GET_CONTROL_KEYS ;66.3 получить состояние управляющих клавиш
276 
	xor esi,esi
277 
	mov ecx,1
278 
	test al,0x03 ;[Shift]
279 
	jz @f
280 
		mov cl,2
281 
		or esi,KM_SHIFT
282 
	@@:
283 
	test al,0x0c ;[Ctrl]
284 
	jz @f
285 
		or esi,KM_CTRL
286 
	@@:
287 
	test al,0x30 ;[Alt]
288 
	jz @f
289 
		mov cl,3
290 
		or esi,KM_ALT
291 
	@@:
292 
	test al,0x80 ;[NumLock]
293 
	jz @f
294 
		or esi,KM_NUMLOCK
295 
	@@:
1457 IgorA 296 
 
6239 IgorA 297 
	mcall SF_SYSTEM_GET,SSF_KEYBOARD_LAYOUT,,conv_tabl ;26.2 получить раскладку клавиатуры
298 
	mcall SF_GET_KEY
299 
	stdcall [tl_key], tree1
1338 IgorA 300 
 
7576 IgorA 301 
	test word [edit1.flags],10b ;ed_focus ;если не в фокусе, выходим
6239 IgorA 302 
	je @f
303 
		cmp ah,0x80 ;if key up
304 
		ja still
305 
		cmp ah,42 ;[Shift] (left)
306 
		je still
307 
		cmp ah,54 ;[Shift] (right)
308 
		je still
309 
		cmp ah,56 ;[Alt]
310 
		je still
311 
		cmp ah,29 ;[Ctrl]
312 
		je still
313 
		cmp ah,69 ;[Pause Break]
314 
		je still
1338 IgorA 315 
 
7571 IgorA 316 
		stdcall KeyConvertToASCII, conv_tabl
7576 IgorA 317 
		stdcall [edit_box_key], edit1
318 
		jmp still
319 
	@@:
320 
	test word [edit2.flags],10b ;ed_focus ;если не в фокусе, выходим
321 
	je @f
322 
		cmp ah,0x80 ;if key up
323 
		ja still
324 
		cmp ah,42 ;[Shift] (left)
325 
		je still
326 
		cmp ah,54 ;[Shift] (right)
327 
		je still
328 
		cmp ah,56 ;[Alt]
329 
		je still
330 
		cmp ah,29 ;[Ctrl]
331 
		je still
332 
		cmp ah,69 ;[Pause Break]
333 
		je still
334 
 
335 
		stdcall KeyConvertToASCII, conv_tabl
7571 IgorA 336 
		stdcall [edit_box_key], edit2
6239 IgorA 337 
		jmp still
338 
	@@:
1338 IgorA 339 
 
6239 IgorA 340 
	stdcall [ted_key], tedit0, conv_tabl,esi
341 
	jmp still
1338 IgorA 342 
 
7573 IgorA 343 
align 4
7576 IgorA 344 
edit1 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_replace, mouse_dd, 0
1457 IgorA 345 
edit2 edit_box TED_PANEL_WIDTH-1, 0, 20, 0xffffff, 0xff80, 0xff0000, 0xff, 0x4080, 300, buf_find, mouse_dd, 0
1338 IgorA 346 
 
2708 IgorA 347 
unpac_mem dd 0
1338 IgorA 348 
 
1343 IgorA 349 
if lang eq ru
2632 IgorA 350 
  head_f_i:
351 
  head_f_l db 'Системная ошибка',0
1592 IgorA 352 
  err_message_found_lib0 db 'Не найдена библиотека ',39,'box_lib.obj',39,0
353 
  err_message_import0 db 'Ошибка при импорте библиотеки ',39,'box_lib.obj',39,0
354 
  err_message_found_lib1 db 'Не найдена библиотека ',39,'msgbox.obj',39,0
355 
  err_message_import1 db 'Ошибка при импорте библиотеки ',39,'msgbox.obj',39,0
356 
  err_message_found_lib2 db 'Не найдена библиотека ',39,'proc_lib.obj',39,0
357 
  err_message_import2 db 'Ошибка при импорте библиотеки ',39,'proc_lib.obj',39,0
2632 IgorA 358 
  err_message_found_lib_3 db 'Не найдена библиотека ',39,'libimg.obj',39,0
359 
  err_message_import_3 db 'Ошибка при импорте библиотеки ',39,'libimg.obj',39,0
2817 IgorA 360 
  err_message_found_lib_4 db 'Не найдена библиотека ',39,'libini.obj',39,0
361 
  err_message_import_4 db 'Ошибка при импорте библиотеки ',39,'libini.obj',39,0
5649 leency 362 
  err_message_found_lib_5 db 'Не найдена библиотека ',39,'libkmenu.obj',39,0
363 
  err_message_import_5 db 'Ошибка при импорте библиотеки ',39,'libkmenu.obj',39,0
1343 IgorA 364 
else
2632 IgorA 365 
  head_f_i:
366 
  head_f_l db 'System error',0
1592 IgorA 367 
  err_message_found_lib0 db 'Sorry I cannot found library ',39,'box_lib.obj',39,0
368 
  err_message_import0 db 'Error on load import library ',39,'box_lib.obj',39,0
369 
  err_message_found_lib1 db 'Sorry I cannot found library ',39,'msgbox.obj',39,0
370 
  err_message_import1 db 'Error on load import library ',39,'msgbox.obj',39,0
371 
  err_message_found_lib2 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,0
372 
  err_message_import2 db 'Error on load import library ',39,'proc_lib.obj',39,0
2632 IgorA 373 
  err_message_found_lib_3 db 'Sorry I cannot found library ',39,'libimg.obj',39,0
374 
  err_message_import_3 db 'Error on load import library ',39,'libimg.obj',39,0
2817 IgorA 375 
  err_message_found_lib_4 db 'Sorry I cannot found library ',39,'libini.obj',39,0
376 
  err_message_import_4 db 'Error on load import library ',39,'libini.obj',39,0
5649 leency 377 
  err_message_found_lib_5 db 'Sorry I cannot found library ',39,'libkmenu.obj',39,0
378 
  err_message_import_5 db 'Error on load import library ',39,'libkmenu.obj',39,0
1343 IgorA 379 
end if
1338 IgorA 380 
 
381 
;library structures
382 
l_libs_start:
2632 IgorA 383 
	lib0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\
384 
		err_message_found_lib0, head_f_l, import_box_lib,err_message_import0, head_f_i
385 
	lib1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\
386 
		err_message_found_lib1, head_f_l, import_msgbox_lib, err_message_import1, head_f_i
387 
	lib2 l_libs lib_name_2, sys_path, file_name, system_dir_2,\
388 
		err_message_found_lib2, head_f_l, import_proclib, err_message_import2, head_f_i
389 
	lib3 l_libs lib_name_3, sys_path, file_name, system_dir_3,\
390 
		err_message_found_lib_3, head_f_l, import_libimg, err_message_import_3, head_f_i
2817 IgorA 391 
	lib4 l_libs lib_name_4, sys_path, file_name, system_dir_4,\
392 
		err_message_found_lib_4, head_f_l, import_libini, err_message_import_4, head_f_i
5649 leency 393 
	lib5 l_libs lib_name_5, sys_path, file_name, system_dir_5,\
394 
		err_message_found_lib_5, head_f_l, import_libkmenu, err_message_import_5, head_f_i
1338 IgorA 395 
load_lib_end:
396 
 
2708 IgorA 397 
IncludeIGlobals
5643 leency 398 
hed db 'TextEdit '
1338 IgorA 399 
i_end:
5643 leency 400 
	openfile_path: ;полный путь к файлу с которым идет работа
401 
		rb 4096
2855 IgorA 402 
	dir_mem rb 32+304*count_of_dir_list_files
403 
	wnd_s_pos: ;место для настроек стартовой позиции окна
404 
		rq 1
405 
	last_open_synt_file rb 32 ;имя последнего подключенного файла синтаксиса
406 
	buf rb BUF_SIZE ;буфер для копирования и вставки
407 
	buf_find rb 302 ;буфер для поиска текста
7576 IgorA 408 
	buf_replace rb 302 ;буфер для замены текста
5939 IgorA 409 
	sc system_colors
2708 IgorA 410 
IncludeUGlobals
1467 IgorA 411 
	align 16
412 
	procinfo process_information
1705 IgorA 413 
		rb 1024
1467 IgorA 414 
	thread:
6256 IgorA 415 
		rb 4096
416 
align 16
3244 IgorA 417 
    thread_coords:
5830 IgorA 418 
	rb 4096
6256 IgorA 419 
align 16
1338 IgorA 420 
stacktop:
4308 IgorA 421 
	sys_path: ;путь откуда запустился исполняемый файл
1705 IgorA 422 
		rb 4096
4308 IgorA 423 
	file_name: ;параметры запуска
1705 IgorA 424 
		rb 4096
4308 IgorA 425 
	syntax_path: ;имя подключаемого файла синтаксиса
1705 IgorA 426 
		rb 4096
427 
	plugin_path:
428 
		rb 4096
4308 IgorA 429 
	text_work_area: ;путь к файлу, который показывается в окне
430 
		rb 4096
431 
	filename_area: ;имя файла для диалога открытия/закрытия
1705 IgorA 432 
		rb 256
433 
	file_info:
434 
		rb 40
1338 IgorA 435 
mem: