Subversion Repositories Kolibri OS

Rev

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