WebSVN – Kolibri OS – Diff – /programs/develop/kol_f_edit/kol_f_edit.asm


use32
	org 0x0
	db 'MENUET01'
	dd 0x1
	dd start
	dd i_end
	dd mem
	dd stacktop
	dd buf_cmd_lin
	dd sys_path
 
include '../../macros.inc'
include '../../proc32.inc'
include '../../develop/libraries/box_lib/load_lib.mac'
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'mem.inc'
include 'dll.inc'
include 'strlen.inc'
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
 
hed db 'kol_f_edit 29.11.10',0
 
sizeof.TreeList equ 20 ;need for element 'tree_list'
 
BUF_STRUCT_SIZE equ 21
buf2d_data equ dword[edi] ;¤ ­­ë¥ ¡ãä¥à  ¨§®¡à ¦¥­¨ï
buf2d_w equ dword[edi+8] ;è¨à¨­  ¡ãä¥à 
buf2d_h equ dword[edi+12] ;¢ëá®â  ¡ãä¥à 
buf2d_l equ word[edi+4] ;®âáâã¯ á«¥¢ 
buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢  ¨ á¯à ¢  ¤«ï ¡ãä¥à 
buf2d_color equ dword[edi+16] ;æ¢¥â ä®­  ¡ãä¥à 
buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥­¨ï
 
MAX_LEN_OBJ_TXT equ 200
MAX_CED_OBJECTS equ 200
MAX_OPT_FIELDS equ 11
MAX_OBJ_TYPES equ 18
WND_CAPT_COLOR equ 0xb0d0ff
BUF_SIZE equ 1000
 
C_TD equ 't' ;typedef
C_AC equ 'a' ; ¢â®¬ â¨ç¥áª¨¥ ª®¤ë (auto code)
C_ST equ 's' ;struct
C_IN equ '#' ;include
C_TT equ 'd' ;¡«®ª ª®¤  (¤ ­­ëå)
C_VR equ '-' ;¯¥à¥¬¥­­ ï
C_CO equ ';' ;ª®¬¬¥­â à¨©
C_WI equ 'w' ;®ª­®
C_CB equ 'c' ;CheckBox
C_OP equ 'o' ;OptionBox
C_ED equ 'e' ;EditBox
C_BU equ 'b' ;Button
C_DT equ 'x' ;à¨á®¢ âì â¥ªáâ
C_RE equ 'r' ;à¨á®¢ âì ¯àï¬®ã£®«ì­¨ª
C_KE equ 'k' ;ª« ¢¨ âãà 
C_LIB equ 'l'
C_IFN equ 'f'
 
;modif
CPP_MOD_ACM equ 2 ;á®¡ëâ¨ï ¬ëè¨
BIT_MOD_ACM equ 1 ;á®¡ëâ¨ï ¬ëè¨
CPP_MOD_ACD equ 8 ;¤ ­­ë¥ ®¡ê¥ªâ®¢
BIT_MOD_ACD equ 3 ;¤ ­­ë¥ ®¡ê¥ªâ®¢
CPP_MOD_ABU equ 16 ;á¢ï§ë¢ ­¨¥ ª­®¯®ª
BIT_MOD_ABU equ 4 ;á¢ï§ë¢ ­¨¥ ª­®¯®ª
 
macro load_image_file path,buf,size ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥­¨©
{
	copy_path path,sys_path,fp_icon,0x0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
 
	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥­¨ï
	mov [buf],eax
 
	mov eax,70 ;70-ï äã­ªæ¨ï à ¡®â  á ä ©« ¬¨
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], dword size
	m2m [run_file_70.Buffer], [buf]
	mov byte[run_file_70+20], 0
	mov [run_file_70.FileName], fp_icon
	mov ebx,run_file_70
	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥­¨ï
	cmp ebx,0xffffffff
	je @f
		;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥­¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_decode], dword[buf],ebx,0
		mov dword[image_data],eax
		;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥­¨¥ ª ä®à¬ âã rgb
		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
		;ã¤ «ï¥¬ ¢à¥¬¥­­ë© ¡ãä¥à image_data
		stdcall dword[img_destroy], dword[image_data]
	@@:
}
 
struct FileInfoBlock
	Function dd ?
	Position dd ?
	Flags	 dd ?
	Count	 dd ?
	Buffer	 dd ?
	rezerv	 db ?
	FileName dd ?
ends
 
struct object
	c db ? ;0
	txt rb MAX_LEN_OBJ_TXT ;1
	lvl db 0 ;1+mt
	clo db 0 ;2+mt
	rb 8 ;3+mt ­¥ ¨á¯®«ì§ã¥âáï, ®âáâ «®áì ®â Win ¢¥àá¨¨
	typid dd ? ;3+8+mt
	modif dd ? ;7+8+mt
ends
 
struct ObjOpt
	c db ?
	bl_type db ?
	graph db ?
	info rb 30
	caption rb 200
	Col rw MAX_OPT_FIELDS
	img rw MAX_OPT_FIELDS ;¨­¤¥ªáë ª àâ¨­®ª (¢ ä ©«¥ 'icon.bmp')
ends
 
SKIN_H equ 22
SKIN_W1 equ 5
SKIN_W2 equ 7
SKIN_W3 equ 23
fn_skin_1 db 'left.bmp',0
fn_skin_2 db 'base.bmp',0
fn_skin_3 db 'oper.bmp',0
IMAGE_FILE_SKIN1_SIZE equ 3*(SKIN_W1+3)*SKIN_H+54
IMAGE_FILE_SKIN2_SIZE equ 3*(SKIN_W2+3)*SKIN_H+54
IMAGE_FILE_SKIN3_SIZE equ 3*(SKIN_W3+3)*SKIN_H+54
 
fn_font_s1 db 'font6x9.bmp',0
IMAGE_FILE_FONT1_SIZE equ 96*144*3 ;à §¬¥à ä ©«  á 1-¬ á¨áâ¥¬­ë¬ èà¨äâ®¬
 
fn_icon db 'icon.bmp',0
count_main_icons equ 35 ;ç¨á«® ¨ª®­®ª ¢ ä ©«¥ icon.bmp
bmp_icon rb 0x300*count_main_icons
 
fn_icon_tl_sys db 'tl_sys_16.png',0
TREE_ICON_SYS16_BMP_SIZE equ 256*3*11+54 ;à §¬¥à bmp ä ©«  á á¨áâ¥¬­ë¬¨ ¨ª®­ª ¬¨
icon_tl_sys dd 0 ;ãª § â¥¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨áâ¥¬­ëå ¨ª®­®ª
icon_font_s1 dd 0 ;ãª § â¥«ì ­  ¢à¥¬¥­­ãî ¯ ¬ïâì ¤«ï § £àã§ª¨ èà¨äâ 
 
fn_syntax db 'asm.syn',0 ;¨¬ï § £àã¦ ¥¬®£® ä ©«  á¨­â ªá¨á 
 
include 'ced_wnd_m.inc'
include 'ced_constr.inc' ;ä ©« á äã­ªæ¨ï¬¨ ®ª­  ª®­áâàãªâ®à 
include 'ced_code_g.inc' ;ä ©« á äã­ªæ¨ï¬¨ £¥­¥à¨à®¢ ­¨ï ª®¤®¢
 
align 4
start:
	load_libraries l_libs_start,load_lib_end
 
	;¯à®¢¥àª  ­  áª®«ìª® ã¤ ç­® § £ã§¨« áì ­ è  «¨¡ 
	mov	ebp,lib0
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall -1 ;exit not correct
	@@:
	mov	ebp,lib1
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall -1 ;exit not correct
	@@:
	mov	ebp,lib2
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall -1 ;exit not correct
	@@:
	mov	ebp,lib3
	cmp	dword [ebp+ll_struc_size-4],0
	jz	@f
		mcall -1 ;exit not correct
	@@:
 
	mov eax,[wndObjI.top]
	add eax,[recMain.top]
	inc eax
	mov ebx,[wndObjI.left]
	add ebx,16+6 ;è¨à¨­  ¨ª®­ª¨ + ®âáâã¯ë
	mov edi,edit2
	@@:
		mov ed_top,eax ;®âáâã¯ á¢¥àåã
		mov ed_left,ebx ;®âáâã¯ á«¥¢ 
		add edi,ed_struc_size
		add eax,[recMain.height]
		cmp edi,prop_wnd_edits_end
		jl @b
 
	stdcall [buf2d_create], buf_fon
 
	mcall 48,3,sc,sizeof.system_colors
	mcall 40,0x27
 
	stdcall dword[tl_data_init], tree1
	stdcall dword[tl_data_init], tree2
 
	copy_path fn_icon,sys_path,fp_icon,0x0 ;ä®à¬¨àã¥¬ ¯®«­ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥­¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ®­ ¢ ®¤­®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
	mov eax,70 ;load icon file
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 54
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], 0x300*count_main_icons
	mov [run_file_70.Buffer], bmp_icon
	mov [run_file_70.rezerv], 0
	mov [run_file_70.FileName], fp_icon
	mov ebx,run_file_70
	int 0x40
 
	cmp ebx,-1
	mov [err_ini0],1
	je @f ;if open file
		mov [err_ini0],0
		mov dword[tree1.data_img],bmp_icon
		mov dword[tree2.data_img],bmp_icon
	@@:
 
	;á¨áâ¥¬­ë¥ ¨ª®­ª¨ 16*16 ¤«ï tree_list
	load_image_file fn_icon_tl_sys, icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
	;¥á«¨ ¨§®¡à ¦¥­¨¥ ­¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
	;­¥ ¨­¨æ¨ «¨§¨à®¢ ­­ë¥ ¤ ­­ë¥, ­® ®è¨¡ª¨ ­¥ ¡ã¤¥â, â. ª. ¡ãä¥à ­ã¦­®£® à §¬¥à 
	m2m dword[tree1.data_img_sys],dword[icon_tl_sys]
	m2m dword[tree2.data_img_sys],dword[icon_tl_sys]
 
	;1-© ä ©« áª¨­ 
	load_image_file fn_skin_1, icon_font_s1,IMAGE_FILE_SKIN1_SIZE
	stdcall [buf2d_create_f_img], buf_skin1,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	;2-© ä ©« áª¨­ 
	load_image_file fn_skin_2, icon_font_s1,IMAGE_FILE_SKIN2_SIZE
	stdcall [buf2d_create_f_img], buf_skin2,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	;3-© ä ©« áª¨­ 
	load_image_file fn_skin_3, icon_font_s1,IMAGE_FILE_SKIN3_SIZE
	stdcall [buf2d_create_f_img], buf_skin3,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
 
	;á¨¬¢®«ë 1-£® á¨áâ¥¬­®£® èà¨äâ 
	load_image_file fn_font_s1, icon_font_s1,IMAGE_FILE_FONT1_SIZE
	stdcall [buf2d_create_f_img], buf_font,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç­®áâ¨ 8 ¡¨â
	stdcall [buf2d_convert_text_matrix], buf_font
 
 
	copy_path fn_obj_opt,sys_path,fp_obj_opt,0x0
	;load options file
	mov eax,70
	mov [run_file_70.Position], 0
	mov [run_file_70.Count], sizeof.ObjOpt*MAX_OBJ_TYPES
	mov [run_file_70.Buffer], obj_opt
	mov [run_file_70.FileName], fp_obj_opt
	mov ebx,run_file_70
	int 0x40
 
	cmp ebx,-1
	mov [err_ini1],1
	je .open_end ;jmp if not open file
		mov [err_ini1],0
 
		mov eax,obj_opt ;¤®¡ ¢«ï¥¬ ®¡ê¥ªâë
		@@:
			mov bl,byte[eax]
			cmp bl,0
			je @f
			;xor ecx,ecx ;¢ ecx ¡ã¤¥â ¨­¤¥ªá ¨ª®­ª¨
			mov cx,word[eax+sizeof.ObjOpt-2*MAX_OPT_FIELDS]
			cmp cx,0
			jge .zero
				xor cx,cx ;çâ®-¡ë ­¥ £«îç¨«® á ®âà¨æ â¥«ì­ë¬ ¨­¤¥ªá®¬
			.zero:
			shl ecx,16
			stdcall dword[tl_node_add], eax, ecx, tree1 ;¤®¡ ¢«ï¥¬ ­ §¢ ­¨¥ ®¡ê¥ªâ 
			stdcall dword[tl_cur_next], tree1 ;¯¥à¥­®á¨¬ ªãàá®à ¢­¨§, çâ®-¡ë ­¥ ¯®¬¥­ï«áï ¯®àï¤®ª
			add eax,sizeof.ObjOpt ;¯¥à¥å®¤ ­  á«¥¤ãîé¨© ®¡ê¥ªâ
			jmp @b
		@@:
		stdcall dword[tl_cur_beg], tree1 ;¯¥à¥­®á¨¬ ªãàá®à ¢¢¥àå
 
	.open_end:
 
	stdcall [ted_init], tedit0
	copy_path fn_syntax,sys_path,fp_icon,0x0
	stdcall [ted_init_syntax_file], tedit0,run_file_70,fp_icon
	;mov edi,tedit0
    ;call [ted_text_colored]
 
	;get cmd line
	cmp [buf_cmd_lin],0
	je @f ;if file names exist
		mov esi,buf_cmd_lin
		call strlen ;eax=strlen
		mov edi,[edit1.text]
		mov [edit1.size],eax
		mov ecx,eax
		rep movsb
		call but_open_proj
	@@:
 
 
 
