kolibrios/programs/develop/kol_f_edit/ced_wnd_m.inc

;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ᯨ<EFBFBD><EFBFBD><EFBFBD>
align 4
but_obj_move_up:
	stdcall [tl_node_move_up], tree2
	ret

;<EFBFBD><EFBFBD><EFBFBD>᪠<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ᯨ<EFBFBD><EFBFBD><EFBFBD>
align 4
but_obj_move_down:
	stdcall [tl_node_move_down], tree2
	ret

;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㥬 <EFBFBD><EFBFBD>ꥪ<EFBFBD>
align 4
but_obj_copy:
push ecx esi edi
	stdcall [tl_node_get_data], tree2
	pop esi
	mov edi,[tree2.data_info] ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0-<EFBFBD><EFBFBD> 㧫<EFBFBD>, <EFBFBD>ᯮ<EFBFBD><EFBFBD><EFBFBD>㥬 <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>஢<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	xor ecx,ecx
	mov cx,word[tree2.info_size]
	cld
	rep movsb
pop edi esi ecx
	ret

;<EFBFBD><EFBFBD>⠢<EFBFBD>塞 <EFBFBD><EFBFBD>ꥪ<EFBFBD>
align 4
but_obj_paste:
push eax ebx ecx edi
		mov eax,[tree2.data_info] ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0-<EFBFBD><EFBFBD> 㧫<EFBFBD>, <EFBFBD>ᯮ<EFBFBD><EFBFBD><EFBFBD>㥬 <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>஢<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		mov bl,byte[eax]
		call find_obj_in_opt
		xor ecx,ecx
		mov cx,word[edi+obj_opt.img-obj_opt] ;cx - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
		shl ecx,16
		stdcall [tl_node_add], eax, ecx, tree2 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD>ꥪ<EFBFBD>
		stdcall [tl_draw], tree2
pop edi ecx ebx eax
	ret

;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ⮢ <EFBFBD> tree2, <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD>⮢<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;<EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> on_file_object_select
align 4
but_element_change:
	;foc_obj - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD> 㧥<EFBFBD> <EFBFBD> tree2
	cmp dword[foc_obj],0
	je .err_obj
		pushad
		;<EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD>⮢<EFBFBD><EFBFBD> ᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		xor ebx,ebx
		mov edi,edit2
		@@:
			call get_obj_win_param
			inc ebx
			add edi,ed_struc_size
			cmp edi,prop_wnd_edits_end
		jl @b

		;<EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>뫪<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD> ⨯<EFBFBD>
		mov edx,dword[foc_obj]
		mov dword[edx+u_object.typid-u_object],0 ;<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>砩 <EFBFBD>᫨ <EFBFBD><EFBFBD>祣<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>࠭<EFBFBD>
		stdcall [tl_node_get_data],tree3
		pop eax
		cmp eax,0
		je @f
			mov eax,dword[eax] ;<EFBFBD><EFBFBD>६ <EFBFBD><EFBFBD><EFBFBD>浪<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <EFBFBD><EFBFBD><EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
			mov dword[edx+u_object.typid-u_object],eax
		@@:

		;<EFBFBD><EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪨<EFBFBD> ᢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		mov edi,ch1.flags
		mov eax,1
		xor ebx,ebx
		@@:
			bt dword[edi],1 ;<EFBFBD><EFBFBD>祬<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ࠡ<EFBFBD>⠥<EFBFBD> <EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ... ???
			jnc .opt_no_sel
				or ebx,eax ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⬥祭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>権
			.opt_no_sel:
			shl eax,1
			add edi,ch_struc_size
			cmp edi,check_boxes_end
		jl @b
		mov dword[edx+u_object.modif-u_object],ebx
		popad
	.err_obj:
	call draw_constructor ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	;call draw_window
	ret

