Subversion Repositories Kolibri OS

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

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

; ä ©« ¯®á«¥¤­¨© à § ¨§¬¥­ï«áï 14.11.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 edi, tlist:dword

;uses eax ???

	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

;  mov eax,[edi+?] ;co_tim

;  cmp tl_ch_tim,eax ;ch_tim

;  jge @f

;    mov [edi+?],0 ;co_tim

;  @@:

  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]

	jge .end_c1

	jmp @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 ;¥á«¨ ªãàá®à ¢¨¤¥­ ç áâ¨ç­® (¯®¯ « ­  ­¨¦­îî £à ­¨æã)

    @@:

    mov edx,tl_col_bkg

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

    .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

; 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 ecx,tl_box_top

	add cx,tl_capt_cy

	;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

	mov edx,tl_col_txt

	mcall 13 ;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

;    dec al

;    call tl_iterat_perv ;get perv visible item

    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

	mov edx,tl_col_txt

	mcall 13 ;draw minus rect, if not system icons

	jmp @f

      .draw_img_s:

;      mov ecx,esi ;load ecx