align 4
red_win:
	call draw_window
 
align 4
still:
	mcall 10
 
	cmp al,1
	jne @f
		call draw_window
	@@:
	cmp al,2
	jz key
	cmp al,3
	jz button
	cmp al,6
	jne @f 
		call mouse
	@@:
 
	jmp still
 
align 4
draw_window:
pushad
	mcall 12,1
 
	xor eax,eax
	mov ebx,20*65536+670
	mov ecx,20*65536+370
	mov edx,[sc.work]
	or  edx,0x33000000
	mov edi,hed
	int 0x40
 
	mov eax,8 ;button 'Open Project'
	mov esi,0x80ff
	mov ebx,230*65536+18
	mov ecx,5*65536+18
	mov edx,5
	int 0x40
	stdcall draw_icon, 22,231,6 ;22 - open
 
	;button 'Save Project'
	mov ebx,250*65536+18
	mov ecx,5*65536+18
	mov edx,6
	int 0x40
	stdcall draw_icon, 17,251,6 ;17 - save
 
	;button 'Show Constructor'
	mov ebx,310*65536+18
	mov ecx,5*65536+18
	mov edx,11
	int 0x40
	stdcall draw_icon, 12,311,6 ;12 - window
 
	;button 'Show Code'
	mov ebx,330*65536+18
	mov edx,12
	int 0x40
	stdcall draw_icon, 11,331,6 ;11 - text
 
	;button 'Update: Code, Constructor'
	mov ebx,350*65536+18
	mov edx,13
	int 0x40
	stdcall draw_icon, 32,351,6 ;32 - update
 
	;button 'Save Code'
	mov ebx,370*65536+18
	mov edx,14
	int 0x40
	stdcall draw_icon, 17,371,6 ;17 - save
 
	;button ']P'
	mov ebx,390*65536+18
	mov edx,15
	int 0x40
	stdcall draw_icon, 18,391,6 ;18 - §­ ª ª®­æ   ¡§ æ 
 
	;button 'Show color text'
	mov ebx,410*65536+18
	mov edx,16
	int 0x40
	stdcall draw_icon, 19,411,6
 
	;button 'Add Object'
	mov ebx,125*65536+18
	mov ecx,30*65536+18
	mov edx,31
	int 0x40
	stdcall draw_icon, 14,126,31 ;14 - add object
 
	;button 'Move Up'
	mov ebx,155*65536+18
	mov edx,21
	int 0x40
	stdcall draw_icon, 23,156,31 ;23 - move up
 
 
	;button 'Move Down'
	mov ebx,175*65536+18
	mov edx,22
	int 0x40
	stdcall draw_icon, 24,176,31 ;24 - move down
 
 
	;button 'Copy'
	mov ebx,195*65536+18
	mov edx,23
	int 0x40
 
	stdcall draw_icon, 30,196,31 ;30 - copy
 
	;button 'Paste'
	mov ebx,215*65536+18
	mov edx,24
 
	int 0x40
	stdcall draw_icon, 31,216,31 ;31 - paste
 
	;button 'Property'
	mov ebx,235*65536+18
	mov edx,25
	int 0x40
	stdcall draw_icon, 7,236,31 ;7 - property
 
	;button 'Undo'
	mov ebx,255*65536+18
	mov edx,26
	int 0x40
	stdcall draw_icon, 33,256,31 ;33 - undo
 
	;button 'Redo'
	mov ebx,275*65536+18
	mov edx,27
	int 0x40
	stdcall draw_icon, 34,276,31 ;34 - redo
 
; 10 30 50 70 90
 
	cmp [err_opn],1
	jne @f
		mov eax,4
		mov ebx,10*65536+35
		mov ecx,0x80ff0000
		mov edx,txtErrOpen
		int 0x40
	@@:
 
	cmp [err_ini0],1
	je err_init_icon
	cmp [err_ini1],1
	je err_init_icon
		call draw_obj_info ;®ª­® à¥¤ ªâ¨à®¢ ­¨ï ¢ë¡à ­­®£® ®¡ê¥ªâ 
	err_init_icon:
 
	stdcall [edit_box_draw], dword edit1
	stdcall [edit_box_draw], dword edit_sav
	stdcall [tl_draw],dword tree1
	mov dword[w_scr_t1.all_redraw],1
	stdcall [scrollbar_ver_draw],dword w_scr_t1
	stdcall [tl_draw],dword tree2
	mov dword[w_scr_t2.all_redraw],1
	stdcall [scrollbar_ver_draw],dword w_scr_t2
 
	cmp byte[show_mode],0 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ ®ª­  ª®­áâàãªâ®à 
	jne @f
		stdcall [buf2d_draw], buf_fon
	@@:
	cmp byte[show_mode],1 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ â¥ªáâ®¢®£® ®ª­ 
	jne @f
		stdcall [ted_draw], tedit0
	@@:
	mcall 12,2
popad
	ret
 
align 4
mouse:
	stdcall [edit_box_mouse], dword edit1
	push edi
	mov edi,edit2
	.cycle:
		stdcall [edit_box_mouse], edi
		add edi,ed_struc_size
		cmp edi,prop_wnd_edits_end
		jl .cycle
	pop edi
	stdcall [edit_box_mouse], dword edit_sav
	stdcall [tl_mouse], dword tree1
	stdcall [tl_mouse], dword tree2
	cmp byte[show_mode],1 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ â¥ªáâ®¢®£® ®ª­ 
	jne @f
		stdcall [ted_mouse], tedit0
	@@:
	ret
 
 
align 4
key:
	mcall 2
	stdcall [edit_box_key], dword edit1
	push edi
	mov edi,edit2
	.cycle:
		stdcall [edit_box_key], edi
		add edi,ed_struc_size
		cmp edi,prop_wnd_edits_end
		jl .cycle
	pop edi
	stdcall [edit_box_key], dword edit_sav
	stdcall [tl_key], dword tree1
	stdcall [tl_key], dword tree2
 
;  cmp ah,178 ;Up
;  jne @f
;    cmp [cur_y],0
;    je @f
;    dec [cur_y]
;    call get_obj_pos
;    call draw_window
;  @@:
 
	jmp still
 
align 4
button:
	mcall 17
	cmp ah,5
	jne @f
		call but_open_proj
	@@:
	cmp ah,6
	jne @f
		call but_save_proj
	@@:
	cmp ah,10
	jne @f
		call but_element_change
	@@:
	cmp ah,11
	jne @f
		call but_show_constructor
	@@:
	cmp ah,12
	jne @f
		call but_show_code
	@@:
	cmp ah,13
	jne @f
		call but_update
	@@:
	cmp ah,14
	jne @f
		call but_save_asm
	@@:
	cmp ah,15
	jne @f
		call but_show_invis
	@@:
	cmp ah,16
	jne @f
		call but_show_syntax
	@@:
	cmp ah,21
	jne @f
		call but_obj_move_up
	@@:
	cmp ah,22
	jne @f
		call but_obj_move_down
	@@:
	cmp ah,23
	jne @f
		call but_obj_copy
	@@:
	cmp ah,24
	jne @f
		call but_obj_paste
	@@:
	cmp ah,25
	jne @f
		call on_file_object_select
	@@:
	cmp ah,26
	jne @f
		stdcall [tl_info_undo], tree2
		stdcall [tl_draw], tree2
	@@:
	cmp ah,27
	jne @f
		stdcall [tl_info_redo], tree2
		stdcall [tl_draw], tree2
	@@:
	cmp ah,31
	jne @f
		call on_add_object
	@@:
	cmp ah,1
	jne still
.exit:
	stdcall mem.Free,[icon_tl_sys]
	mov dword[tree1.data_img],0
	mov dword[tree2.data_img],0
	mov dword[tree1.data_img_sys],0
	mov dword[tree2.data_img_sys],0
	stdcall dword[tl_data_clear], tree1
	stdcall dword[tl_data_clear], tree2
	stdcall [buf2d_delete],buf_fon ;ã¤ «ï¥¬ ¡ãä¥à
	stdcall [buf2d_delete],buf_font ;ã¤ «ï¥¬ ¡ãä¥à  
	stdcall [buf2d_delete],buf_skin1
	stdcall [buf2d_delete],buf_skin2
	stdcall [buf2d_delete],buf_skin3
	stdcall [ted_delete], tedit0
	mcall -1
 
align 4
but_open_proj:
	pushad
	mov eax,70
	mov [run_file_70.Function], 0
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], sizeof.object*MAX_CED_OBJECTS
	mov [run_file_70.Buffer], ced_info
	mov [run_file_70.rezerv], 0
	push [edit1.text]
	pop [run_file_70.FileName]
	mov ebx,run_file_70
	int 0x40
 
	cmp ebx,-1
	mov [err_opn],1
	je .open_end ;if open file
		mov ecx,ced_info
		add ecx,ebx
		mov byte [ecx],0
		mov [err_opn],0
 
		stdcall dword[tl_info_clear], tree2
		mov eax,ced_info ;¤®¡ ¢«ï¥¬ ®¡ê¥ªâë
		@@:
			mov bl,byte[eax]
			cmp bl,0
			je @f
 
			call find_obj_in_opt ;edi = pointer to ObjOpt struct
 
			mov cx,word[edi+sizeof.ObjOpt-2*MAX_OPT_FIELDS]
			cmp cx,0
			jge .zero
				xor cx,cx ;çâ®-¡ë ­¥ £«îç¨«® á ®âà¨æ â¥«ì­ë¬ ¨­¤¥ªá®¬
			.zero:
			shl ecx,16 ;¢ ecx ¨­¤¥ªá ¨ª®­ª¨
			mov cl,byte[eax+1+MAX_LEN_OBJ_TXT] ;ãà®¢¥­ì ®¡ê¥ªâ 
 
			;tl_node_close_open - ­¥ ¯®¤å®¤¨â, â.ª. ¤¥©áâ¢ã¥â ­  ã§«ë ¨¬¥îé¨¥ ¤®ç¥à­¨¥
			mov ch,byte[eax+2+MAX_LEN_OBJ_TXT] ;§ ªàëâë©/®âªàëâë©
 
			stdcall dword[tl_node_add], eax, ecx, tree2 ;¤®¡ ¢«ï¥¬ ®¡ê¥ªâ
 
			stdcall dword[tl_cur_next], tree2 ;¯¥à¥­®á¨¬ ªãàá®à ¢­¨§, çâ®-¡ë ­¥ ¯®¬¥­ï«áï ¯®àï¤®ª
			add eax,sizeof.object ;¯¥à¥å®¤ ­  á«¥¤ãîé¨© ®¡ê¥ªâ
			jmp @b
		@@:
		stdcall dword[tl_cur_beg], tree2 ;¯¥à¥­®á¨¬ ªãàá®à ¢¢¥àå
 
		mov [foc_obj],0
		call draw_constructor
		call code_gen
	.open_end:
	call draw_window ;¯¥à¥à¨á®¢ª  ®ª­  ¨¤¥â ¢ «î¡®¬ á«ãç ¥, ¤ ¦¥ ¥á«¨ ä ©« ­¥ ®âªàë«áï
	popad
	ret
 
;á®åà ­¥­¨¥ ä ©«  ¯à®íªâ  ­  ¤¨áª
align 4
but_save_proj:
	pushad
 
	mov edi,ced_info
 
	stdcall [tl_node_poi_get_info], 0,tree2
	pop edx
	@@:
		cmp edx,0
		je @f
		stdcall [tl_node_poi_get_data], edx,tree2
		pop esi ;¯®«ãç ¥¬ ¤ ­­ë¥ ã§« 
 
		mov bl,byte[edx+2] ;bl - ãà®¢¥­ì ®¡ê¥ªâ 
		mov byte[esi+1+MAX_LEN_OBJ_TXT],bl
		mov bl,byte[edx+3] ;bl - ®âªàëâ¨¥/§ ªàëâ¨¥ ®¡ê¥ªâ 
		mov byte[esi+2+MAX_LEN_OBJ_TXT],bl
 
		;¢ëç¨á«ï¥¬ ­®¢ë© ¨­¤¥ªá ¤«ï â¨¯  ®¡ê¥ªâ 
		mov ebx,[esi+3+8+MAX_LEN_OBJ_TXT] ;ebx - â¨¯ ®¡ê¥ªâ 
		;á®åà ­ï¥¬ â¨¯ ®¡ê¥ªâ 
		push ebx
			imul ebx,sizeof.TreeList
			add ebx,[tree2.data_nodes] ;ebx - ãª § â¥«ì ®¡ê¥ªâ ãª §ë¢ îé¨© â¨¯
			stdcall get_obj_npp,ebx
			mov [esi+3+8+MAX_LEN_OBJ_TXT],eax
			mov eax,esi
 
			;ª®¯¨àã¥¬ ®¡ê¥ªâ ¢ ¯ ¬ïâì ¤«ï á®åà ­¥­¨ï
			xor ecx,ecx
			mov cx,word[tree2.info_size]
			cld
			rep movsb
		;¢®ááâ ­ ¢«¨¢ ¥¬ â¨¯ ®¡ê¥ªâ 
		pop dword[eax+3+8+MAX_LEN_OBJ_TXT]
 
		stdcall [tl_node_poi_get_next_info], edx,tree2
		pop edx ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
		jmp @b
	@@:
	mov byte[edi],0
	inc edi
	mov ecx,edi
	sub ecx,ced_info ;ecx - à §¬¥à á®åà ­ï¥¬®£® ä ©«        
 
	mov eax,70
	mov [run_file_70.Function], 2
	mov [run_file_70.Position], 0
	mov [run_file_70.Flags], 0
	mov [run_file_70.Count], ecx
	mov [run_file_70.Buffer], ced_info
	mov [run_file_70.rezerv], 0
	push [edit1.text]
	pop [run_file_70.FileName]
	mov ebx,run_file_70
	int 0x40
 
	popad
	ret
 