;input:
; ebx - property column
; edi - pointer to property editbox
align 4
get_obj_win_param:
	pushad
		mov esi,ed_text
		stdcall get_obj_text_col, [foc_obj], ebx ;edx - ᬥ饭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD>
		stdcall get_obj_text_len_col, [foc_obj], ebx ;eax - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		cld
		mov edi,edx
		mov ecx,eax
		rep movsb
	popad
	ret

;input:
;  obj - pointer to object
;  ind - column index
;output:
;  edx + offset
;  edx = 0 if not text
align 4
proc get_obj_text_col, obj:dword, ind:dword
	mov edx,dword[obj]
	inc edx ;goto text
push ebx
	mov ebx,dword[ind]
	cmp bx,0
	je .end_fun

	shl ebx,8 ;<EFBFBD> bh <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᪮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	mov bl,byte[edx-1] ;<EFBFBD> bl <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>

	push ecx edi
	call find_obj_in_opt ;<EFBFBD>饬 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﬨ <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>

	add edi,obj_opt.Col-obj_opt
	dec bh
	and ebx,0xff00
	shr ebx,7 ;ᤢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 7, <EFBFBD>.<EFBFBD>. <EFBFBD>㦭<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> bh 㬭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 2
	add edi,ebx ;+ <EFBFBD><EFBFBD><EFBFBD>襥 bh*2
	xor ecx,ecx
	mov cx,word[edi] ;ecx - ᤨ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᪮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	add edx,ecx

	cmp cx,0
	jg @f
		mov edx,0 ;not text
	@@:
	cmp cx,MAX_LEN_OBJ_TXT
	jl @f
		mov edx,0 ;not text
	@@:

	pop edi ecx
	.end_fun:
pop ebx
	ret
endp

;input:
;  obj - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD>
;  ind - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
;output:
;  eax - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD>⮢<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
align 4
proc get_obj_text_len_col, obj:dword, ind:dword
	xor eax,eax
push ebx
	mov ebx,dword[ind]
	shl ebx,8 ;<EFBFBD> bh <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᪮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	mov eax,dword[obj]
	mov bl,byte[eax] ;<EFBFBD> bl <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
	xor eax,eax

	push edi
	call find_obj_in_opt ;<EFBFBD>饬 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﬨ <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>

	add edi,obj_opt.Col-obj_opt
	and ebx,0xff00
	shr ebx,7 ;ᤢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 7, <EFBFBD>.<EFBFBD>. <EFBFBD>㦭<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> bh 㬭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 2
	add edi,ebx ;+ <EFBFBD><EFBFBD><EFBFBD>襥 bh*2

	mov ax,word[edi] ;eax - ᤨ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> ᫥<EFBFBD><EFBFBD>饣<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	cmp ax,0
	jg @f
		mov eax,MAX_LEN_OBJ_TXT ;<EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> 㤮<EFBFBD><EFBFBD>⢠ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0, <EFBFBD> <EFBFBD><EFBFBD> MAX_LEN_OBJ_TXT, <EFBFBD><EFBFBD><EFBFBD>ࠢ<EFBFBD>塞 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	@@:
	cmp dword[ind],0
	je .end_fun ;<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ࢮ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᤨ<EFBFBD> = 0, <EFBFBD><EFBFBD>⮬<EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>࠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD>.<EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥭ <EFBFBD><EFBFBD>࠭<EFBFBD><EFBFBD>
	sub ax,word[edi-2] ;<EFBFBD>⭨<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᤨ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᪮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>

	cmp word[edi-2],0
	jg @f
		mov eax,0 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮥, <EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	@@:
	cmp ax,MAX_LEN_OBJ_TXT
	jl @f
		mov eax,0 ;not text
	@@:

	pop edi
	.end_fun:
pop ebx
	ret
endp

