Subversion Repositories Kolibri OS

; ¬ ªà®á ¤«ï á¨á⥬­®© ¡¨¡«¨®â¥ª¨ box_lib.obj

; í«¥¬¥­â TreeList ¤«ï Kolibri OS

; ä ©« ¯®á«¥¤­¨© à § ¨§¬¥­ï«áï 03.12.2015 IgorA

; ­  ª®¤ ¯à¨¬¥­¥­  GPL2 «¨æ¥­§¨ï

sizeof.TreeList equ 20

;struct TreeList

;  type dw ? ;+ 0 ⨯ í«¥¬¥­â , ¨«¨ ¨­¤¥ªá ¨ª®­ª¨ ¤«ï 㧫 

;  lev db ?  ;+ 2 ã஢¥­ì í«¥¬¥­â 

;  clo db ?  ;+ 3 ä« £ § ªàëâ¨ï, ¨«¨ ®âªàëâ¨ï (¨¬¥¥â á¬ëá« ¤«ï த¨â¥«ì᪮£® 㧫 )

;  perv dd ? ;+ 4 ¨­¤¥ªá ¯à¥¤ë¤ã饣® í«¥¬¥­â 

;  next dd ? ;+ 8 ¨­¤¥ªá ¯®á«¥¤ãî饣® í«¥¬¥­â 

;  tc dd ?   ;+12 ¢à¥¬. ᮧ¤ ­¨ï

;  td dd ?   ;+16 ¢à¥¬. 㤠«¥­¨ï

;ends

macro use_tree_list

