Subversion Repositories Kolibri OS

Rev

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