align 4
proc draw_obj_icon, o_type:dword,n_col:dword, coord_y:dword
	pushad
	xor ebx,ebx
	mov bl,byte[o_type]
	call find_obj_in_opt

	add edi,obj_opt.img-obj_opt ;get index (+0)
	mov ebx,[n_col]
	shl ebx,1
	add edi,ebx ;move index (+bh)
	xor ecx,ecx
	mov cx,[edi]

	cmp cx,0
	jge @f
		jmp .end_fun ;error icon index
	@@:

	mov ebx,bmp_icon
	imul ecx,0x300
	add ebx,ecx

	mov eax,7
	mov ecx,0x100010 ;ecx - size:16*16
	mov edx,3 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠬ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	shl edx,16
	add edx,[coord_y]
	int 0x40
	.end_fun:
	popad
	ret
endp

;<EFBFBD>뢮<EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
align 4
proc draw_obj_caption, o_type:dword,n_col:dword, coord_y:dword
	pushad
	stdcall get_obj_text_len_col, [foc_obj], [n_col] ;eax - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	cmp eax,1
	jl .no_draw

	xor ebx,ebx
	mov bl,byte[o_type]
	call find_obj_in_opt

	mov edx,edi
	add edx,obj_opt.caption-obj_opt

	mov eax,[n_col]
	mov ebx,150
	shl ebx,16
	add ebx,dword[coord_y]
	add ebx,3
	mov ecx,0 ;text color

	mov esi,edx
	.beg_found:
		cmp byte[esi],0
		je .end_found
		cmp byte[esi],'*'
		je @f
		inc esi
		jmp .beg_found
	@@:
	cmp eax,0
	je .end_found
		dec eax
		inc esi
		mov edx,esi ;<EFBFBD><EFBFBD>४<EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD>砫<EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD> <EFBFBD><EFBFBD> ᫥<EFBFBD>. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		jmp .beg_found
	.end_found:
	cmp esi,edx
	jle .no_draw
		sub esi,edx ;esi = text len
		mov eax,4
		int 0x40
	.no_draw:
	popad
	ret
endp

align 4
proc draw_icon, ind:dword,coord_x:dword,coord_y:dword
	pushad
	mov ecx,[ind]
	cmp ecx,0
	jl .end_fun
		mov ebx,bmp_icon
		imul ecx,0x300
		add ebx,ecx

		mov eax,7
		mov ecx,0x100010 ;ecx - size:16*16
		mov edx,[coord_x]
		shl edx,16
		add edx,[coord_y]
		int 0x40
	.end_fun:
	popad
	ret
endp

;input
;  bl = cod object
;output:
;  edi = pointer to option struct
align 4
find_obj_in_opt:
	push ecx
	xor ecx,ecx ;find 'bl' in options
	mov edi,obj_opt
	@@:
		cmp bl,[edi] ;find
		je @f
		inc ecx
		cmp ecx,MAX_OBJ_TYPES
		je @f ;not find
		add edi,sizeof.ObjOpt
		jmp @b
	@@:
	pop ecx
	ret


obj_find_last dd 0 ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㤠筮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD>,
	;<EFBFBD>㦥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᪮७<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD>饣<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>᪠

;<EFBFBD><EFBFBD>室:
;eax - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
align 4
proc find_obj_in_file, o_type:dword
push ebx esi
	mov ebx,[o_type]
	stdcall dword[tl_node_poi_get_info], 0,tree2
	pop esi

	@@:
		cmp esi,0
		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop eax ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧫<EFBFBD>
		cmp eax,0
		je .find_no

		cmp byte[eax],bl ;ᬮ<EFBFBD>ਬ <EFBFBD><EFBFBD><EFBFBD>ᠭ <EFBFBD><EFBFBD> <EFBFBD>᪮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD> <EFBFBD> 㧫<EFBFBD>
		je .find_yes

		stdcall dword[tl_node_poi_get_next_info], esi,tree2
		pop esi ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> <EFBFBD> ᫥<EFBFBD><EFBFBD>饬<EFBFBD> 㧫<EFBFBD>

		jmp @b

	.find_yes:
		mov dword[obj_find_last],esi
		jmp @f
	.find_no:
		mov dword[obj_find_last],0
		xor eax,eax
	@@:
