Subversion Repositories Kolibri OS

Rev

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

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