kolibrios/programs/develop/kol_f_edit/ced_wnd_m.inc

align 4
draw_obj_info:
	mov eax,13 ;rect
	mov edx,WND_CAPT_COLOR
	mov ebx,[wndObjI.left]
	shl ebx,16
	add ebx,[wndObjI.width]
	mov ecx,[wndObjI.top]
	add ecx,[recMain.top]
	shl ecx,16
	add ecx,[wndObjI.height]
	sub ecx,[recMain.top]
	mov edx,0xffffff ;0x80ffffff
	int 0x40 ;¯àאַ㣮«ì­¨ª ¤«ï ®ª­ 

	mov ecx,[wndObjI.top] ;draw caption
	shl ecx,16
	add ecx,[recMain.top]
	mov edx,WND_CAPT_COLOR
	int 0x40

	mov edx,[foc_obj] ;init icon pointers
	cmp edx,0
	je .exit_fun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    pushad
    ;draw caption wndObjI
    mov eax,4 ;¯®¤¯¨áì - ­ §¢ ­¨¥ ®¡ê¥ªâ 

    mov bl,[edx]
    call find_obj_in_opt
    mov edx,edi

    mov ebx,[wndObjI.left]
    add ebx,[recMain.left]
    add ebx,4
    shl ebx,16
    add ebx,[wndObjI.top]
    add ebx,4
    mov ecx,0xc0d000ff
    mov edi,WND_CAPT_COLOR
    add edx,obj_opt.info-obj_opt
    int 0x40

	mov eax,8 ;ª­®¯ª  ¤«ï á®åà ­¥­¨ï ¨§¬¥­¥­¨©
	mov ebx,125*65536+20
	mov ecx,161*65536+10
	mov edx,10
	mov esi,0xd040
	int 0x40
    popad
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	stdcall [edit_box_draw], dword edit2
	stdcall [edit_box_draw], dword edit3
	stdcall [edit_box_draw], dword edit4
	stdcall [edit_box_draw], dword edit5
	stdcall [edit_box_draw], dword edit6
	stdcall [edit_box_draw], dword edit7
	stdcall [edit_box_draw], dword edit8
	stdcall [edit_box_draw], dword edit9

	xor ebx,ebx ;­®¬¥à ¯®«ï
	.draw_column:
		mov eax,ebx
		imul eax,[recMain.height]
		add eax,[recMain.top]
		add eax,[wndObjI.top]
		stdcall draw_icon_obj,[edx],ebx,eax

		inc ebx
		cmp ebx,MAX_OPT_FIELDS
	jl .draw_column
	.exit_fun:
	ret

align 4
but_obj_move_up:
	stdcall [tl_node_move_up], tree2
	ret

align 4
but_obj_move_down:
	stdcall [tl_node_move_down], tree2
	ret

;®¡­®¢«¥­¨¥ ®¡ê¥ªâ®¢ ¢ tree2, ¯® §­ ç¥­¨ï¬ ⥪á⮢ëå ¯®«¥©
;äã­ªæ¨ï ®¡à â­ ï ª ¤ ­­®© on_file_object_select
align 4
but_element_change:
	;foc_obj - 㪠§ â¥«ì ­  ¯®á«¥¤­¨© ¢ë¡à ­­ë© 㧥« ¢ tree2
	cmp dword[foc_obj],0
	je @f
		pushad
		stdcall get_obj_win_param, 0,edit2
		stdcall get_obj_win_param, 1,edit3
		stdcall get_obj_win_param, 2,edit4
		stdcall get_obj_win_param, 3,edit5
		stdcall get_obj_win_param, 4,edit6
		stdcall get_obj_win_param, 5,edit7
		stdcall get_obj_win_param, 6,edit8
		stdcall get_obj_win_param, 7,edit9
		popad
	@@:
	call draw_constructor ;®¡­®¢«ï¥¬ ®ª­® ª®­áâàãªâ®à 
	call draw_window
	ret

align 4
proc get_obj_win_param, col:dword, edit:dword
;pushad
		stdcall get_obj_text_col, [foc_obj], [col] ;edx - ᬥ饭¨¥ ¤«ï ⥪áâ 
		stdcall get_obj_text_len_col, [foc_obj], [col] ;eax - ¤«¨­­  ¯®«ï
		cld
		mov edi,[edit]
		mov esi,ed_text
		mov edi,edx
		mov ecx,eax
		rep movsb
	ret
;popad
endp

;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 ;¢ bh ¯®¯ ¤ ¥â ­®¬¥à ¨áª®¬®© ª®«®­ª¨
	mov bl,byte[edx-1] ;¢ bl ¯®¯ ¤ ¥â ª®¤ ®¡ê¥ªâ 

	push ecx edi
	call find_obj_in_opt ;¨é¥¬ áâàãªâãàã á ®¯æ¨ï¬¨ ®¡ê¥ªâ 

	add edi,obj_opt.Col-obj_opt
	dec bh
	and ebx,0xff00
	shr ebx,7 ;ᤢ¨£ ¥¬ ­  7, â.ª. ­ã¦­® §­ ç¥­¨¥ bh 㬭®¦¥­­®¥ ­  2
	add edi,ebx ;+ ¡ë¢è¥¥ bh*2
	xor ecx,ecx
	mov cx,word[edi] ;ecx - ᤨ£ ¤«ï ¨áª®¬®£® ¯®«ï
	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 - 㪠§ â¥«ì ­  ®¡ê¥ªâ