;¡¥à¥â ­®¬¥à ¯® ¯®àï¤ªã ¯® ãª § â¥«î ­  áâàãªâãàã ®¡ê¥ªâ 
align 4
proc get_obj_npp, p_obj_str:dword
	mov eax,2
	push ebx edx
	mov ebx,[p_obj_str]
 
	stdcall [tl_node_poi_get_info], 0,tree2
	pop edx
	@@:
		cmp edx,0
		je @f
		cmp edx,ebx
		je @f
 
		inc eax
		stdcall [tl_node_poi_get_next_info], edx,tree2
		pop edx ;¯¥à¥å®¤¨¬ ª á«¥¤ãé¥¬ã ã§«ã
		jmp @b
	@@:
	pop edx ebx
	ret
endp
 
;äã­ªæ¨ï ¤«ï á®åà ­¥­¨ï á®§¤ ­­®£® asm ä ©« 
align 4
but_save_asm:
	;stdcall [ted_but_save_file], tedit0,run_file_70,[edit_sav.text]
	push edi
	mov edi, tedit0
 
	stdcall [ted_but_save_file],edi,run_file_70,[edit_sav.text]
	cmp ted_err_save,0
	jne @f
		stdcall [mb_create],msgbox_1,thread ;message:  ©« ¡ë« á®åà ­¥­
	@@:
	pop edi
	ret
 
;äã­ªæ¨ï ¤«ï ¯®ª § /áªàëâ¨ï ­¥¢¨¤¨¬ëå á¨¬¢®«®¢
align 4
but_show_invis:
	push edi
	mov edi,tedit0
 
	xor ted_mode_invis,1
	cmp byte[show_mode],1 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ â¥ªáâ®¢®£® ®ª­ 
	jne @f
		stdcall [ted_draw],edi
	@@:
	pop edi
	ret
 
;
align 4
but_show_syntax:
	push edi
	mov edi,tedit0
 
	xor ted_mode_color,1
	cmp byte[show_mode],1 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ â¥ªáâ®¢®£® ®ª­ 
	jne @f
		stdcall [ted_draw],edi
	@@:
	pop edi
	ret
 
align 4
ted_save_err_msg:
	mov byte[msgbox_0.err],al
	stdcall [mb_create],msgbox_0,thread ;message: Can-t save text file!
	ret
 
;äã­ªæ¨ï ¢ë§ë¢ ¥¬ ï ¯à¨ ­ ¦ â¨¨ Enter ¢ ®ª­¥ tree2
;®¡­®¢«ï¥â â¥ªáâ®¢ë¥ ¯®«ï §­ ç¥­¨ï¬¨ ¯ à ¬¥âà®¢ ¢§ïâëå ¨§ ®¡ê¥ªâ®¢
;äã­ªæ¨ï ®¡à â­ ï ª ¤ ­­®© but_element_change
align 4
on_file_object_select:
	stdcall [tl_node_get_data], tree2
	pop dword[foc_obj]
	cmp dword[foc_obj],0
	je @f
 
 
		push ebx edi
		xor ebx,ebx
		mov edi,edit2
		.cycle:
			stdcall set_obj_win_param, ebx,edi
 
 
 
 
 
 
 
			inc ebx
			add edi,ed_struc_size
 
			cmp edi,prop_wnd_edits_end
 
			jl .cycle
 
		pop edi ebx
 
 
 
	@@:
 
	call draw_window
	ret
 
align 4
proc set_obj_win_param, col:dword, edit:dword
	pushad
		stdcall get_obj_text_col, [foc_obj], [col] ;edx - text
		stdcall get_obj_text_len_col, [foc_obj], [col] ;eax - ¤«¨­­  ¯®«ï
		mov edi,[edit]
		cmp eax,1
		jl @f
			dec eax
			mov ed_max,eax ;ed_max = edi+.max
			mov ed_focus_border_color, dword 0xff
			mov ed_blur_border_color, dword 0x808080
			stdcall [edit_box_set_text], edi,edx ;®¡­®¢«ï¥¬ editbox
			jmp .end_f
		@@:
			mov ed_max,dword MAX_LEN_OBJ_TXT
			mov ed_focus_border_color, dword 0xffffff ;¤¥« ¥¬ ­¥¢¨¤¨¬ãî  ªâ¨¢­ãî à ¬ªã
			mov ed_blur_border_color, dword 0xffffff ;¤¥« ¥¬ ­¥¢¨¤¨¬ãî ä®­®¢ãî à ¬ªã
			stdcall [edit_box_set_text], edi,txt_null
		.end_f:
	popad
	ret
endp
 
;äã­ªæ¨ï ¢ë§ë¢ ¥¬ ï ¯à¨ ­ ¦ â¨¨ Enter ¢ ®ª­¥ tree1
;¤®¡ ¢«ï¥â ­®¢ë© ®¡ê¥ªâ ¢ ®ª­® tree2
align 4
on_add_object:
push eax ebx ecx
	stdcall [tl_node_get_data], tree1
	pop eax
	cmp eax,0
	je @f
		xor ecx,ecx
		mov cx,word[eax+obj_opt.img-obj_opt] ;cx - ¨­¤¥ªá £« ¢­®© ¨ª®­ª¨ ¤®¡ ¢«ï¥¬®£® ®¡ê¥ªâ 
		shl ecx,16
		stdcall mem_clear, u_object,sizeof.object
		mov bl,byte[eax]
		mov byte[u_object.c],bl
		stdcall dword[tl_node_add], u_object, ecx, tree2 ;¤®¡ ¢«ï¥¬ ®¡ê¥ªâ
	@@:
pop ecx ebx eax
	call draw_window
	ret
 
align 4
but_ctrl_o:
	ret
align 4
but_ctrl_n:
	ret
align 4
but_ctrl_s:
	ret
 
align 4
buf_fon: ;ä®­®¢ë© ¡ãä¥à
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 310 ;+4 left
	dw 50 ;+6 top
	dd 340 ;+8 w
	dd 280 ;+12 h
	dd 0xffffff ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_font: ;¡ãä¥à ¬ âà¨æë á® èà¨äâ®¬
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 25 ;+4 left
	dw 25 ;+6 top
	dd 96 ;+8 w
	dd 144 ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
align 4
buf_skin1:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 0 ;+4 left
	dw 0 ;+6 top
	dd SKIN_W1 ;+8 w
	dd SKIN_H ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
align 4
buf_skin2:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 0 ;+4 left
	dw 0 ;+6 top
	dd SKIN_W2 ;+8 w
	dd SKIN_H ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
align 4
buf_skin3:
	dd 0 ;ãª § â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
	dw 0 ;+4 left
	dw 0 ;+6 top
	dd SKIN_W3 ;+8 w
	dd SKIN_H ;+12 h
	dd 0 ;+16 color
	db 24 ;+20 bit in pixel
 
show_mode db 0 ;à¥¦¨¬ ¤«ï ¯®ª §  ®¯à¥¤¥«¥­­®£® ®ª­ 
txtErrOpen db '¥ ­ ©¤¥­ ä ©«, ¯à®¢¥àìâ¥ ¯à ¢¨«ì­®áâì ¨¬¥­¨',0
txtErrIni1 db '¥ ®âªàë«áï ä ©« á ®¯æ¨ï¬¨',0
err_opn db 0
err_ini0 db 0 ;???
err_ini1 db 0
 
edit1 edit_box 210, 10, 5, 0xffffff, 0xff80, 0xff, 0xff0000, 0x4080, 300, ed_text1, mouse_dd, 0, 7, 7
 
edit2 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text2, mouse_dd, 0
edit3 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text3, mouse_dd, 0
edit4 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text4, mouse_dd, 0
edit5 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text5, mouse_dd, 0
edit6 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text6, mouse_dd, 0
edit7 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text7, mouse_dd, 0
edit8 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text8, mouse_dd, 0
edit9 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text9, mouse_dd, 0
edit10 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text10, mouse_dd, 0
edit11 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text11, mouse_dd, 0
edit12 edit_box 115, 32, 20, 0xffffff, 0x80ff, 0xff, 0x808080, 0, MAX_LEN_OBJ_TXT, ed_text12, mouse_dd, 0
prop_wnd_edits_end: ;ª®­¥æ â¥ªáâ®¢ëå ¯®«¥©, ®â¢¥ç îé¨å §  á¢®©áâ¢ 
 
edit_sav edit_box 210, 310, 30, 0xffffff, 0xff80, 0xff, 0xff0000, 0x4080, 300, ed_text_sav, mouse_dd, 0
 
 
ed_text1 db '/hd0/1/',0
	rb 295
ed_text2 rb MAX_LEN_OBJ_TXT+2
ed_text3 rb MAX_LEN_OBJ_TXT+2
ed_text4 rb MAX_LEN_OBJ_TXT+2
ed_text5 rb MAX_LEN_OBJ_TXT+2
ed_text6 rb MAX_LEN_OBJ_TXT+2
ed_text7 rb MAX_LEN_OBJ_TXT+2
ed_text8 rb MAX_LEN_OBJ_TXT+2
ed_text9 rb MAX_LEN_OBJ_TXT+2
ed_text10 rb MAX_LEN_OBJ_TXT+2
ed_text11 rb MAX_LEN_OBJ_TXT+2
ed_text12 rb MAX_LEN_OBJ_TXT+2
ed_text_sav rb 302
 
txt_null db 'null',0
mouse_dd dd ?
 
el_focus dd tree1
;¤¥à¥¢® á® á¯¨áª®¬ ¢®§¬®¦­ëå â¨¯®¢ ®¡ê¥ªâ®¢
tree1 tree_list sizeof.ObjOpt,20+2, tl_key_no_edit+tl_draw_par_line+tl_list_box_mode,\
	16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,50,125,100, 0,3,0, el_focus,\
	w_scr_t1,on_add_object
;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ìáª®¬ ä ©«¥
tree2 tree_list sizeof.object,MAX_CED_OBJECTS+2, tl_draw_par_line,\
	16,16, 0xffffff,0xb0d0ff,0xd000ff, 155,50,130,280, 13,1,MAX_LEN_OBJ_TXT, el_focus,\
	w_scr_t2,on_file_object_select
 
msgbox_0:
  db 1,0
  db 'Warning',0
  db 'Error saving file!',13,\
     'Maybe the file name is not entered correctly.',13,\
     '  (error code ='
  .err: db '?'
  db ')',0
  db 'Close',0
  db 0
 
msgbox_1:
	db 1,0
	db ':)',0
	db 'File was saved',0
	db 'Ok',0
	db 0
 
struct TexSelect
	x0 dd ?
	y0 dd ?
	x1 dd ?
	y1 dd ?