pop esi ebx
	ret
endp

;<EFBFBD><EFBFBD>室:
;eax - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD><EFBFBD>
align 4
proc find_obj_in_file_next, o_type:dword
push ebx esi
	cmp dword[obj_find_last],0
	je .find_no

	mov ebx,[o_type]

	stdcall dword[tl_node_poi_get_next_info], dword[obj_find_last],tree2
	pop esi ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> <EFBFBD> ᫥<EFBFBD><EFBFBD>饬<EFBFBD> 㧫<EFBFBD>

	@@:
		cmp esi,0
		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop eax ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㧫<EFBFBD>
		cmp eax,0
		je .find_no

		cmp byte[eax],bl ;ᬮ<EFBFBD>ਬ <EFBFBD><EFBFBD><EFBFBD>ᠭ <EFBFBD><EFBFBD> <EFBFBD>᪮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ꥪ<EFBFBD> <EFBFBD> 㧫<EFBFBD>
		je .find_yes

		stdcall dword[tl_node_poi_get_next_info], esi, tree2
		pop esi ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>室<EFBFBD><EFBFBD> <EFBFBD> ᫥<EFBFBD><EFBFBD>饬<EFBFBD> 㧫<EFBFBD>

		jmp @b

	.find_yes:
		mov dword[obj_find_last],esi
		jmp @f
	.find_no:
		mov dword[obj_find_last],0
		xor eax,eax
	@@:
pop esi ebx
	ret
endp

align 4
but_show_constructor:
	mov byte[show_mode],0
	stdcall [buf2d_draw], buf_fon
	ret

align 4
but_show_code:
	mov byte[show_mode],1
	stdcall [ted_draw], tedit0
	ret

;input:
; buf - 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>, <EFBFBD><EFBFBD>᫮ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> 10 <EFBFBD><EFBFBD><EFBFBD> 16 <EFBFBD><EFBFBD>筮<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;output:
; eax - <EFBFBD><EFBFBD>᫮
align 4
proc conv_str_to_int, buf:dword
	xor eax,eax
	push ebx esi
	xor ebx,ebx
	mov esi,[buf]
	cmp word[esi],'0x'
	je .load_digit_16

	.load_digit_10: ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD> 10-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'9'
		jg @f
			sub bl,'0'
			imul eax,10
			add eax,ebx
			inc esi
			jmp .load_digit_10
	jmp @f

	.load_digit_16: ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD> 16-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		add esi,2
	.cycle_16:
		mov bl,byte[esi]
		cmp bl,'0'
		jl @f
		cmp bl,'f'
		jg @f
		cmp bl,'9'
		jle .us1
			cmp bl,'A'
			jl @f ;<EFBFBD><EFBFBD>ᥨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> >'9' <EFBFBD> <'A'
		.us1: ;<EFBFBD><EFBFBD><EFBFBD>⠢<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᫮<EFBFBD><EFBFBD><EFBFBD>
		cmp bl,'F'
		jle .us2
			cmp bl,'a'
			jl @f ;<EFBFBD><EFBFBD>ᥨ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> >'F' <EFBFBD> <'a'
			sub bl,32 ;<EFBFBD><EFBFBD>ॢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>孨<EFBFBD> ॣ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>饭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫥<EFBFBD><EFBFBD>饩 <EFBFBD><EFBFBD>ࠡ<EFBFBD>⪨
		.us2: ;<EFBFBD><EFBFBD><EFBFBD>⠢<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>᫮<EFBFBD><EFBFBD><EFBFBD>
			sub bl,'0'
			cmp bl,9
			jle .cor1
				sub bl,7 ;convert 'A' to '10'
			.cor1:
			shl eax,4
			add eax,ebx
			inc esi
			jmp .cycle_16
	@@:

	pop esi ebx
	ret
endp