;  ind - ­®¬¥à ¯®«ï ¢­ãâਠ®¡ê¥ªâ 
;output:
;  eax - ¤«¨­­  ⥪á⮢®£® ¯®«ï ¢­ãâਠ®¡ê¥ªâ 
align 4
proc get_obj_text_len_col, obj:dword, ind:dword
	xor eax,eax
push ebx
	mov ebx,dword[ind]
	shl ebx,8 ;¢ bh ¯®¯ ¤ ¥â ­®¬¥à ¨áª®¬®© ª®«®­ª¨
	mov eax,dword[obj]
	mov bl,byte[eax] ;¢ bl ¯®¯ ¤ ¥â ª®¤ ®¡ê¥ªâ 
	xor eax,eax

	push edi
	call find_obj_in_opt ;¨é¥¬ áâàãªâãàã á ®¯æ¨ï¬¨ ®¡ê¥ªâ 

	add edi,obj_opt.Col-obj_opt
	and ebx,0xff00
	shr ebx,7 ;ᤢ¨£ ¥¬ ­  7, â.ª. ­ã¦­® §­ ç¥­¨¥ bh 㬭®¦¥­­®¥ ­  2
	add edi,ebx ;+ ¡ë¢è¥¥ bh*2

	mov ax,word[edi] ;eax - ᤨ£ ¤«ï á«¥¤ã饣® ¯®«ï
	cmp ax,0
	jg @f
		mov eax,MAX_LEN_OBJ_TXT ;¯®á«¥¤­¨¥ ¯®«ï ¤«ï 㤮¡á⢠ ª®¤¨àãîâáï 0,   ­¥ MAX_LEN_OBJ_TXT, ¨á¯à ¢«ï¥¬ á¨âã æ¨î
	@@:
	cmp dword[ind],0
	je .end_fun ;¤«ï ¯¥à¢®£® ¯®«ï ᤨ£ = 0, ¯®â®¬ã ¢ áâàãªâãॠ®­ ­¥ åà ­¨âáï, â.ª. ¨§¢¥á⥭ § à ­¥¥
	sub ax,word[edi-2] ;®â­¨¬ ¥¬ ᤨ£ ¤«ï ¨áª®¬®£® ¯®«ï, ¯®«ãç ¥¬ ¤«¨­­ã ¯®«ï

	cmp word[edi-2],0
	jg @f
		mov eax,0 ;¯®«¥ ¯ãá⮥, ­¥ ¨á¯®«ì§ã¥âáï
	@@:
	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_icon_obj, 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,[wndObjI.left]
	add edx,5
	shl edx,16
	add edx,[coord_y]
	int 0x40
	.end_fun:
	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 ;㪠§ â¥«ì ­  ¯®á«¥¤­¨© 㤠筮 ­ ©¤¥­­ë© ®¡ê¥ªâ,
	;­ã¦¥­ ¤«ï ã᪮७¨ï ¯®á«¥¤ã饣® ¯®¨áª 

;¢ë室:
;eax - 㪠§ â¥«ì ­  áâàãªâãàã ­ ©¤¥­­®£® ®¡ê¥ªâ 
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 ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
		cmp eax,0
		je .find_no

		cmp byte[eax],bl ;ᬮâਬ ®¯¨á ­ «¨ ¨áª®¬ë© ®¡ê¥ªâ ¢ 㧫¥
		je .find_yes

		stdcall dword[tl_node_poi_get_next_info], esi,tree2
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã

		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

;¢ë室:
;eax - 㪠§ â¥«ì ­  áâàãªâãàã ­ ©¤¥­­®£® ®¡ê¥ªâ 
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 ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã

	@@:
		cmp esi,0
		je .find_no

		stdcall dword[tl_node_poi_get_data], esi,tree2
		pop eax ;¯®«ãç ¥¬ ¤ ­­ë¥ 㧫 
		cmp eax,0
		je .find_no

		cmp byte[eax],bl ;ᬮâਬ ®¯¨á ­ «¨ ¨áª®¬ë© ®¡ê¥ªâ ¢ 㧫¥
		je .find_yes

		stdcall dword[tl_node_poi_get_next_info], esi, tree2
		pop esi ;¯¥à¥å®¤¨¬ ª á«¥¤ã饬ã 㧫ã

		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 - 㪠§ â¥«ì ­  áâபã, ç¨á«® ¤®«¦­® ¡ëâì ¢ 10 ¨«¨ 16 à¨ç­®¬ ¢¨¤¥
;output:
; eax - ç¨á«®
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: ;áç¨â뢠­¨¥ 10-â¨ç­ëå æ¨äà
		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: ;áç¨â뢠­¨¥ 16-à¨ç­ëå æ¨äà
		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 ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'9' ¨ <'A'
		.us1: ;á®áâ ¢­®¥ ãá«®¢¨¥
		cmp bl,'F'
		jle .us2
			cmp bl,'a'
			jl @f ;®âᥨ¢ ¥¬ ᨬ¢®«ë >'F' ¨ <'a'
			sub bl,32 ;¯¥à¥¢®¤¨¬ ᨬ¢®«ë ¢ ¢¥àå­¨© ॣ¨áâà, ¤«ï ã¯à®é¥­¨ï ¨å ¯®á«¥¤ã饩 ®¡à ¡®âª¨
		.us2: ;á®áâ ¢­®¥ ãá«®¢¨¥
			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