ends
;------------------------------------------------------------------------------
align 4
tedit0: ;áâàãªâãà  â¥ªáâ®¢®£® à¥¤ ªâ®à 
	.wnd BOX 310,50,325,260 ;+ 0
	.rec BOX 30,13,7,10   ;+16
	.drag_m db 0 ;+32 ¢ë¤¥«¥­¨¥ ®â ¬ëè¨
	.drag_k db 0 ;+33 ¢ë¤¥«¥­¨¥ ®â ª« ¢¨ âãàë
	.sel  TexSelect 0,0,0,0 ;+34 áâàãªâãà  ¢ë¤¥«¥­¨ï
	.seln TexSelect ;+50 ¤®¯®«­¨â¥«ì­ ï áâàãªâãà  ¢ë¤¥«¥­¨ï
	.tex	  dd 0 ;+66 text memory pointer
	.tex_1	  dd 0 ;+70 text first symbol pointer
	.tex_end  dd 0 ;+74 text end memory pointer
	.cur_x	  dd 0 ;+78 ª®®à¤¨­ â  x ªãàá®à 
	.cur_y	  dd 0 ;+82 ª®®à¤¨­ â  y ªãàá®à 
	.max_chars dd 25002 ;+86 ¬ ªá¨¬ «ì­®¥ ç¨á«® á¨¬¢®«®¢ ¢ ®¤­®¬ ¤®ªã¬¥­â¥
	.count_colors_text dd 1 ;+90 ª®««¨ç¥áâ¢® æ¢¥â®¢ â¥ªáâ 
	.count_key_words   dd 0 ;+94 ª®««¨ç¥áâ¢® ª«îç¥¢ëå á«®¢
	.color_cursor	   dd 0xff0000 ;+98 æ¢¥â ªãàá®à 
	.color_wnd_capt    dd 0x0080c0 ;+102 æ¢¥â ¯®«¥© ¢®ªàã£ ®ª­ 
	.color_wnd_work    dd	   0x0 ;+106 æ¢¥â ä®­  ®ª­ 
	.color_wnd_bord    dd 0xffffff ;+110 æ¢¥â â¥ªáâ  ­  ¯®«ïå
	.color_select	   dd 0x0000ff ;+114 æ¢¥â ¢ë¤¥«¥­¨ï
	.color_cur_text    dd 0xffff00 ;+118 æ¢¥â á¨¬¢®«  ¯®¤ ªãàá®à®¬
	.color_wnd_text    dd 0x80ffff ;+122 æ¢¥â â¥ªáâ  ¢ ®ª­¥
	.syntax_file	   dd 0 ;+126 ãª § â¥«ì ­  ­ ç «® ä ©«  á¨­â ªá¨á 
	.syntax_file_size  dd 55*1024 ;+130 ¬ ªá¨¬ «ì­ë© à §¬¥à ä ©«  á¨­â ªá¨á 
	.text_colors	   dd 0 ;+134 ãª § â¥«ì ­  ¬ áá¨¢ æ¢¥â®¢ â¥ªáâ 
	.help_text_f1	   dd 0 ;+138 ãª § â¥«ì ­  â¥ªáâ á¯à ¢ª¨ (¯® ­ ¦ â¨¨ F1)
	.help_id	   dd -1 ;+142 ¨¤¥­â¨ä¨ª â®à ¤«ï á¯à ¢ª¨
	.key_words_data    dd 0 ;+146 ãª § â¥«ì ­  áâàãªâãàë ª«îç¥¢ëå á«®¢ TexColViv
	.tim_ch      dd ? ;+150 ª®«¨ç¥áâ¢® ¨§¬¥­¥­¨© ¢ ä ©«¥
	.tim_undo    dd ? ;+154 ª®«¨ç¥áâ¢® ®â¬¥­¥­­ëå ¤¥©áâ¢¨©
	.tim_ls      dd ? ;+158 ¢à¥¬ï ¯®á«¥¤­¥£® á®åà ­¥­¨ï
	.tim_co      dd ? ;+162 ¢à¥¬ï ¯®á«¥¤­¥© æ¢¥â®¢®© à §¬¥âª¨
	.el_focus    dd el_focus ;+166 ãª § â¥«ì ­  ¯¥à¥¬¥­­ãî í«¥¬¥­â  ¢ ä®ªãá¥
	.err_save    db 0 ;+170 ®è¨¡ª  á®åà ­¥­¨ï ä ©« 
	.panel_id    db 0 ;+171 ­®¬¥à ®âªàëâ®© ¯ ­¥«¨
	.key_new     db 0 ;+172 á¨¬¢®«, ª®â®àë© ¡ã¤¥â ¤®¡ ¢«ïâáï á ª« ¢¨ âãàë
	.symbol_new_line db 20 ;+173 á¨¬¢®« § ¢¥àè¥­¨ï áâà®ª¨
	.scr_w	     dd scrol_w1 ;+174 ¢¥àâ¨ª «ì­ë© áªà®««¨­£
	.scr_h	     dd scrol_h1 ;+178 £®à¨§®­â «ì­ë© áªà®««¨­£
	.arr_key_pos dd 0 ;+182 ãª § â¥«ì ­  ¬ áá¨¢ ¯®§¨æ¨© ª«îç¥¢ëå á«®¢
	.buffer      dd text_buffer ;+186 ãª § â¥«ì ­  ¡ãä¥à ª®¯¨à®¢ ­¨ï/¢áâ ¢ª¨
	.buffer_find dd 0 ;+190 ãª § â¥«ì ­  ¡ãä¥à ¤«ï ¯®¨áª 
	.cur_ins     db 1 ;+194 à¥¦¨¬ à ¡®âë ªãàá®à  (®¡ëç­ë© ¨«¨ § ¬¥­ )
	.mode_color  db 1 ;+195 à¥¦¨¬ ¢ë¤¥«¥­¨ï á«®¢ æ¢¥â®¬ (0-¢ëª«. 1-¢ª«.)
	.mode_invis  db 0 ;+196 à¥¦¨¬ ¯®ª §  ­¥¯¥ç â ¥¬ëå á¨¬¢®«®¢
	.gp_opt      db 0 ;+197 ®¯æ¨¨ ¢®§¢à é ¥¬ë¥ äã­ªæ¨¥© ted_get_pos_by_cursor
	.fun_on_key_ctrl_o dd but_ctrl_o ;+198 ãª § â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¯à¨ ­ ¦ â¨¨ Ctrl+O (®âªàëâ¨¥ ä ©« )
	.fun_on_key_ctrl_f dd 0 ;+202 ... Ctrl+F (¢ë§®¢ /áªàëâ¨ï ¯ ­¥«¨ ¯®¨áª )
	.fun_on_key_ctrl_n dd but_ctrl_n ;+206 ... Ctrl+N (á®§¤ ­¨¥ ­®¢®£® ¤®ªã¬¥­â )
	.fun_on_key_ctrl_s dd 0 ;+210 ... Ctrl+S
	.buffer_size	   dd BUF_SIZE ;+214 à §¬¥à ¡ãä¥à  ª®¯¨à®¢ ­¨ï/¢áâ ¢ª¨
	.fun_find_err	   dd 0 ;+218 ãª § â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¥á«¨ ¯®¨áª § ª®­ç¨«áï ­¥ã¤ ç­®
	.fun_init_synt_err dd 0 ;+222 ãª § â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¯à¨ ®è¨¡®ç­®¬ ®âªàëâ¨¨ ä ©«  á¨­â ªá¨á 
	.fun_draw_panel_buttons dd 0 ;+226 ãª § â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ á ª­®¯ª ¬¨
	.fun_draw_panel_find	dd 0 ;+230 ãª § â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ ¯®¨áª 
	.fun_draw_panel_syntax	dd 0 ;+234 ãª § â¥«ì ­  äã­ªæ¨î à¨á®¢ ­¨ï ¯ ­¥«¨ á¨­â ªá¨á 
	.fun_save_err		dd ted_save_err_msg ;+238 ãª § â¥«ì ­  äã­ªæ¨î ¢ë§ë¢ ¥¬ãî ¥á«¨ á®åà ­¥­¨¥ ä ©«  § ª®­ç¨«®áì ­¥ã¤ ç­®
	.increase_size dd 1000 ;+242 ç¨á«® á¨¬¢®«®¢ ­  ª®â®àë¥ ¡ã¤¥â ã¢¥ç¨¢ âìáï ¯ ¬ïâì ¯à¨ ­¥å¢ âª¥
	.ptr_free_symb dd ? ;+246 ãª § â¥«ì ­  á¢®¡®¤­ãî ¯ ¬ïâì, ¢ ª®â®àãî ¬®¦­® ¤®¡ ¢«ïâì á¨¬¢®« (¨á¯®«ì§ã¥âáï ¢­ãâà¨ í«¥¬¥­â  ¤«ï ãáª®à¥­¨ï ¢áâ ¢ª¨ â¥ªáâ )
;------------------------------------------------------------------------------
align 4
scrol_w1:
.x:
.size_x   dw 16 ;+0
.start_x  dw 85 ;+2
.y:
.size_y   dw 100 ; +4
.start_y  dw  15 ; +6
.btn_high dd  15 ; +8
.type	  dd   1 ;+12
.max_area dd 100 ;+16
rb 4+4
.bckg_col dd 0xeeeeee ;+28
.frnt_col dd 0xbbddff ;+32
.line_col dd 0x808080 ;+36
.redraw   dd   0 ;+40
.delta	  dw   0 ;+44
.delta2   dw   0 ;+46
.run_x:
.r_size_x  dw 0 ;+48
.r_start_x dw 0 ;+50
.run_y:
.r_size_y   dw 0 ;+52
.r_start_y  dw 0 ;+54
.m_pos	    dd 0 ;+56
.m_pos_2    dd 0 ;+60
.m_keys     dd 0 ;+64
.run_size   dd 0 ;+68
.position2  dd 0 ;+72
.work_size  dd 0 ;+76
.all_redraw dd 0 ;+80
.ar_offset  dd 1 ;+84
;---------------------------------------------------------------------
align 4
scrol_h1:
.x:
.size_x     dw 85 ;+0
.start_x    dw 30 ;+2
.y:
.size_y     dw 16 ;+4
.start_y    dw 100 ;+6
.btn_high   dd 15 ;+8
.type	    dd 1  ;+12
.max_area   dd 100 ;+16
rb 4+4
.bckg_col   dd 0xeeeeee ;+28
.frnt_col   dd 0xbbddff ;+32
.line_col   dd 0x808080 ;+36
.redraw     dd 0  ;+40
.delta	    dw 0  ;+44
.delta2     dw 0  ;+46
.run_x:
.r_size_x   dw 0  ;+48
.r_start_x  dw 0  ;+50
.run_y:
.r_size_y   dw 0 ;+52
.r_start_y  dw 0 ;+54
.m_pos	    dd 0 ;+56
.m_pos_2    dd 0 ;+60
.m_keys     dd 0 ;+64
.run_size   dd 0 ;+68
.position2  dd 0 ;+72
.work_size  dd 0 ;+76
.all_redraw dd 0 ;+80
.ar_offset  dd 1 ;+84
 
 
 
align 4
w_scr_t1:
.size_x     dw 16 ;+0
rb 2+2+2
.btn_high   dd 15 ;+8
.type	    dd 1  ;+12
.max_area   dd 100  ;+16
rb 4+4
.bckg_col   dd 0xeeeeee ;+28
.frnt_col   dd 0xbbddff ;+32
.line_col   dd 0  ;+36
rb 4+2+2
.run_x:
rb 2+2+2+2+4+4+4+4+4+4
.all_redraw dd 0 ;+80
.ar_offset  dd 1 ;+84
 
align 4
w_scr_t2:
.size_x     dw 16 ;+0
rb 2+2+2
.btn_high   dd 15 ;+8
.type	    dd 1  ;+12
.max_area   dd 100  ;+16
rb 4+4
.bckg_col   dd 0xeeeeee ;+28
.frnt_col   dd 0xbbddff ;+32
.line_col   dd 0  ;+36
rb 4+2+2
.run_x:
rb 2+2+2+2+4+4+4+4+4+4
.all_redraw dd 0 ;+80
.ar_offset  dd 1 ;+84
 
data_of_code dd 0
sc system_colors
 
image_data dd 0 ;¯ ¬ïâì ¤«ï ¯à¥®¡à §®¢ ­¨ï ª àâ¨­ª¨ äã­ªæ¨ï¬¨ libimg
 
recMain BOX 3,20,16,18 ;ª®®à¤¨­ âë: 1,2 - ®âáâã¯ë; 3,4 - à §¬¥à
ced_info object 0 ;on start == 0
	rb sizeof.object*(MAX_CED_OBJECTS-1)
 
wndObjI BOX 5,155,125+16,175
text_buffer db BUF_SIZE dup(0)
fn_obj_opt db 'ob_o.opt',0
obj_opt ObjOpt
	rb sizeof.ObjOpt*(MAX_OBJ_TYPES-1)
	db 0 ;eof options
 
cur_x dd 0
cur_y dd 0
foc_obj dd 0 ;®¡ê¥ªâ ¢ ä®ªãá¥
obj_m_win dd 0 ;áâàãªâãà  £« ¢­®£® ®ª­ 
 
;
if 1 ;lang eq ru
 
	err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  box_lib.obj',0  ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ­­®¬ ®ª­¥, ¥á«¨ ¡¨¡«¨®â¥ª  ­¥ ¡ã¤¥â ­ ©¤¥­ 
	err_message_import0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ box_lib.obj',0
	err_message_found_lib1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  proc_lib.obj',0
	err_message_import1 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ proc_lib.obj',0
	err_message_found_lib2 db '¥ ã¤ «®áì ­ ©â¨ ¡¨¡«¨®â¥ªã buf2d.obj',0
	err_message_import2 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ buf2d.obj',0
	err_message_found_lib3 db '¥ ã¤ «®áì ­ ©â¨ ¡¨¡«¨®â¥ªã libimg.obj',0
	err_message_import3 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ libimg.obj',0
	err_message_found_lib4 db '¥ ã¤ «®áì ­ ©â¨ ¡¨¡«¨®â¥ªã msgbox.obj',0
	err_message_import4 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ msgbox.obj',0
 
	head_f_i:
	head_f_l db '¨áâ¥¬­ ï ®è¨¡ª ',0 ;§ £®«®¢®ª ®ª­ , ¯à¨ ¢®§­¨ª­®¢¥­¨¨ ®è¨¡ª¨
else
 
	err_message_found_lib0 db 'Sorry I cannot found library box_lib.obj',0
	err_message_import0 db 'Error on load import library box_lib.obj',0
	err_message_found_lib1 db 'Sorry I cannot found library proc_lib.obj',0
	err_message_import1 db 'Error on load import library proc_lib.obj',0
	err_message_found_lib2 db 'Sorry I cannot found library buf2d.obj',0
	err_message_import2 db 'Error on load import library buf2d.obj',0
	err_message_found_lib3 db 'Sorry I cannot found library libimg.obj',0
	err_message_import3 db 'Error on load import library libimg.obj',0
	err_message_found_lib4 db 'Sorry I cannot found library msgbox.obj',0
	err_message_import4 db 'Error on load import library msgbox.obj',0
 
	head_f_i:
	head_f_l db 'System error',0 ;§ £®«®¢®ª ®ª­ , ¯à¨ ¢®§­¨ª­®¢¥­¨¨ ®è¨¡ª¨
