Subversion Repositories Kolibri OS

Rev

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