{

;¢ë¤¥«­¨¥ ¯ ¬ï⨠¤«ï áâàãªâãà ᯨ᪠ ¨ ®á­®¢­®© ¨­ä®à¬ æ¨¨ (ª®­áâàãªâ®à)

align 4

proc tl_data_init uses eax ecx edi, tlist:dword

	mov edi,dword[tlist]

	xor ecx,ecx

	mov cx,tl_info_size

	imul ecx,tl_info_max_count

	invoke mem.alloc,ecx

	mov tl_data_info,eax ;ª®¯¨à㥬 㪠§ â¥«ì ­  ¯®«ã祭ãî ¯ ¬ïâì ¢ áâàãªâãàã

	mov tl_data_img,0  ;®¡­ã«ï¥¬ 㪠§ â¥«ì 'data_img'

	mov tl_data_img_sys,0 ;®¡­ã«ï¥¬ 㪠§ â¥«ì 'data_img_sys'

	mov ecx,sizeof.TreeList

	imul ecx,tl_info_max_count

	invoke mem.alloc,ecx

	mov tl_data_nodes,eax ;ª®¯¨à㥬 㪠§ â¥«ì ­  ¯®«ã祭ãî ¯ ¬ïâì ¢ áâàãªâãàã

	stdcall tl_info_clear, edi

	;­ áâனª¨ ¤®ç¥à­¥£® áªà®««¨­£ 

	cmp tl_p_scroll,0

	je @f

		mov eax,tl_p_scroll

		;*** æ¢¥â®¢ë¥ ­ áâனª¨ ***

		mov ecx,tl_col_bkg

		mov dword[eax+sb_offs_bckg_col],ecx

		mov ecx,tl_col_zag

		mov dword[eax+sb_offs_frnt_col],ecx

		mov ecx,tl_col_txt

		mov dword[eax+sb_offs_line_col],ecx

		;*** ­ áâனª¨ à §¬¥à®¢ ***

		mov ecx,tl_box_left

		add ecx,tl_box_width

		mov word[eax+2],cx

		mov ecx,tl_box_height

		mov word[eax+4],cx

		mov ecx,tl_box_top

		mov word[eax+6],cx

	@@:

	ret

endp

;®ç¨á⪠ ¯ ¬ïâ¨ í«¥¬¥­â  (¤¥áâàãªâ®à)

align 4

proc tl_data_clear uses eax edi, tlist:dword

	mov edi,dword[tlist]

	cmp tl_data_img,0

	je @f

		invoke mem.free,tl_data_img ;ç¨á⪠ á¨á⥬­ëå ¨ª®­®ª

	@@:

	cmp tl_data_img_sys,0

	je @f

		invoke mem.free,tl_data_img_sys ;ç¨á⪠ á¨á⥬­ëå ¨ª®­®ª

	@@:

	invoke mem.free,tl_data_info

	invoke mem.free,tl_data_nodes

	ret

endp

;®ç¨á⪠ ᯨ᪠ (¨­ä®à¬ æ¨¨)

align 4

proc tl_info_clear uses eax ecx edi, tlist:dword

	mov edi,dword[tlist]

	mov tl_ch_tim,0

	mov tl_tim_undo,0

	mov tl_cur_pos,0

	mov ecx,sizeof.TreeList

	imul ecx,tl_info_max_count

	mov eax,tl_data_nodes

	@@:

		mov byte[eax],0 ;ç¨á⨬ 㧫ë 0-¬¨

		inc eax

		loop @b

	mov eax,tl_data_nodes ;㪠§ â¥«ì ­  0-© 㧥«

	mov dword[eax+8],1 ;㪠§ â¥«ì next ¢ 0-¬ 㧫¥ ¯à¨à ¢­¨¢ ¥¬ ª 1

	cmp tl_p_scroll,0 ;®¡à ¡®âª  áªà®««¨­£ 

	je @f

		mov eax,tl_p_scroll

		mov dword[eax+sb_offs_position],0

		call tb_scrol_resize

	@@:

	ret

endp

;ॠªæ¨ï ­  ª« ¢¨ âãàã

align 4

proc tl_key uses ebx ecx edi, tlist:dword

	mov edi,dword[tlist]

	mov ebx,tl_el_focus

	cmp dword[ebx],edi

	jne .no_focus ;í«¥¬¥­â ­¥ ¢ 䮪ãá¥

	push eax

	mcall 66,2 ;¯®«ãç¨âì ०¨¬ ¢¢®¤  á ª« ¢¨ âãàë

	lea ecx,[tl_key_scan]

	cmp eax,1 ;1 = ᪠­ª®¤ë

	je @f

		lea ecx,[tl_key_ascii]

	@@:

	pop eax

	xor bx,bx

	cmp ah,byte[ecx] ;Enter

	jne @f

	cmp tl_on_press,0

	je @f

		call tl_on_press

	@@:

	cmp ah,byte[ecx+1] ;Space

	jne @f

		stdcall tl_node_close_open, edi

	@@:

	cmp ah,byte[ecx+2] ;Up

	jne @f

		stdcall tl_cur_perv, edi

	@@:

	cmp ah,byte[ecx+3] ;Down

	jne @f

		stdcall tl_cur_next, edi

	@@:

	cmp ah,byte[ecx+7] ;Page Up

	jne @f

		stdcall tl_cur_page_up, edi

	@@:

	cmp ah,byte[ecx+8] ;Page Down

	jne @f

		stdcall tl_cur_page_down, edi

	@@:

	bt tl_style,0 ;tl_key_no_edit

	jc .no_edit

		cmp ah,byte[ecx+4] ;Left

		jne @f

			stdcall tl_node_lev_dec, edi

			mov bx,1

		@@:

		cmp ah,byte[ecx+5] ;Right

		jne @f

			stdcall tl_node_lev_inc, edi

			mov bx,1

		@@:

		cmp ah,byte[ecx+6] ;Delete

		jne @f

			stdcall tl_node_delete, edi

			mov bx,1

		@@:

	.no_edit:

	cmp bx,1

	jne .no_focus

		stdcall tl_draw, edi

	.no_focus:

	ret

endp

;ॠªæ¨ï ­  ¬ëèì

align 4

proc tl_mouse, tlist:dword

	pushad

	mov edi,dword[tlist]

	mcall 37,1 ;ª®®à¤¨­ âë ¬ëè¨ ®â­®á¨â¥«ì­® ®ª­ 

	mov ebx,tl_box_left

	shl ebx,16

	cmp eax,ebx ;«¥¢ ï £à ­¨æ  ®ª­ 

	jl .no_in_wnd ;.test_scroll ­¥ ¯à¨¬¥­ï¥¬

		shr ebx,16

		add ebx,tl_box_width

		shl ebx,16

		cmp eax,ebx ;¯à ¢ ï £à ­¨æ  ®ª­ 

		jg .test_scroll

		mov ebx,tl_box_top

		add ebx,tl_box_height

		cmp ax,bx ;­¨¦­ïï £à ­¨æ  ®ª­ 

		jg .test_scroll

		sub ebx,tl_box_height

		add bx,tl_capt_cy

		cmp ax,bx ;¢¥àå­ïï £à ­¨æ  ®ª­  + ¢ëá®â  ¯®¤¯¨á¨

		jl .test_scroll

push eax ebx

	mcall 37,7 ;®¡à ¡®âª  ª®«¥á  ¬ëè¨

	mov edx,eax

	xor	ecx,ecx

	test eax,eax

	jz .mouse_next

	test ax,0x8000

	jnz .decr

	shr eax,16

	test ax,0x8000

	jnz .decr_1

	mov cx,dx ;dx = mouse scroll data vertical

	test ecx,ecx

	jnz @f

	shr edx,16

	mov cx,dx ;dx = mouse scroll data horizontal

	test ecx,ecx

	jz .mouse_next

@@:

	stdcall tl_cur_next, edi

	dec ecx

	jnz @r

	jmp .mouse_next

;------------------------------------------------

.decr: ;¢¥à⨪ «ì­ ï ¯à®ªàã⪠ ®âà¨æ â¥«ì­ ï

	mov bx,ax ;ax = mouse scroll data vertical

	jmp @f

.decr_1: ;£®à¨§®­â «ì­ ï ¯à®ªàã⪠ ®âà¨æ â¥«ì­ ï

	mov bx,ax ;ax = mouse scroll data horizontal

@@:

	mov ecx,0xffff

	sub ecx,ebx

	inc ecx

@@:

	stdcall tl_cur_perv, edi

	dec ecx

	jnz @r

;------------------------------------------------

.mouse_next:

pop ebx eax

		push eax ebx

		mcall 37,2

		bt eax,0 ;left mouse button press

		pop ebx eax

		jae .no_draw

		mov esi,tl_el_focus

		mov dword[esi],edi ;set focus

		; if '+' or '-' press

		mov esi,eax

		shr esi,16

		sub esi,tl_box_left ;esi = mouse x coord in element window

		and eax,0xffff

		sub ax,bx

		xor edx,edx

		xor ecx,ecx

		mov cx,tl_img_cy

		div ecx

		cmp tl_p_scroll,0 ;ãç¨â뢠¥¬ áªà®««¨­£

		je @f

			mov edx,tl_p_scroll

			add eax,dword[edx+sb_offs_position] ;¤®¡ ¢«ï¥¬ áªà®««¨­£ ­  ¢¥àåã

		@@:

		mov ecx,eax

		call tl_get_node_count ;eax = node count

		cmp eax,ecx

		jl @f

			mov eax,ecx ;¥á«¨ ªãàá®à ­¥ ¢ë襫 §  ¯à¥¤¥«ë 㧫®¢, ¢®ááâ ­ ¢«¨¢ ¥¬ áâ à®¥ §­ ç¥­¨¥ eax

		@@:

		cmp eax,tl_cur_pos ;¥á«¨ ­®¢®¥ §­ ç¥­¨¥ ªãàá®à  ᮢ¯ «® á ¯à¥¤ë¤ã騬

		je @f ;â® ­¥ áâ¨à ¥¬ ªãàá®à

		push esi

			mov esi,tl_box_top

			add esi,tl_box_height ;esi = coord bottom border

			call tl_draw_null_cursor ;áâ¨à ¥¬ ªãàá®à

		pop esi

		@@:

		mov tl_cur_pos,eax

		; if '+' or '-' press

		call tl_get_cur_node_index ;eax = node index

		cmp eax,2

		jl .no_open_close ;ªãàá®à á⮨⠭  ¯ãá⮬ ¬¥áâ¥, ¡¥§ 㧫®¢

		imul eax,sizeof.TreeList

		add eax,tl_data_nodes

		xor bx,bx

		mov bl,byte[eax+2] ;+2 lev á®å࠭塞 ã஢¥­ì ⥪ã饣® 㧫 

		inc bx ;+ ¯®«¥ ¤«ï ªãàá®à 

		cmp si,tl_img_cx

		jl .no_open_close ;¬ë襩 ¯®¯ «¨ ­  «¥¢®¥ ¯®«¥ ¤«ï ªãàá®à , £¤¥ â®ç­® ­¥â '+' ¨ '-'

			mov eax,esi

			xor edx,edx

			xor ecx,ecx

			mov cx,tl_img_cx

			div ecx

			cmp ax,bx

			jne .no_open_close

			stdcall tl_node_close_open, edi

		.no_open_close:

		mov esi,tl_box_top

		add esi,tl_box_height ;esi = coord bottom border

		call tl_draw_cursor ;¯¥à¥à¨á®¢ª  ªãàá®à 

		call tl_draw_caption_cur_pos

		jmp .no_draw

;--- mouse event for children scrollbar ----------------------------------------

.test_scroll:

	mov edx,tl_p_scroll

	cmp edx,0

	je .no_in_wnd ;¯®«ì§®¢ â¥«ì ­¥ ᮧ¤ « ¤®ç¥à­¥£® áªà®««¨­£ 

		shr ebx,16

		add bx,word[edx] ;+0 .size_x

		shl ebx,16

		cmp eax,ebx ;¯à ¢ ï £à ­¨æ  ®ª­ 

		jg .no_in_wnd

		mov eax,dword[edx+sb_offs_max_area]

		cmp eax,dword[edx+sb_offs_cur_area]

		jbe .no_in_wnd ;¢á¥ ã§«ë ¯®¯ ¤ îâ ¢ ®ª­® áªà®««¨­£ 

			stdcall scroll_bar_vertical.mouse, edx ;scrollbar_ver_mouse

			cmp dword[edx+sb_offs_redraw],0

			je @f

				mov dword[edx+sb_offs_redraw],0

				stdcall tl_draw, edi ;¯à®¨§®è«¨ ¨§¬¥­¥­¨ï áªà®««¨­£ 

			@@:

			cmp dword[edx+sb_offs_delta2],0

			jne .no_draw ;¯®¯ «¨ ­  áªà®««¨­£ - ­¥ á­¨¬ ¥¬ 䮪ãá á TreeList

;-------------------------------------------------------------------------------

	.no_in_wnd:  ;­¥ ¯®¯ «¨ ¢ ®ª­® - ¯®â¥àï 䮪ãá  (¯à¨ ãá«®¢¨¨ ç⮠䮪ãá ¡ë« ­  ¤ ­­®¬ í¥«¥¬¥­â¥)

	mcall 37,2 ;¯à®¢¥à塞 ­ ¦ â®áâì «î¡ëå ª­®¯®ª

	cmp eax,0  ;­¨ç¥£® ­¥ ­ ¦ «¨ eax=0

	je .no_draw

		mov ebx,tl_el_focus

		cmp dword[ebx],edi

		jne .no_draw ;í«¥¬¥­â ­¥ ¢ 䮪ãá¥

			mov dword[ebx],0 ;reset focus

			mov esi,tl_box_top

			add esi,tl_box_height ;esi = coord bottom border

			call tl_draw_cursor ;à¨á㥬 ªãàá®à á ¯®â¥àï­ë¬ 䮪ãᮬ

	.no_draw:

	popad

	ret

endp

;®â¬¥­  ¤¥©á⢨ï

align 4

proc tl_info_undo uses eax edi, tlist:dword

	mov edi,dword[tlist]

	mov eax,tl_tim_undo

	cmp tl_ch_tim,eax

	jbe @f

		inc tl_tim_undo

		call tb_scrol_resize ;®¡à ¡®âª  áªà®««¨­£ 

	@@:

	ret

endp

;¯®¢â®à ¤¥©á⢨ï

align 4

proc tl_info_redo uses edi, tlist:dword

	mov edi,dword[tlist]

	cmp tl_tim_undo,1

	jl @f

		dec tl_tim_undo

		call tb_scrol_resize ;®¡à ¡®âª  áªà®««¨­£ 

	@@:

	ret

endp

;㤠«¥­¨¥ ®â¬¥­¥­­ëå ¤¥©á⢨©

;¢­ãâ७­ïï äã­ªæ¨ï, ­¥ ¤«ï íªá¯®àâ 

align 4

tl_info_set_undo:

	cmp tl_tim_undo,1

	jl .no_work

	push eax ebx ecx edx

	mov edx,tl_data_nodes

	mov ecx,edx

	add ecx,sizeof.TreeList

	call tl_move_next ;long i=node[0].next;

	mov eax,tl_tim_undo

	sub tl_ch_tim,eax ;ch_tim-=tim_undo;

	mov eax,tl_ch_tim

	cmp edx,ecx

	jle @f

		;if(node[i].tc>ch_tim){ // ¥á«¨ ᮧ¤ ­¨¥ ᨬ¢®«  ¡ë«® ®â¬¥­¥­®

		cmp dword[edx+12],eax

		jle .no_u1

			mov dword[edx+12],0

			mov dword[edx+16],0

			mov ebx, dword[edx+4]

			imul ebx,sizeof.TreeList

			add ebx, tl_data_nodes ;.next

			push dword[edx+8] ;node[node[i].perv].next=node[i].next;

			pop dword[ebx+8]

			mov ebx, dword[edx+8]

			imul ebx,sizeof.TreeList

			add ebx, tl_data_nodes ;.perv

			push dword[edx+4] ;node[node[i].next].perv=node[i].perv;

			pop dword[ebx+4]

		.no_u1:

		;else if(node[i].td>ch_tim) node[i].td=0; // ¥á«¨ 㤠«¥­¨¥ ᨬ¢®«  ¡ë«® ®â¬¥­¥­®

		cmp dword[edx+16],eax

		jle .no_u2

			mov dword[edx+16],0

		.no_u2:

		call tl_move_next

		jmp @b

	@@:

	mov tl_tim_undo,0

	pop edx ecx ebx eax

	.no_work:

	ret

;¢ë¢®¤ ᯨ᪠ ­  íªà ­

align 4

proc tl_draw, tlist:dword

	pushad

	;draw dir_list main rect

	mov edi,dword[tlist]

	mov ebx,tl_box_left

	shl ebx,16

	add ebx,tl_box_width

	mov ecx,tl_box_top

	shl ecx,16

	mov cx,tl_capt_cy

	mov edx,tl_col_zag

	mcall 13 ;draw window caption

	add ecx,tl_box_top

	shl ecx,16

	add ecx,tl_box_height

	sub cx,tl_capt_cy

	mov edx,tl_col_bkg

	int 0x40 ;draw window client rect

	cmp tl_capt_cy,9 ;9 - minimum caption height

	jl @f

	mov ebx,edi ;calculate cursor position

	mov eax,tl_cur_pos

	inc eax

	lea edi,[txt_capt_cur]

	add edi,7

	call tl_convert_to_str

	mov edi,ebx

	mov eax,tl_tim_undo

	lea edi,[txt_capt_otm]

	add edi,7

	call tl_convert_to_str

	mov edi,ebx ;restore edi

	mov eax,4 ;draw text captions

	mov ebx,tl_box_left

	shl ebx,16

	add ebx,5*65536+3

	add ebx,tl_box_top

	mov ecx,tl_col_txt

	or  ecx,0x80000000

	lea edx,[txt_capt_cur]

	int 0x40

	mov ebx,tl_box_left

	shl ebx,16

	add ebx,100*65536+3

	add ebx,tl_box_top

	lea edx,[txt_capt_otm]

	int 0x40

	@@:

	;cycle to nodes

	xor eax,eax

	mov edx,tl_data_nodes

	mov ecx,edx

	add ecx,sizeof.TreeList

	;*** ¯à®¯ã᪠㧫®¢, ª®â®àë¥ ¯à®¬®â ­ë áªà®««¨­£®¬ ***

	cmp tl_p_scroll,0 ;¥á«¨ ¥áâì 㪠§ â¥«ì ­  áªà®««¨­£

	je .end_c1

		mov esi,tl_p_scroll

		cmp dword[esi+sb_offs_position],0 ;¥á«¨ áªà®««¨­£ ­  ¢¥àåã, ¢ë室¨¬

		je .end_c1

		@@:

			call tl_iterat_next

			cmp edx,ecx

			jle .end_draw

			inc eax

			cmp eax,dword[esi+sb_offs_position]

			jl @b

	.end_c1:

	xor eax,eax

	mov esi,tl_box_top

	add esi,tl_box_height ;esi = coord bottom border

	@@:

		call tl_iterat_next

		cmp edx,ecx

		jle @f

		call tl_draw_node

		inc eax

		jmp @b

	@@:

	call tl_draw_cursor

	mov edi,tl_p_scroll ;à¨á㥬 ¤®ç¥à­¨© áªà®««¨­£

	cmp edi,0    ;¤«ï ⮣® çâ®-¡ë ¥£® ­¥ ¯à¨è«®áì à¨á®¢ âì ¢ ¯®«ì§®¢ â¥«ì᪮© ¯à®£à ¬¬¥

	je .end_draw ;¥á«¨ ­¥â áªà®««¨­£  ¢ë室¨¬

		stdcall scroll_bar_vertical.draw, edi

	.end_draw:

	popad

	ret

endp

;¯¥à¥å®¤ ­  á«¥¤ã騩 ¢¨¤¨¬ë© 㧥« (¯à®¯ãáª ï § ªàëâë¥)

;input:

; ecx = pointer to 1 node struct

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

;output:

; edx = pointer to next node struct

align 4

tl_iterat_next:

	push bx

	mov bl,0x7f

	cmp byte[edx+3],1

	jne @f

		mov bl,byte[edx+2]

	@@:

	cmp tl_tim_undo,0

	je .else

	push eax

	.beg0:

		call tl_move_next

		cmp edx,ecx

		jle @f

		call tl_node_not_vis ;¯à®¯ã᪠㤠«¥­­ëå ¨ ®â¬¥­¥­­ëå

		cmp al,1

		je .beg0

		cmp bl,byte[edx+2] ;¯à®¯ã᪠§ ªàëâëå

		jl .beg0

		@@:

	pop eax

	pop bx

	ret

	.else:

		call tl_move_next

		cmp edx,ecx

		jle .endif

		cmp dword[edx+16],0 ;td = 'time delete' -> ¯à®¯ã᪠㤠«¥­­ëå

		jne .else

		cmp bl,byte[edx+2] ;¯à®¯ã᪠§ ªàëâëå

		jl .else

	.endif:

	pop bx

	ret

;¯¥à¥å®¤ ­  á«¥¤ã騩 ¢¨¤¨¬ë© 㧥« (¨ ­  § ªàëâë¥ â®¦¥)

;input:

; ecx = pointer to 1 node struct

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

;output:

; edx = pointer to next visible node struct

align 4

tl_iterat_next_all:

	cmp tl_tim_undo,0

	je .else

	push eax

	@@:

		call tl_move_next

		cmp edx,ecx

		jle @f

		call tl_node_not_vis

		cmp al,1

		je @b

	@@:

	pop eax

	ret

	.else:

		call tl_move_next

		cmp edx,ecx

		jle .endif

		cmp dword[edx+16],0 ;td -> time delete

		jne .else

	.endif:

	ret

;¯¥à¥å®¤ ­  ¯à¥¤ë¤ã騩 ¢¨¤¨¬ë© 㧥« (¯à®¯ãáª ï § ªàëâë¥)

;input:

; ecx = pointer to 1 node struct

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

align 4

tl_iterat_perv:

	push eax

	cmp tl_tim_undo,0

	je .beg1

	.beg0:

		call tl_move_perv

		cmp edx,ecx

		jle @f

		call tl_node_not_vis ;¯à®¯ã᪠㤠«¥­­ëå ¨ ®â¬¥­¥­­ëå

		cmp al,1

		je .beg0

	.beg1:

		call tl_move_perv

		cmp edx,ecx

		jle @f

		cmp dword[edx+16],0 ;td = 'time delete' -> ¯à®¯ã᪠㤠«¥­­ëå

		jne .beg1

	@@:

		call tl_move_max_clo_par

	pop eax

	ret

;­ å®¤¨â த¨â¥«ì᪨© § ªàëâë© ã§¥« ¬ ªá¨¬ «ì­®£® ã஢­ï

;input:

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

;output:

; edx = pointer closed parent node with maximum level

align 4

proc tl_move_max_clo_par uses eax ebx

	mov eax,edx

	xor ebx,ebx

	.beg:

		call tl_move_par

		cmp byte[edx+3],1 ;த¨â¥«ì᪨© 㧥« § ªàëâ ?

		jne @f

			mov eax,edx

		@@:

		cmp ebx,edx

		je .end_f

			mov ebx,edx

			jmp .beg

	.end_f:

	mov edx,eax

	ret

endp

;input:

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

;output:

; edx = pointer to next node struct

align 4

tl_move_next:

	mov edx,dword[edx+8]

	imul edx,sizeof.TreeList

	add edx,tl_data_nodes

	ret

;input:

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

;output:

; edx = pointer to perv node struct

align 4

tl_move_perv:

	mov edx,dword[edx+4]

	imul edx,sizeof.TreeList

	add edx,tl_data_nodes

	ret

;¯¥à¥¤¢¨£ ¥¬áï ­  த¨â¥«ì᪨© 㧥«, ¥á«¨ â ª®£® ­¥â, â® ®áâ ¢«ï¥¬ áâ à®¥ §­ ç¥­¨¥ 㪠§ â¥«ï

;input:

; ecx =

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

;output:

; edx = pointer to parent node struct

align 4

tl_move_par:

	cmp byte[edx+2],0

	je .end_f ;㧥« 0-£® ã஢­ï ­¥ ¬®¦¥â ¡ëâì ¤®ç¥à­¨¬

	push eax ebx esi

	mov esi,edx ;copy node pointer (edx)

	mov bl,byte[edx+2]

	@@:

		call tl_move_perv

		cmp edx,ecx

		jle @f ;¢á¥ ¢ëè¥ áâ®ï騥 ã§«ë ­¥ த¨â¥«ì᪨¥

		call tl_node_not_vis ;¯à®¯ã᪠㤠«¥­­ëå ¨ ®â¬¥­¥­­ëå

		cmp al,1

		je @b

		cmp byte[edx+2],bl

		jl .end_0 ;㤠筮 ­ è«¨ த¨â¥«ì᪨© 㧥«

		jmp @b

	@@:

		mov esi,ebx ;restore node pointer

	.end_0:

	pop esi ebx eax

	.end_f:

	ret

;¯à®¢¥àï¥â ¢¨¤¨¬ë© «¨ 㪠§ ­­ë© 㧥« á ãç¥â®¬: ¤®¡ ¢«¥­¨©, 㤠«¥­¨©, ®â¬¥­ ¤¥©á⢨©

;input:

; edx = pointer to symbol struct

; edi = pointer to 'TreeList' struct

;output:

; al = 1 if sumbol not visible

; (node[i].td+tim_Undo<=ch_tim && node[i].td) || (node[i].tc>ch_tim-tim_Undo)

align 4

tl_node_not_vis:

	cmp dword[edx+16],0

	je @f

	mov eax,dword[edx+16] ;eax=node[i].td

	add eax,tl_tim_undo

	cmp eax,tl_ch_tim

	jg @f

		mov al,1

		ret

	@@:

	mov eax,tl_ch_tim

	sub eax,tl_tim_undo

	cmp dword[edx+12],eax ;tc -> time create

	jle @f

		mov al,1

		ret

	@@:

	xor al,al

	ret

;à¨á㥬 ªãàá®à ­  íªà ­¥

;input:

; edi = pointer to TreeInfo struct

; esi = coord bottom border

align 4

proc tl_draw_cursor uses eax ebx ecx edx esi

	call tl_get_display_cur_pos ;eax = cursor pos in screen

	cmp eax,0

	jl .end_f ;ªãàá®à ­ å®¤¨âáï ¢ëè¥ ®ª­ , ¢ ®¡« á⨠¯à®ªàã祭­®© áªà®««¨­£®¬

	cmp tl_data_img_sys,0 ;ᬮâਬ ¥áâì «¨ 㪠§ â¥«ì ­  ª à⨭ªã á¨á⥬­ëå ¨ª®­®ª

	jne @f

		mov ebx,tl_box_left

		shl ebx,16

		mov bx,tl_img_cx

		xor ecx,ecx

		mov cx,tl_img_cy

		imul ecx,eax

		add ecx,tl_box_top

		add cx,tl_capt_cy

		;crop image if on the border

		cmp esi,ecx ;¥á«¨ ªãàá®à ¢­¨§ã ¨ ¥£® ¢®®¡é¥ ­¥ ¢¨¤­®

		jl .end_f

		sub esi,ecx

		shl ecx,16

		mov cx,tl_img_cy

		cmp si,tl_img_cy

		jge .crop0

			mov cx,si ;¥á«¨ ªãàá®à ¢¨¤¥­ ç áâ¨ç­® (¯®¯ « ­  ­¨¦­îî £à ­¨æã)

		.crop0:

		mov edx,tl_col_txt

		mcall 13 ;à¨á㥬 ¯à®á⮩ ¯àאַ㣮«ì­¨ª, â.ª. ­¥â á¨á⥬­ëå ¨ª®­®ª

		jmp .end_f

	@@:

	mov ebx,tl_data_img_sys

	imul ax,tl_img_cy

	mov edx,tl_box_left

	shl edx,16

	mov dx,ax

	add edx,tl_box_top

	add dx,tl_capt_cy

	mov ecx,tl_el_focus ;¯à®¢¥à塞 ¢ 䮪ãá¥ í«¥¬¥­â ¨«¨ ­¥â

	cmp dword[ecx],edi

	je .focus

		;¥á«¨ ­¥ ¢ 䮪ãᥠᤢ¨£ ¥¬ ª®®à¤¨­ âë ­  ¨ª®­ªã ­¥  ªâ¨¢­®£® ªãàá®à 

		xor eax,eax

		xor ecx,ecx

		mov cx,tl_img_cx

		mov ax,tl_img_cy

		imul eax,ecx

		imul eax,4*3 ;4=icon index 3=rgb

		add ebx,eax

	.focus:

	mov cx,tl_img_cx

	shl ecx,16

	mov cx,tl_img_cy

	;crop image if on the border

	cmp si,dx ;¥á«¨ ªãàá®à ¢­¨§ã ¨ ¥£® ¢®®¡é¥ ­¥ ¢¨¤­®

	jl .end_f

		sub si,dx

		cmp si,tl_img_cy

		jge .crop1

			mov cx,si ;¥á«¨ ªãàá®à ¢¨¤¥­ ç áâ¨ç­® (¯®¯ « ­  ­¨¦­îî £à ­¨æã)

		.crop1:

		mcall 7 ;à¨á㥬 ¨ª®­ªã ªãàá®à 

	.end_f:

	ret

endp

;áâ¨à ¥¬ ªãàá®à ­  íªà ­¥

;input:

; edi = pointer to TreeInfo struct

; esi = coord bottom border

align 4

proc tl_draw_null_cursor uses eax ebx ecx edx esi

	call tl_get_display_cur_pos ;eax = cursor pos in screen

	cmp eax,0

	jl .end_f ;ªãàá®à ­ å®¤¨âáï ¢ëè¥ ®ª­ , ¢ ®¡« á⨠¯à®ªàã祭­®© áªà®««¨­£®¬

		mov ebx,tl_box_left

		shl ebx,16

		mov bx,tl_img_cx

		xor ecx,ecx

		mov cx,tl_img_cy

		imul ecx,eax

		add ecx,tl_box_top

		add cx,tl_capt_cy

		;crop image if on the border

		cmp esi,ecx ;¥á«¨ ªãàá®à ¢­¨§ã ¨ ¥£® ¢®®¡é¥ ­¥ ¢¨¤­®

		jl .end_f

		sub esi,ecx

		shl ecx,16

		mov cx,tl_img_cy

		cmp si,tl_img_cy

		jge @f

			mov cx,si ;¥á«¨ ªãàá®à ¢¨¤¥­ ç áâ¨ç­® (¯®¯ « ­  ­¨¦­îî £à ­¨æã)

		@@:

		mcall 13,,,tl_col_bkg ;à¨á㥬 ¯à®á⮩ ¯àאַ㣮«ì­¨ª á ä®­®¢ë¬ 梥⮬

	.end_f:

	ret

endp

;¡¥à¥â ¯®§¨æ¨î ªãàá®à , ®â­®á¨â¥«ì­® íªà ­ 

;input:

; edi = pointer to TreeInfo struct

;output:

; eax = index

align 4

tl_get_display_cur_pos:

	mov eax,tl_cur_pos

	cmp tl_p_scroll,0

	je @f

		push ebx

		mov ebx,tl_p_scroll

		mov ebx,dword[ebx+sb_offs_position]

		sub eax,ebx ;®â­¨¬ ¥¬ ¯®§¨æ¨î áªà®««¨­£ 

		pop ebx

	@@:

	ret

;à¨áã¥â 㧥« á: ª à⨭ª®©, ¯®¤¯¨áìî, ¨ª®­ª®© ®âªàëâ¨ï/§ ªàëâ¨ï ¨ «¨­¨ï¬¨ ª த¨â. 㧫ã

;input:

; eax = node position (0, ..., max_nodes-scroll_pos) ­¥ ¤® tl_box_height/tl_img_cy

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct

; esi = coord of bottom border

align 4

proc tl_draw_node uses eax ebx ecx edx esi

	mov ebx,1 ;1 - ¬¥áâ® ¯®¤ ªãàá®à

	bt tl_style,2 ;tl_list_box_mode

	jc @f

		inc ebx ;+1 - ¬¥áâ® ¯®¤ §­ ª +,-

		add bl,byte[edx+2] ;¤®¡ ¢«ï¥¬ ã஢¥­ì í«¥¬¥­â  ¤«ï ¥£® ãç¥â  ¢ «¥¢®¬ ®âáâ㯥 ¨ª®­ª¨

	@@:

	imul bx,tl_img_cx

	add ebx,tl_box_left

	shl ebx,16

	mov bx,tl_img_cx

	xor ecx,ecx

	mov cx,tl_img_cy

	imul ecx,eax

	add cx,tl_capt_cy

	jc .end_draw ;ª®£¤  ¬­®£® 㧫®¢, â® ¬®¦¥â ¡ëâì ¯¥à¥¯®«­¥­¨¥ ª®®à¤¨­ âë cx

	add ecx,tl_box_top

	;crop image if on the border

	cmp esi,ecx ;¥á«¨ 㧥« ¢­¨§ã ¨ ¥£® ¢®®¡é¥ ­¥ ¢¨¤­®

	jl .end_draw

	sub esi,ecx

	shl ecx,16

	mov cx,tl_img_cy

	cmp si,tl_img_cy

	jge @f

		mov cx,si ;¥á«¨ 㧥« ¢¨¤¥­ ç áâ¨ç­® (¯®¯ « ­  ­¨¦­îî £à ­¨æã)

		jmp .crop ;¯à®¯ã᪠¥¬ à¨á®¢ ­¨¥ ­ ¤¯¨á¨, ª®â®à ï ᪮॥ ¢á¥£® ⮦¥ ¢ë«¥§¥â §  ­¨¦­îî £à ­¨æã

	@@:

		call tl_draw_node_caption

	.crop:

	mov esi,ecx ;save ecx

	cmp tl_data_img,0

	jne .draw_img_n

		push edx

		mov edx,tl_col_txt

		mcall 13 ;draw node rect

		pop edx

	jmp @f

	.draw_img_n:

	push ebx edx esi

		xor esi,esi

		mov si,word[edx] ;get icon type

		mov edx,ebx

		ror ecx,16

		mov dx,cx

		mov cx,bx

		ror ecx,16

		mov ebx,3 ;rgb = 3 bytes

		imul bx,tl_img_cx

		imul bx,tl_img_cy

		imul ebx,esi ;esi = icon index

		add ebx,tl_data_img

		mcall 7 ;draw node icon '-'

	pop esi edx ebx

	@@:

	mov al,byte[edx+2] ;draw minus '-'

	mov ecx,tl_data_nodes

	add ecx,sizeof.TreeList

	mov ah,10 ;get icon index '+' or '-' ?

	cmp byte[edx+3],1

	jne .close

		dec ah

	.close:

	call tl_draw_node_icon_opn_clo ;à¨á®¢ ­¨¥ ¨ª®­ª¨ ®âªàë⮣® ¨«¨ § ªàë⮣® 㧫 

	bt tl_style,1

	jae .end_draw

		call tl_draw_node_icon_par_lin ;à¨á®¢ ­¨¥ «¨­¨¨ ª த¨â¥«ì᪮¬ã í«¥¬¥­âã

		call tl_draw_node_icon_par_lin_up ;à¨á®¢ ­¨¥ ¢¥à⨪ «ì­®© «¨­¨¨ ª த¨â¥«ì᪮¬ã í«¥¬¥­âã

	.end_draw:

	ret

endp

;à¨áã¥â ¨ª®­ª¨ ®âªàë⮣® ¨«¨ § ªàë⮣® 㧫  (®¡ëç­® + ¨«¨ -)

;input:

; al = ã஢¥­ì í«¥¬¥­â 

; ecx = pointer to 1 node struct

; edx = pointer to some node struct

;...

align 4

proc tl_draw_node_icon_opn_clo uses eax ebx ecx edx esi

	inc al

	call tl_iterat_next_all ;get next visible item

	cmp edx,ecx

	jle @f

		mov ecx,esi ;load ecx

		cmp al,byte[edx+2]

		jne @f

		ror ebx,16

		sub bx,tl_img_cx

		ror ebx,16

		cmp tl_data_img_sys,0

		jne .draw_img_s

			mcall 13,,,tl_col_txt ;draw minus rect, if not system icons

			jmp @f

		.draw_img_s:

		mov ecx,esi ;load ecx

		mov edx,ebx

		ror ecx,16

		mov dx,cx

		mov cx,bx

		ror ecx,16

		mov ebx,3 ;rgb = 3 bytes

		imul bx,tl_img_cx

		imul bx,tl_img_cy

		shr eax,8

		and eax,0xff

		imul ebx,eax ;eax = icon index

		add ebx,tl_data_img_sys

		mcall 7 ;draw minus icon '-'

	@@:

	ret

endp

;à¨á®¢ ­¨¥ «¨­¨¨ ª த¨â¥«ì᪮¬ã í«¥¬¥­âã

;input:

; al = ã஢¥­ì í«¥¬¥­â 

; ecx = pointer to 1 node struct

; edx = pointer to some node struct

;...

align 4

tl_draw_node_icon_par_lin:

	cmp byte[edx+3],1

	je .close

	push eax ebx ecx edx esi

	cmp al,0

	je @f

		call tl_iterat_next_all ;get next visible item

		cmp edx,ecx

		jle .line3 ;if end of list

			cmp al,byte[edx+2]

			jne .line3 ;jg ???

			mov eax,3 ;line in middle element

			jmp .line2

		.line3:

			mov eax,6 ;line in end element

		.line2:

		mov ecx,esi ;load ecx

		ror ebx,16

		sub bx,tl_img_cx

		ror ebx,16

		cmp tl_data_img_sys,0

		jne .draw_img_s

			mcall 13,,,tl_col_txt ;draw minus rect, if not system icons

			jmp @f

		.draw_img_s:

		mov edx,ebx

		ror ecx,16

		mov dx,cx

		mov cx,bx

		ror ecx,16

		mov ebx,3 ;rgb = 3 bytes

		imul bx,tl_img_cx

		imul bx,tl_img_cy

		imul ebx,eax ;eax = icon index

		add ebx,tl_data_img_sys

		mcall 7 ;draw line icon

	@@:

	pop esi edx ecx ebx eax

	.close:

	ret

;input:

; al = ã஢¥­ì í«¥¬¥­â 

; ebx = (node.left shl 16) + tl_img_cx

; ecx = pointer to 1 node struct

; edx = pointer to some node struct

; edi = pointer to 'TreeList' struct