end if
 
	system_dir0 db '/sys/lib/'
	lib0_name db 'box_lib.obj',0
 
	system_dir1 db '/sys/lib/'
	lib1_name db 'proc_lib.obj',0
 
	system_dir2 db '/sys/lib/'
	lib2_name db 'buf2d.obj',0
 
	system_dir3 db '/sys/lib/'
	lib3_name db 'libimg.obj',0
 
	system_dir4 db '/sys/lib/'
	lib4_name db 'msgbox.obj',0
 
align 4
import_buf2d_lib:
	dd sz_lib_init
	buf2d_create dd sz_buf2d_create
	buf2d_create_f_img dd sz_buf2d_create_f_img
	buf2d_clear dd sz_buf2d_clear
	buf2d_draw dd sz_buf2d_draw
	buf2d_delete dd sz_buf2d_delete
	buf2d_line dd sz_buf2d_line
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
	buf2d_circle dd sz_buf2d_circle
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
	buf2d_bit_blt dd sz_buf2d_bit_blt
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
	buf2d_cruve_bezier dd sz_buf2d_cruve_bezier
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
	buf2d_draw_text dd sz_buf2d_draw_text
	buf2d_crop_color dd sz_buf2d_crop_color
	buf2d_offset_h dd sz_buf2d_offset_h	
dd 0,0
	sz_lib_init db 'lib_init',0
	sz_buf2d_create db 'buf2d_create',0
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
	sz_buf2d_clear db 'buf2d_clear',0
	sz_buf2d_draw db 'buf2d_draw',0
	sz_buf2d_delete db 'buf2d_delete',0
	sz_buf2d_line db 'buf2d_line',0
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0 ;à¨á®¢ ­¨¥ ¯àï¬®ã£®«ì­¨ª , 2-ï ª®®à¤¨­ â  § ¤ ­  ¯® à §¬¥àã
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
	sz_buf2d_circle db 'buf2d_circle',0 ;à¨á®¢ ­¨¥ ®ªàã¦­®áâ¨
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
	sz_buf2d_cruve_bezier db 'buf2d_cruve_bezier',0
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
	sz_buf2d_draw_text db 'buf2d_draw_text',0
	sz_buf2d_crop_color db 'buf2d_crop_color',0
	sz_buf2d_offset_h db 'buf2d_offset_h',0
 
align 4
import_box_lib:
	dd alib_init2
 
	edit_box_draw dd aEdit_box_draw
	edit_box_key dd aEdit_box_key
	edit_box_mouse dd aEdit_box_mouse
	edit_box_set_text dd aEdit_box_set_text
 
	scrollbar_ver_draw dd aScrollbar_ver_draw
	scrollbar_hor_draw dd aScrollbar_hor_draw
 
	tl_data_init dd sz_tl_data_init
	tl_data_clear dd sz_tl_data_clear
	tl_info_clear dd sz_tl_info_clear
	tl_key dd sz_tl_key
	tl_mouse dd sz_tl_mouse
	tl_draw dd sz_tl_draw
	tl_info_undo dd sz_tl_info_undo
	tl_info_redo dd sz_tl_info_redo
	tl_node_add dd sz_tl_node_add
	tl_node_set_data dd sz_tl_node_set_data
	tl_node_get_data dd sz_tl_node_get_data
	tl_node_delete dd sz_tl_node_delete
	tl_node_move_up dd sz_tl_node_move_up
	tl_node_move_down dd sz_tl_node_move_down
	tl_cur_beg dd sz_tl_cur_beg
	tl_cur_next dd sz_tl_cur_next
	tl_cur_perv dd sz_tl_cur_perv
	tl_node_close_open dd sz_tl_node_close_open
	tl_node_lev_inc dd sz_tl_node_lev_inc
	tl_node_lev_dec dd sz_tl_node_lev_dec
	tl_node_poi_get_info dd sz_tl_node_poi_get_info
	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
	tl_node_poi_get_data dd sz_tl_node_poi_get_data
 
	ted_but_save_file dd sz_ted_but_save_file
	ted_but_sumb_upper dd sz_ted_but_sumb_upper
	ted_but_sumb_lover dd sz_ted_but_sumb_lover
	ted_can_save dd sz_ted_can_save
	ted_clear dd sz_ted_clear
	ted_delete dd sz_ted_delete
	ted_draw dd sz_ted_draw
	ted_init dd sz_ted_init
	ted_init_scroll_bars dd sz_ted_init_scroll_bars
	ted_init_syntax_file dd sz_ted_init_syntax_file
	ted_is_select dd sz_ted_is_select
	ted_key dd sz_ted_key
	ted_mouse dd sz_ted_mouse
	ted_open_file dd sz_ted_open_file
	ted_text_add dd sz_ted_text_add
	ted_but_select_word dd sz_ted_but_select_word
	ted_but_cut dd sz_ted_but_cut
	ted_but_copy dd sz_ted_but_copy
	ted_but_paste dd sz_ted_but_paste
	ted_but_undo dd sz_ted_but_undo
	ted_but_redo dd sz_ted_but_redo
	ted_but_reverse dd sz_ted_but_reverse
	ted_but_find_next dd sz_ted_but_find_next
	ted_text_colored dd sz_ted_text_colored
	;version_text_edit dd sz_ted_version
 
dd 0,0
 
	alib_init2 db 'lib_init',0
 
	aEdit_box_draw	db 'edit_box',0
	aEdit_box_key	db 'edit_box_key',0
	aEdit_box_mouse db 'edit_box_mouse',0
	aEdit_box_set_text db 'edit_box_set_text',0
 
	aScrollbar_ver_draw  db 'scrollbar_v_draw',0
	aScrollbar_hor_draw  db 'scrollbar_h_draw',0
  
	sz_tl_data_init db 'tl_data_init',0
	sz_tl_data_clear db 'tl_data_clear',0
	sz_tl_info_clear db 'tl_info_clear',0
	sz_tl_key db 'tl_key',0
	sz_tl_mouse db 'tl_mouse',0
	sz_tl_draw db 'tl_draw',0
	sz_tl_info_undo db 'tl_info_undo',0
	sz_tl_info_redo db 'tl_info_redo',0
	sz_tl_node_add db 'tl_node_add',0
	sz_tl_node_set_data db 'tl_node_set_data',0
	sz_tl_node_get_data db 'tl_node_get_data',0
	sz_tl_node_delete db 'tl_node_delete',0
	sz_tl_node_move_up db 'tl_node_move_up',0
	sz_tl_node_move_down db 'tl_node_move_down',0
	sz_tl_cur_beg db 'tl_cur_beg',0
	sz_tl_cur_next db 'tl_cur_next',0
	sz_tl_cur_perv db 'tl_cur_perv',0
	sz_tl_node_close_open db 'tl_node_close_open',0
	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
 
	sz_ted_but_save_file	db 'ted_but_save_file',0
	sz_ted_but_sumb_upper	db 'ted_but_sumb_upper',0
	sz_ted_but_sumb_lover	db 'ted_but_sumb_lover',0
	sz_ted_can_save 		db 'ted_can_save',0
	sz_ted_clear			db 'ted_clear',0
	sz_ted_delete			db 'ted_delete',0
	sz_ted_draw				db 'ted_draw',0
	sz_ted_init				db 'ted_init',0
	sz_ted_init_scroll_bars db 'ted_init_scroll_bars',0
	sz_ted_init_syntax_file db 'ted_init_syntax_file',0
	sz_ted_is_select		db 'ted_is_select',0
	sz_ted_key				db 'ted_key',0
	sz_ted_mouse			db 'ted_mouse',0
	sz_ted_open_file		db 'ted_open_file',0
	sz_ted_text_add 		db 'ted_text_add',0
	sz_ted_but_select_word	db 'ted_but_select_word',0
	sz_ted_but_cut			db 'ted_but_cut',0
	sz_ted_but_copy 		db 'ted_but_copy',0
	sz_ted_but_paste		db 'ted_but_paste',0
	sz_ted_but_undo 		db 'ted_but_undo',0
	sz_ted_but_redo 		db 'ted_but_redo',0
	sz_ted_but_reverse		db 'ted_but_reverse',0
	sz_ted_but_find_next	db 'ted_but_find_next',0
	sz_ted_text_colored		db 'ted_text_colored',0
	;sz_ted_version db 'version_text_edit',0
 
align 4
import_proc_lib:
	OpenDialog_Init dd aOpenDialog_Init
	OpenDialog_Start dd aOpenDialog_Start
dd 0,0
	aOpenDialog_Init db 'OpenDialog_init',0
	aOpenDialog_Start db 'OpenDialog_start',0
 
align 4
import_libimg:
	dd alib_init1
	img_is_img  dd aimg_is_img
	img_info    dd aimg_info
	img_from_file dd aimg_from_file
	img_to_file dd aimg_to_file
	img_from_rgb dd aimg_from_rgb
	img_to_rgb  dd aimg_to_rgb
	img_to_rgb2 dd aimg_to_rgb2
	img_decode  dd aimg_decode
	img_encode  dd aimg_encode
	img_create  dd aimg_create
	img_destroy dd aimg_destroy
	img_destroy_layer dd aimg_destroy_layer
	img_count   dd aimg_count
	img_lock_bits dd aimg_lock_bits
	img_unlock_bits dd aimg_unlock_bits
	img_flip    dd aimg_flip
	img_flip_layer dd aimg_flip_layer
	img_rotate  dd aimg_rotate
	img_rotate_layer dd aimg_rotate_layer
	img_draw    dd aimg_draw
 
dd 0,0
 
	alib_init1   db 'lib_init',0
	aimg_is_img  db 'img_is_img',0 ;®¯à¥¤¥«ï¥â ¯® ¤ ­­ë¬, ¬®¦¥â «¨ ¡¨¡«¨®â¥ª  á¤¥« âì ¨§ ­¨å ¨§®¡à ¦¥­¨¥
	aimg_info    db 'img_info',0
	aimg_from_file db 'img_from_file',0
	aimg_to_file db 'img_to_file',0
	aimg_from_rgb db 'img_from_rgb',0
	aimg_to_rgb  db 'img_to_rgb',0 ;¯à¥®¡à §®¢ ­¨¥ ¨§®¡à ¦¥­¨ï ¢ ¤ ­­ë¥ RGB
	aimg_to_rgb2 db 'img_to_rgb2',0
	aimg_decode  db 'img_decode',0 ; ¢â®¬ â¨ç¥áª¨ ®¯à¥¤¥«ï¥â ä®à¬ â £à ä¨ç¥áª¨å ¤ ­­ëå
	aimg_encode  db 'img_encode',0
	aimg_create  db 'img_create',0
	aimg_destroy db 'img_destroy',0
	aimg_destroy_layer db 'img_destroy_layer',0
	aimg_count   db 'img_count',0
	aimg_lock_bits db 'img_lock_bits',0
	aimg_unlock_bits db 'img_unlock_bits',0
	aimg_flip    db 'img_flip',0
	aimg_flip_layer db 'img_flip_layer',0
	aimg_rotate  db 'img_rotate',0
	aimg_rotate_layer db 'img_rotate_layer',0
	aimg_draw    db 'img_draw',0
 
align 4
import_msgbox_lib:
	mb_create dd amb_create
	mb_reinit dd amb_reinit
	mb_setfunctions dd amb_setfunctions
dd 0,0
	amb_create db 'mb_create',0
	amb_reinit db 'mb_reinit',0
	amb_setfunctions db 'mb_setfunctions',0
 
;library structures
l_libs_start:
	lib0 l_libs lib0_name, sys_path, library_path, system_dir0, err_message_found_lib0, head_f_l, import_box_lib, err_message_import0, head_f_i
	lib1 l_libs lib1_name, sys_path, library_path, system_dir1, err_message_found_lib1, head_f_l, import_proc_lib,err_message_import1, head_f_i
	lib2 l_libs lib2_name, sys_path, library_path, system_dir2, err_message_found_lib2, head_f_l, import_buf2d_lib, err_message_import2, head_f_i
	lib3 l_libs lib3_name, sys_path, library_path, system_dir3, err_message_found_lib3, head_f_l, import_libimg, err_message_import3, head_f_i
	lib4 l_libs lib4_name, sys_path, library_path, system_dir4, err_message_found_lib4, head_f_l, import_msgbox_lib, err_message_import4, head_f_i
load_lib_end:
 
 
align 16
procinfo process_information
run_file_70 FileInfoBlock
 
i_end:
	buf_cmd_lin rb 1024
	fp_icon rb 1024 ;icon file path
	fp_obj_opt rb 1024 ;obj options file patch
	rb 1024
	thread: ;¢¢¥àåã ¤®ç¥à­¨© áâ¥ª ¤«ï ®ª­  á®®¡é¥­¨ï
	rb 1024
stacktop: ;¢¢¥àåã áâ¥ª ®á­®¢­®© ¯à®£à ¬¬ë
	sys_path rb 1024
	library_path rb 1024
mem:

Rev 1706	Rev 1711
1	use32	1	use32
2	org 0x0	2	org 0x0
3	db 'MENUET01'	3	db 'MENUET01'
4	dd 0x1	4	dd 0x1
5	dd start	5	dd start
6	dd i_end	6	dd i_end
7	dd mem	7	dd mem
8	dd stacktop	8	dd stacktop
9	dd buf_cmd_lin	9	dd buf_cmd_lin
10	dd sys_path	10	dd sys_path
11		11
12	include '../../macros.inc'	12	include '../../macros.inc'
13	include '../../proc32.inc'	13	include '../../proc32.inc'
14	include '../../develop/libraries/box_lib/load_lib.mac'	14	include '../../develop/libraries/box_lib/load_lib.mac'
15	include '../../develop/libraries/box_lib/trunk/box_lib.mac'	15	include '../../develop/libraries/box_lib/trunk/box_lib.mac'
16	include 'mem.inc'	16	include 'mem.inc'
17	include 'dll.inc'	17	include 'dll.inc'
18	include 'strlen.inc'	18	include 'strlen.inc'
19		19
20	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load	20	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
21		21
22	hed db 'kol_f_edit 20.11.10',0	22	hed db 'kol_f_edit 29.11.10',0
23		23
24	sizeof.TreeList equ 20 ;need for element 'tree_list'	24	sizeof.TreeList equ 20 ;need for element 'tree_list'
25		25
26	BUF_STRUCT_SIZE equ 21	26	BUF_STRUCT_SIZE equ 21
27	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï	27	buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï
28	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à	28	buf2d_w equ dword[edi+8] ;è¨à¨ ¡ãä¥à
29	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à	29	buf2d_h equ dword[edi+12] ;¢ëá®â ¡ãä¥à
30	buf2d_l equ word[edi+4] ;®âáâã¯ á«¥¢	30	buf2d_l equ word[edi+4] ;®âáâã¯ á«¥¢
31	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã	31	buf2d_t equ word[edi+6] ;®âáâã¯ á¢¥àåã
32	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à	32	buf2d_size_lt equ dword[edi+4] ;®âáâã¯ á«¥¢ ¨ á¯à ¢ ¤«ï ¡ãä¥à
33	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à	33	buf2d_color equ dword[edi+16] ;æ¢¥â ä® ¡ãä¥à
34	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï	34	buf2d_bits equ byte[edi+20] ;ª®«¨ç¥áâ¢® ¡¨â ¢ 1-© â®çª¥ ¨§®¡à ¦¥¨ï
35		35
36	MAX_LEN_OBJ_TXT equ 200	36	MAX_LEN_OBJ_TXT equ 200
37	MAX_CED_OBJECTS equ 200	37	MAX_CED_OBJECTS equ 200
38	MAX_OPT_FIELDS equ 11	38	MAX_OPT_FIELDS equ 11
39	MAX_OBJ_TYPES equ 18	39	MAX_OBJ_TYPES equ 18
40	WND_CAPT_COLOR equ 0xb0d0ff	40	WND_CAPT_COLOR equ 0xb0d0ff
41	BUF_SIZE equ 1000	41	BUF_SIZE equ 1000
42		42
43	C_TD equ 't' ;typedef	43	C_TD equ 't' ;typedef
44	C_AC equ 'a' ; ¢â®¬ â¨ç¥áª¨¥ ª®¤ë (auto code)	44	C_AC equ 'a' ; ¢â®¬ â¨ç¥áª¨¥ ª®¤ë (auto code)
45	C_ST equ 's' ;struct	45	C_ST equ 's' ;struct
46	C_IN equ '#' ;include	46	C_IN equ '#' ;include
47	C_TT equ 'd' ;¡«®ª ª®¤ (¤ ëå)	47	C_TT equ 'd' ;¡«®ª ª®¤ (¤ ëå)
48	C_VR equ '-' ;¯¥à¥¬¥ ï	48	C_VR equ '-' ;¯¥à¥¬¥ ï
49	C_CO equ ';' ;ª®¬¬¥â à¨©	49	C_CO equ ';' ;ª®¬¬¥â à¨©
50	C_WI equ 'w' ;®ª®	50	C_WI equ 'w' ;®ª®
51	C_CB equ 'c' ;CheckBox	51	C_CB equ 'c' ;CheckBox
52	C_OP equ 'o' ;OptionBox	52	C_OP equ 'o' ;OptionBox
53	C_ED equ 'e' ;EditBox	53	C_ED equ 'e' ;EditBox
54	C_BU equ 'b' ;Button	54	C_BU equ 'b' ;Button
55	C_DT equ 'x' ;à¨á®¢ âì â¥ªáâ	55	C_DT equ 'x' ;à¨á®¢ âì â¥ªáâ
56	C_RE equ 'r' ;à¨á®¢ âì ¯àï¬®ã£®«ì¨ª	56	C_RE equ 'r' ;à¨á®¢ âì ¯àï¬®ã£®«ì¨ª
57	C_KE equ 'k' ;ª« ¢¨ âãà	57	C_KE equ 'k' ;ª« ¢¨ âãà
58	C_LIB equ 'l'	58	C_LIB equ 'l'
59	C_IFN equ 'f'	59	C_IFN equ 'f'
60		60
61	;modif	61	;modif
62	CPP_MOD_ACM equ 2 ;á®¡ëâ¨ï ¬ëè¨	62	CPP_MOD_ACM equ 2 ;á®¡ëâ¨ï ¬ëè¨
63	BIT_MOD_ACM equ 1 ;á®¡ëâ¨ï ¬ëè¨	63	BIT_MOD_ACM equ 1 ;á®¡ëâ¨ï ¬ëè¨
64	CPP_MOD_ACD equ 8 ;¤ ë¥ ®¡ê¥ªâ®¢	64	CPP_MOD_ACD equ 8 ;¤ ë¥ ®¡ê¥ªâ®¢
65	BIT_MOD_ACD equ 3 ;¤ ë¥ ®¡ê¥ªâ®¢	65	BIT_MOD_ACD equ 3 ;¤ ë¥ ®¡ê¥ªâ®¢
66	CPP_MOD_ABU equ 16 ;á¢ï§ë¢ ¨¥ ª®¯®ª	66	CPP_MOD_ABU equ 16 ;á¢ï§ë¢ ¨¥ ª®¯®ª
67	BIT_MOD_ABU equ 4 ;á¢ï§ë¢ ¨¥ ª®¯®ª	67	BIT_MOD_ABU equ 4 ;á¢ï§ë¢ ¨¥ ª®¯®ª
68		68
69	macro load_image_file path,buf,size ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©	69	macro load_image_file path,buf,size ;¬ ªà®á ¤«ï § £àã§ª¨ ¨§®¡à ¦¥¨©
70	{	70	{
71	copy_path path,sys_path,fp_icon,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	71	copy_path path,sys_path,fp_icon,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
72		72
73	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï	73	stdcall mem.Alloc, dword size ;¢ë¤¥«ï¥¬ ¯ ¬ïâì ¤«ï ¨§®¡à ¦¥¨ï
74	mov [buf],eax	74	mov [buf],eax
75		75
76	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨	76	mov eax,70 ;70-ï äãªæ¨ï à ¡®â á ä ©« ¬¨
77	mov [run_file_70.Function], 0	77	mov [run_file_70.Function], 0
78	mov [run_file_70.Position], 0	78	mov [run_file_70.Position], 0
79	mov [run_file_70.Flags], 0	79	mov [run_file_70.Flags], 0
80	mov [run_file_70.Count], dword size	80	mov [run_file_70.Count], dword size
81	m2m [run_file_70.Buffer], [buf]	81	m2m [run_file_70.Buffer], [buf]
82	mov byte[run_file_70+20], 0	82	mov byte[run_file_70+20], 0
83	mov [run_file_70.FileName], fp_icon	83	mov [run_file_70.FileName], fp_icon
84	mov ebx,run_file_70	84	mov ebx,run_file_70
85	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï	85	int 0x40 ;§ £àã¦ ¥¬ ä ©« ¨§®¡à ¦¥¨ï
86	cmp ebx,0xffffffff	86	cmp ebx,0xffffffff
87	je @f	87	je @f
88	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data	88	;®¯à¥¤¥«ï¥¬ ¢¨¤ ¨§®¡à ¦¥¨ï ¨ ¯¥à¥¢®¤¨¬ ¥£® ¢® ¢à¥¬¥ë© ¡ãä¥à image_data
89	stdcall dword[img_decode], dword[buf],ebx,0	89	stdcall dword[img_decode], dword[buf],ebx,0
90	mov dword[image_data],eax	90	mov dword[image_data],eax
91	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb	91	;¯à¥®¡à §ã¥¬ ¨§®¡à ¦¥¨¥ ª ä®à¬ âã rgb
92	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]	92	stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
93	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data	93	;ã¤ «ï¥¬ ¢à¥¬¥ë© ¡ãä¥à image_data
94	stdcall dword[img_destroy], dword[image_data]	94	stdcall dword[img_destroy], dword[image_data]
95	@@:	95	@@:
96	}	96	}
97		97
98	struct FileInfoBlock	98	struct FileInfoBlock
99	Function dd ?	99	Function dd ?
100	Position dd ?	100	Position dd ?
101	Flags dd ?	101	Flags dd ?
102	Count dd ?	102	Count dd ?
103	Buffer dd ?	103	Buffer dd ?
104	rezerv db ?	104	rezerv db ?
105	FileName dd ?	105	FileName dd ?
106	ends	106	ends
107		107
108	struct object	108	struct object
109	c db ? ;0	109	c db ? ;0
110	txt rb MAX_LEN_OBJ_TXT ;1	110	txt rb MAX_LEN_OBJ_TXT ;1
111	lvl db 0 ;1+mt	111	lvl db 0 ;1+mt
112	clo db 0 ;2+mt	112	clo db 0 ;2+mt
113	rb 8 ;3+mt ¥ ¨á¯®«ì§ã¥âáï, ®âáâ «®áì ®â Win ¢¥àá¨¨	113	rb 8 ;3+mt ¥ ¨á¯®«ì§ã¥âáï, ®âáâ «®áì ®â Win ¢¥àá¨¨
114	typid dd ? ;3+8+mt	114	typid dd ? ;3+8+mt
115	modif dd ? ;7+8+mt	115	modif dd ? ;7+8+mt
116	ends	116	ends
117		117
118	struct ObjOpt	118	struct ObjOpt
119	c db ?	119	c db ?
120	bl_type db ?	120	bl_type db ?
121	graph db ?	121	graph db ?
122	info rb 30	122	info rb 30
123	caption rb 200	123	caption rb 200
124	Col rw MAX_OPT_FIELDS	124	Col rw MAX_OPT_FIELDS
125	img rw MAX_OPT_FIELDS ;¨¤¥ªáë ª àâ¨®ª (¢ ä ©«¥ 'icon.bmp')	125	img rw MAX_OPT_FIELDS ;¨¤¥ªáë ª àâ¨®ª (¢ ä ©«¥ 'icon.bmp')
126	ends	126	ends
127		127
128	SKIN_H equ 22	128	SKIN_H equ 22
129	SKIN_W1 equ 5	129	SKIN_W1 equ 5
130	SKIN_W2 equ 7	130	SKIN_W2 equ 7
131	SKIN_W3 equ 23	131	SKIN_W3 equ 23
132	fn_skin_1 db 'left.bmp',0	132	fn_skin_1 db 'left.bmp',0
133	fn_skin_2 db 'base.bmp',0	133	fn_skin_2 db 'base.bmp',0
134	fn_skin_3 db 'oper.bmp',0	134	fn_skin_3 db 'oper.bmp',0
135	IMAGE_FILE_SKIN1_SIZE equ 3(SKIN_W1+3)SKIN_H+54	135	IMAGE_FILE_SKIN1_SIZE equ 3(SKIN_W1+3)SKIN_H+54
136	IMAGE_FILE_SKIN2_SIZE equ 3(SKIN_W2+3)SKIN_H+54	136	IMAGE_FILE_SKIN2_SIZE equ 3(SKIN_W2+3)SKIN_H+54
137	IMAGE_FILE_SKIN3_SIZE equ 3(SKIN_W3+3)SKIN_H+54	137	IMAGE_FILE_SKIN3_SIZE equ 3(SKIN_W3+3)SKIN_H+54
138		138
139	fn_font_s1 db 'font6x9.bmp',0	139	fn_font_s1 db 'font6x9.bmp',0
140	IMAGE_FILE_FONT1_SIZE equ 961443 ;à §¬¥à ä ©« á 1-¬ á¨áâ¥¬ë¬ èà¨äâ®¬	140	IMAGE_FILE_FONT1_SIZE equ 961443 ;à §¬¥à ä ©« á 1-¬ á¨áâ¥¬ë¬ èà¨äâ®¬
141		141
142	fn_icon db 'icon.bmp',0	142	fn_icon db 'icon.bmp',0
143	count_main_icons equ 33 ;ç¨á«® ¨ª®®ª ¢ ä ©«¥ icon.bmp	143	count_main_icons equ 35 ;ç¨á«® ¨ª®®ª ¢ ä ©«¥ icon.bmp
144	bmp_icon rb 0x300*count_main_icons	144	bmp_icon rb 0x300*count_main_icons
145		145
146	fn_icon_tl_sys db 'tl_sys_16.png',0	146	fn_icon_tl_sys db 'tl_sys_16.png',0
147	TREE_ICON_SYS16_BMP_SIZE equ 256311+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨	147	TREE_ICON_SYS16_BMP_SIZE equ 256311+54 ;à §¬¥à bmp ä ©« á á¨áâ¥¬ë¬¨ ¨ª®ª ¬¨
148	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª	148	icon_tl_sys dd 0 ;ãª § â¥¥«ì ¯ ¬ïâì ¤«ï åà ¥¨ï á¨áâ¥¬ëå ¨ª®®ª
149	icon_font_s1 dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì ¤«ï § £àã§ª¨ èà¨äâ	149	icon_font_s1 dd 0 ;ãª § â¥«ì ¢à¥¬¥ãî ¯ ¬ïâì ¤«ï § £àã§ª¨ èà¨äâ
150		150
151	fn_syntax db 'asm.syn',0 ;¨¬ï § £àã¦ ¥¬®£® ä ©« á¨â ªá¨á	151	fn_syntax db 'asm.syn',0 ;¨¬ï § £àã¦ ¥¬®£® ä ©« á¨â ªá¨á
152		152
153	include 'ced_wnd_m.inc'	153	include 'ced_wnd_m.inc'
154	include 'ced_constr.inc' ;ä ©« á äãªæ¨ï¬¨ ®ª ª®áâàãªâ®à	154	include 'ced_constr.inc' ;ä ©« á äãªæ¨ï¬¨ ®ª ª®áâàãªâ®à
155	include 'ced_code_g.inc' ;ä ©« á äãªæ¨ï¬¨ £¥¥à¨à®¢ ¨ï ª®¤®¢	155	include 'ced_code_g.inc' ;ä ©« á äãªæ¨ï¬¨ £¥¥à¨à®¢ ¨ï ª®¤®¢
156		156
157	align 4	157	align 4
158	start:	158	start:
159	load_libraries l_libs_start,load_lib_end	159	load_libraries l_libs_start,load_lib_end
160		160
161	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è «¨¡	161	;¯à®¢¥àª áª®«ìª® ã¤ ç® § £ã§¨« áì è «¨¡
162	mov ebp,lib0	162	mov ebp,lib0
163	cmp dword [ebp+ll_struc_size-4],0	163	cmp dword [ebp+ll_struc_size-4],0
164	jz @f	164	jz @f
165	mcall -1 ;exit not correct	165	mcall -1 ;exit not correct
166	@@:	166	@@:
167	mov ebp,lib1	167	mov ebp,lib1
168	cmp dword [ebp+ll_struc_size-4],0	168	cmp dword [ebp+ll_struc_size-4],0
169	jz @f	169	jz @f
170	mcall -1 ;exit not correct	170	mcall -1 ;exit not correct
171	@@:	171	@@:
172	mov ebp,lib2	172	mov ebp,lib2
173	cmp dword [ebp+ll_struc_size-4],0	173	cmp dword [ebp+ll_struc_size-4],0
174	jz @f	174	jz @f
175	mcall -1 ;exit not correct	175	mcall -1 ;exit not correct
176	@@:	176	@@:
177	mov ebp,lib3	177	mov ebp,lib3
178	cmp dword [ebp+ll_struc_size-4],0	178	cmp dword [ebp+ll_struc_size-4],0
179	jz @f	179	jz @f
180	mcall -1 ;exit not correct	180	mcall -1 ;exit not correct
181	@@:	181	@@:
182		182
183	mov eax,[wndObjI.top]	183	mov eax,[wndObjI.top]
184	add eax,[recMain.top]	184	add eax,[recMain.top]
185	inc eax	185	inc eax
-		186	mov ebx,[wndObjI.left]
-		187	add ebx,16+6 ;è¨à¨ ¨ª®ª¨ + ®âáâã¯ë
186	mov edi,edit2	188	mov edi,edit2
187	@@:	189	@@:
188	mov ed_top,eax	190	mov ed_top,eax ;®âáâã¯ á¢¥àåã
-		191	mov ed_left,ebx ;®âáâã¯ á«¥¢
189	add edi,ed_struc_size	192	add edi,ed_struc_size
190	add eax,[recMain.height]	193	add eax,[recMain.height]
191	cmp edi,prop_wnd_edits_end	194	cmp edi,prop_wnd_edits_end
192	jl @b	195	jl @b
193		196
194	stdcall [buf2d_create], buf_fon	197	stdcall [buf2d_create], buf_fon
195		198
196	mcall 48,3,sc,sizeof.system_colors	199	mcall 48,3,sc,sizeof.system_colors
197	mcall 40,0x27	200	mcall 40,0x27
198		201
199	stdcall dword[tl_data_init], tree1	202	stdcall dword[tl_data_init], tree1
200	stdcall dword[tl_data_init], tree2	203	stdcall dword[tl_data_init], tree2
201		204
202	copy_path fn_icon,sys_path,fp_icon,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©	205	copy_path fn_icon,sys_path,fp_icon,0x0 ;ä®à¬¨àã¥¬ ¯®«ë© ¯ãâì ª ä ©«ã ¨§®¡à ¦¥¨ï, ¯®¤à §ã¬¥¢ ¥¬ çâ® ® ¢ ®¤®© ¯ ¯ª¥ á ¯à®£à ¬¬®©
203	mov eax,70 ;load icon file	206	mov eax,70 ;load icon file
204	mov [run_file_70.Function], 0	207	mov [run_file_70.Function], 0
205	mov [run_file_70.Position], 54	208	mov [run_file_70.Position], 54
206	mov [run_file_70.Flags], 0	209	mov [run_file_70.Flags], 0
207	mov [run_file_70.Count], 0x300*count_main_icons	210	mov [run_file_70.Count], 0x300*count_main_icons
208	mov [run_file_70.Buffer], bmp_icon	211	mov [run_file_70.Buffer], bmp_icon
209	mov [run_file_70.rezerv], 0	212	mov [run_file_70.rezerv], 0
210	mov [run_file_70.FileName], fp_icon	213	mov [run_file_70.FileName], fp_icon
211	mov ebx,run_file_70	214	mov ebx,run_file_70
212	int 0x40	215	int 0x40
213		216
214	cmp ebx,-1	217	cmp ebx,-1
215	mov [err_ini0],1	218	mov [err_ini0],1
216	je @f ;if open file	219	je @f ;if open file
217	mov [err_ini0],0	220	mov [err_ini0],0
218	mov dword[tree1.data_img],bmp_icon	221	mov dword[tree1.data_img],bmp_icon
219	mov dword[tree2.data_img],bmp_icon	222	mov dword[tree2.data_img],bmp_icon
220	@@:	223	@@:
221		224
222	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list	225	;á¨áâ¥¬ë¥ ¨ª®ª¨ 16*16 ¤«ï tree_list
223	load_image_file fn_icon_tl_sys, icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE	226	load_image_file fn_icon_tl_sys, icon_tl_sys,TREE_ICON_SYS16_BMP_SIZE
224	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ	227	;¥á«¨ ¨§®¡à ¦¥¨¥ ¥ ®âªàë«®áì, â® ¢ icon_tl_sys ¡ã¤ãâ
225	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à	228	;¥ ¨¨æ¨ «¨§¨à®¢ ë¥ ¤ ë¥, ® ®è¨¡ª¨ ¥ ¡ã¤¥â, â. ª. ¡ãä¥à ã¦®£® à §¬¥à
226	m2m dword[tree1.data_img_sys],dword[icon_tl_sys]	229	m2m dword[tree1.data_img_sys],dword[icon_tl_sys]
227	m2m dword[tree2.data_img_sys],dword[icon_tl_sys]	230	m2m dword[tree2.data_img_sys],dword[icon_tl_sys]
228		231
229	;1-© ä ©« áª¨	232	;1-© ä ©« áª¨
230	load_image_file fn_skin_1, icon_font_s1,IMAGE_FILE_SKIN1_SIZE	233	load_image_file fn_skin_1, icon_font_s1,IMAGE_FILE_SKIN1_SIZE
231	stdcall [buf2d_create_f_img], buf_skin1,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à	234	stdcall [buf2d_create_f_img], buf_skin1,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
232	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	235	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
233	;2-© ä ©« áª¨	236	;2-© ä ©« áª¨
234	load_image_file fn_skin_2, icon_font_s1,IMAGE_FILE_SKIN2_SIZE	237	load_image_file fn_skin_2, icon_font_s1,IMAGE_FILE_SKIN2_SIZE
235	stdcall [buf2d_create_f_img], buf_skin2,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à	238	stdcall [buf2d_create_f_img], buf_skin2,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
236	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	239	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
237	;3-© ä ©« áª¨	240	;3-© ä ©« áª¨
238	load_image_file fn_skin_3, icon_font_s1,IMAGE_FILE_SKIN3_SIZE	241	load_image_file fn_skin_3, icon_font_s1,IMAGE_FILE_SKIN3_SIZE
239	stdcall [buf2d_create_f_img], buf_skin3,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à	242	stdcall [buf2d_create_f_img], buf_skin3,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
240	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	243	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
241		244
242	;á¨¬¢®«ë 1-£® á¨áâ¥¬®£® èà¨äâ	245	;á¨¬¢®«ë 1-£® á¨áâ¥¬®£® èà¨äâ
243	load_image_file fn_font_s1, icon_font_s1,IMAGE_FILE_FONT1_SIZE	246	load_image_file fn_font_s1, icon_font_s1,IMAGE_FILE_FONT1_SIZE
244	stdcall [buf2d_create_f_img], buf_font,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à	247	stdcall [buf2d_create_f_img], buf_font,[icon_font_s1] ;á®§¤ ¥¬ ¡ãä¥à
245	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì	248	stdcall mem.Free,[icon_font_s1] ;®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì
246	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â	249	stdcall [buf2d_conv_24_to_8], buf_font,1 ;¤¥« ¥¬ ¡ãä¥à ¯à®§à ç®áâ¨ 8 ¡¨â
247	stdcall [buf2d_convert_text_matrix], buf_font	250	stdcall [buf2d_convert_text_matrix], buf_font
248		251
249		252
250	copy_path fn_obj_opt,sys_path,fp_obj_opt,0x0	253	copy_path fn_obj_opt,sys_path,fp_obj_opt,0x0
251	;load options file	254	;load options file
252	mov eax,70	255	mov eax,70
253	mov [run_file_70.Position], 0	256	mov [run_file_70.Position], 0
254	mov [run_file_70.Count], sizeof.ObjOpt*MAX_OBJ_TYPES	257	mov [run_file_70.Count], sizeof.ObjOpt*MAX_OBJ_TYPES
255	mov [run_file_70.Buffer], obj_opt	258	mov [run_file_70.Buffer], obj_opt
256	mov [run_file_70.FileName], fp_obj_opt	259	mov [run_file_70.FileName], fp_obj_opt
257	mov ebx,run_file_70	260	mov ebx,run_file_70
258	int 0x40	261	int 0x40
259		262
260	cmp ebx,-1	263	cmp ebx,-1
261	mov [err_ini1],1	264	mov [err_ini1],1
262	je .open_end ;jmp if not open file	265	je .open_end ;jmp if not open file
263	mov [err_ini1],0	266	mov [err_ini1],0
264		267
265	mov eax,obj_opt ;¤®¡ ¢«ï¥¬ ®¡ê¥ªâë	268	mov eax,obj_opt ;¤®¡ ¢«ï¥¬ ®¡ê¥ªâë
266	@@:	269	@@:
267	mov bl,byte[eax]	270	mov bl,byte[eax]
268	cmp bl,0	271	cmp bl,0
269	je @f	272	je @f
270	;xor ecx,ecx ;¢ ecx ¡ã¤¥â ¨¤¥ªá ¨ª®ª¨	273	;xor ecx,ecx ;¢ ecx ¡ã¤¥â ¨¤¥ªá ¨ª®ª¨
271	mov cx,word[eax+sizeof.ObjOpt-2*MAX_OPT_FIELDS]	274	mov cx,word[eax+sizeof.ObjOpt-2*MAX_OPT_FIELDS]
272	cmp cx,0	275	cmp cx,0
273	jge .zero	276	jge .zero
274	xor cx,cx ;çâ®-¡ë ¥ £«îç¨«® á ®âà¨æ â¥«ìë¬ ¨¤¥ªá®¬	277	xor cx,cx ;çâ®-¡ë ¥ £«îç¨«® á ®âà¨æ â¥«ìë¬ ¨¤¥ªá®¬
275	.zero:	278	.zero:
276	shl ecx,16	279	shl ecx,16
277	stdcall dword[tl_node_add], eax, ecx, tree1 ;¤®¡ ¢«ï¥¬ §¢ ¨¥ ®¡ê¥ªâ	280	stdcall dword[tl_node_add], eax, ecx, tree1 ;¤®¡ ¢«ï¥¬ §¢ ¨¥ ®¡ê¥ªâ
278	stdcall dword[tl_cur_next], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¨§, çâ®-¡ë ¥ ¯®¬¥ï«áï ¯®àï¤®ª	281	stdcall dword[tl_cur_next], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¨§, çâ®-¡ë ¥ ¯®¬¥ï«áï ¯®àï¤®ª
279	add eax,sizeof.ObjOpt ;¯¥à¥å®¤ á«¥¤ãîé¨© ®¡ê¥ªâ	282	add eax,sizeof.ObjOpt ;¯¥à¥å®¤ á«¥¤ãîé¨© ®¡ê¥ªâ
280	jmp @b	283	jmp @b
281	@@:	284	@@:
282	stdcall dword[tl_cur_beg], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¢¥àå	285	stdcall dword[tl_cur_beg], tree1 ;¯¥à¥®á¨¬ ªãàá®à ¢¢¥àå
283		286
284	.open_end:	287	.open_end:
285		288
286	stdcall [ted_init], tedit0	289	stdcall [ted_init], tedit0
287	copy_path fn_syntax,sys_path,fp_icon,0x0	290	copy_path fn_syntax,sys_path,fp_icon,0x0
288	stdcall [ted_init_syntax_file], tedit0,run_file_70,fp_icon	291	stdcall [ted_init_syntax_file], tedit0,run_file_70,fp_icon
289	;mov edi,tedit0	292	;mov edi,tedit0
290	;call [ted_text_colored]	293	;call [ted_text_colored]
291		294
292	;get cmd line	295	;get cmd line
293	cmp [buf_cmd_lin],0	296	cmp [buf_cmd_lin],0
294	je @f ;if file names exist	297	je @f ;if file names exist
295	mov esi,buf_cmd_lin	298	mov esi,buf_cmd_lin
296	call strlen ;eax=strlen	299	call strlen ;eax=strlen
297	mov edi,[edit1.text]	300	mov edi,[edit1.text]
298	mov [edit1.size],eax	301	mov [edit1.size],eax
299	mov ecx,eax	302	mov ecx,eax
300	rep movsb	303	rep movsb
301	call but_open_proj	304	call but_open_proj
302	@@:	305	@@:
303		306
304		307
305		308
306	align 4	309	align 4
307	red_win:	310	red_win:
308	call draw_window	311	call draw_window
309		312
310	align 4	313	align 4
311	still:	314	still:
312	mcall 10	315	mcall 10
313		316
314	cmp al,1	317	cmp al,1
315	jne @f	318	jne @f
316	call draw_window	319	call draw_window
317	@@:	320	@@:
318	cmp al,2	321	cmp al,2
319	jz key	322	jz key
320	cmp al,3	323	cmp al,3
321	jz button	324	jz button
322	cmp al,6	325	cmp al,6
323	jne @f	326	jne @f
324	call mouse	327	call mouse
325	@@:	328	@@:
326		329
327	jmp still	330	jmp still
328		331
329	align 4	332	align 4
330	draw_window:	333	draw_window:
331	pushad	334	pushad
332	mcall 12,1	335	mcall 12,1
333		336
334	xor eax,eax	337	xor eax,eax
335	mov ebx,20*65536+670	338	mov ebx,20*65536+670
336	mov ecx,20*65536+370	339	mov ecx,20*65536+370
337	mov edx,[sc.work]	340	mov edx,[sc.work]
338	or edx,0x33000000	341	or edx,0x33000000
339	mov edi,hed	342	mov edi,hed
340	int 0x40	343	int 0x40
341		344
342	mov eax,8 ;button 'Open Project'	345	mov eax,8 ;button 'Open Project'
343	mov esi,0x80ff	346	mov esi,0x80ff
344	mov ebx,230*65536+18	347	mov ebx,230*65536+18
345	mov ecx,5*65536+18	348	mov ecx,5*65536+18
346	mov edx,5	349	mov edx,5
347	int 0x40	350	int 0x40
348	stdcall draw_icon, 22,231,6 ;22 - open	351	stdcall draw_icon, 22,231,6 ;22 - open
349		352
350	;button 'Save Project'	353	;button 'Save Project'
351	mov ebx,250*65536+18	354	mov ebx,250*65536+18
352	mov ecx,5*65536+18	355	mov ecx,5*65536+18
353	mov edx,6	356	mov edx,6
354	int 0x40	357	int 0x40
355	stdcall draw_icon, 17,251,6 ;17 - save	358	stdcall draw_icon, 17,251,6 ;17 - save
356		359
357	;button 'Show Constructor'	360	;button 'Show Constructor'
358	mov ebx,310*65536+18	361	mov ebx,310*65536+18
359	mov ecx,5*65536+18	362	mov ecx,5*65536+18
360	mov edx,11	363	mov edx,11
361	int 0x40	364	int 0x40
362	stdcall draw_icon, 12,311,6 ;12 - window	365	stdcall draw_icon, 12,311,6 ;12 - window
363		366
364	;button 'Show Code'	367	;button 'Show Code'
365	mov ebx,330*65536+18	368	mov ebx,330*65536+18
366	mov edx,12	369	mov edx,12
367	int 0x40	370	int 0x40
368	stdcall draw_icon, 11,331,6 ;11 - text	371	stdcall draw_icon, 11,331,6 ;11 - text
369		372
370	;button 'Update Code'	373	;button 'Update: Code, Constructor'
371	mov ebx,350*65536+18	374	mov ebx,350*65536+18
372	mov edx,13	375	mov edx,13
373	int 0x40	376	int 0x40
374	stdcall draw_icon, 32,351,6 ;32 - update	377	stdcall draw_icon, 32,351,6 ;32 - update
375		378
376	;button 'Save Code'	379	;button 'Save Code'
377	mov ebx,370*65536+18	380	mov ebx,370*65536+18
378	mov edx,14	381	mov edx,14
379	int 0x40	382	int 0x40
380	stdcall draw_icon, 17,371,6 ;17 - save	383	stdcall draw_icon, 17,371,6 ;17 - save
381		384
382	;button ']P'	385	;button ']P'
383	mov ebx,390*65536+18	386	mov ebx,390*65536+18
384	mov edx,15	387	mov edx,15
385	int 0x40	388	int 0x40
386	stdcall draw_icon, 18,391,6 ;18 - § ª ª®æ ¡§ æ	389	stdcall draw_icon, 18,391,6 ;18 - § ª ª®æ ¡§ æ
387		390
388	;button 'Show color text'	391	;button 'Show color text'
389	mov ebx,410*65536+18	392	mov ebx,410*65536+18
390	mov edx,16	393	mov edx,16
391	int 0x40	394	int 0x40
392	stdcall draw_icon, 19,411,6	395	stdcall draw_icon, 19,411,6
393		396
394	;button 'Move Up'	397	;button 'Add Object'
395	mov ebx,160*65536+18	398	mov ebx,125*65536+18
-		399	mov ecx,30*65536+18
-		400	mov edx,31
-		401	int 0x40
-		402	stdcall draw_icon, 14,126,31 ;14 - add object
-		403
-		404	;button 'Move Up'
396	mov ecx,30*65536+18	405	mov ebx,155*65536+18
397	mov edx,21	406	mov edx,21
398	int 0x40	407	int 0x40
399	stdcall draw_icon, 23,161,31 ;23 - move up	408	stdcall draw_icon, 23,156,31 ;23 - move up
400		409
401	;button 'Move Down'	-
402	mov ebx,180*65536+18	410	;button 'Move Down'
403	mov ecx,30*65536+18	411	mov ebx,175*65536+18
404	mov edx,22	412	mov edx,22
405	int 0x40	413	int 0x40
406	stdcall draw_icon, 24,181,31 ;24 - move down	414	stdcall draw_icon, 24,176,31 ;24 - move down
407		-
408	;button 'Copy'	415
409	mov ebx,200*65536+18	416	;button 'Copy'
410	mov ecx,30*65536+18	417	mov ebx,195*65536+18
411	mov edx,23	418	mov edx,23
412	int 0x40	419	int 0x40
413	stdcall draw_icon, 30,201,31 ;30 - copy	-
414		420	stdcall draw_icon, 30,196,31 ;30 - copy
415	;button 'Paste'	421
416	mov ebx,220*65536+18	422	;button 'Paste'
417	mov ecx,30*65536+18	423	mov ebx,215*65536+18
418	mov edx,24	424	mov edx,24
419	int 0x40	-
420	stdcall draw_icon, 31,221,31 ;31 - paste	425	int 0x40
421		426	stdcall draw_icon, 31,216,31 ;31 - paste
422	;button 'Property'	427
-		428	;button 'Property'
-		429	mov ebx,235*65536+18
-		430	mov edx,25
-		431	int 0x40
-		432	stdcall draw_icon, 7,236,31 ;7 - property
-		433
-		434	;button 'Undo'
-		435	mov ebx,255*65536+18
-		436	mov edx,26
-		437	int 0x40
-		438	stdcall draw_icon, 33,256,31 ;33 - undo
-		439
423	mov ebx,240*65536+18	440	;button 'Redo'
424	mov ecx,30*65536+18	441	mov ebx,275*65536+18
425	mov edx,25	442	mov edx,27
426	int 0x40	443	int 0x40
427	stdcall draw_icon, 7,241,31 ;7 - property	444	stdcall draw_icon, 34,276,31 ;34 - redo
428		445
429	; 10 30 50 70 90	446	; 10 30 50 70 90
430		447
431	cmp [err_opn],1	448	cmp [err_opn],1
432	jne @f	449	jne @f
433	mov eax,4	450	mov eax,4
434	mov ebx,10*65536+35	451	mov ebx,10*65536+35
435	mov ecx,0x80ff0000	452	mov ecx,0x80ff0000
436	mov edx,txtErrOpen	453	mov edx,txtErrOpen
437	int 0x40	454	int 0x40
438	@@:	455	@@:
439		456
440	cmp [err_ini0],1	457	cmp [err_ini0],1
441	je err_init_icon	458	je err_init_icon
442	cmp [err_ini1],1	459	cmp [err_ini1],1
443	je err_init_icon	460	je err_init_icon
444	call draw_obj_info ;®ª® à¥¤ ªâ¨à®¢ ¨ï ¢ë¡à ®£® ®¡ê¥ªâ	461	call draw_obj_info ;®ª® à¥¤ ªâ¨à®¢ ¨ï ¢ë¡à ®£® ®¡ê¥ªâ
445	err_init_icon:	462	err_init_icon:
446		463
447	stdcall [edit_box_draw], dword edit1	464	stdcall [edit_box_draw], dword edit1
448	stdcall [edit_box_draw], dword edit_sav	465	stdcall [edit_box_draw], dword edit_sav
449	stdcall [tl_draw],dword tree1	466	stdcall [tl_draw],dword tree1
450	mov dword[w_scr_t1.all_redraw],1	467	mov dword[w_scr_t1.all_redraw],1
451	stdcall [scrollbar_ver_draw],dword w_scr_t1	468	stdcall [scrollbar_ver_draw],dword w_scr_t1
452	stdcall [tl_draw],dword tree2	469	stdcall [tl_draw],dword tree2
453	mov dword[w_scr_t2.all_redraw],1	470	mov dword[w_scr_t2.all_redraw],1
454	stdcall [scrollbar_ver_draw],dword w_scr_t2	471	stdcall [scrollbar_ver_draw],dword w_scr_t2
455		472
456	cmp byte[show_mode],0 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ ®ª ª®áâàãªâ®à	473	cmp byte[show_mode],0 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ ®ª ª®áâàãªâ®à
457	jne @f	474	jne @f
458	stdcall [buf2d_draw], buf_fon	475	stdcall [buf2d_draw], buf_fon
459	@@:	476	@@:
460	cmp byte[show_mode],1 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ â¥ªáâ®¢®£® ®ª	477	cmp byte[show_mode],1 ;ãá«®¢¨¥ ¢¨¤¨¬®áâ¨ â¥ªáâ®¢®£® ®ª
461	jne @f	478	jne @f
462	stdcall [ted_draw], tedit0	479	stdcall [ted_draw], tedit0
463	@@:	480	@@:
464	mcall 12,2	481	mcall 12,2
465	popad	482	popad
466	ret	483	ret
467		484
468	align 4	485	align 4
469	mouse:	486	mouse:
470	stdcall [edit_box_mouse], dword edit1	487	stdcall [edit_box_mouse], dword edit1
471	stdcall [edit_box_mouse], dword edit2	488	push edi
472	stdcall [edit_box_mouse], dword edit3	489	mov edi,edit2
473	stdcall [edit_box_mouse], dword edit4	490	.cycle:
474	stdcall [edit_box_mouse], dword edit5	491	stdcall [edit_box_mouse], edi
475	stdcall [edit_box_mouse], dword edit6	492	add edi,ed_struc_size
476	stdcall [edit_box_mouse], dword edit7	493	cmp edi,prop_wnd_edits_end
477	stdcall [edit_box_mouse], dword edit8	494	jl .cycle
478	stdcall [edit_box_mouse], dword edit9	495	pop edi
479	stdcall [edit_box_mouse], dword edit_sav	496	stdcall [edit_box_mouse], dword edit_sav

Subversion Repositories Kolibri OS

(root)/programs/develop/kol_f_edit/kol_f_edit.asm – Rev 1706 → 1711