WebSVN – Kolibri OS – Diff – /programs/develop/tinypad/trunk/tp-tabctl.asm


;-----------------------------------------------------------------------------
func flush_cur_tab ;///// SAVE CURRENT TAB DATA TO CONTROL ///////////////////
;-----------------------------------------------------------------------------
; EBP = TABITEM*
;-----------------------------------------------------------------------------
	push	ecx esi edi
	mov	esi,cur_tab
	mov	edi,[tab_bar.Current.Ptr]
	mov	ecx,sizeof.TABITEM/4
	cld
	rep	movsd
	pop	edi esi ecx
	ret
endf
 
;-----------------------------------------------------------------------------
func set_cur_tab ;///// SET SPECIFIED TAB CURRENT (FOCUS IT) /////////////////
;-----------------------------------------------------------------------------
; EBP = TABITEM*
;-----------------------------------------------------------------------------
	push	ecx esi edi
	cmp	[tab_bar.Current.Ptr],0
	je	@f
	call	flush_cur_tab
    @@: mov	esi,ebp
	mov	edi,cur_tab
	mov	ecx,sizeof.TABITEM/4
	rep	movsd
	mov	[tab_bar.Current.Ptr],ebp
;       call    update_caption
	pop	edi esi ecx
	ret
endf
 
;-----------------------------------------------------------------------------
func make_tab_visible ;///// MAKE SPECIFIED TAB VISIBLE IF IT'S OFFSCREEN ////
;-----------------------------------------------------------------------------
	call	flush_cur_tab
	imul	eax,[tab_bar.Items.Left],sizeof.TABITEM
	add	eax,[tab_bar.Items]
	cmp	eax,ebp
	jb	.go_right
	ja	.go_left
	ret
 
  .go_right:
	push	ebp
	call	get_hidden_tabitems_number
	cmp	ebp,[esp]
	ja	@f
    @@: inc	[tab_bar.Items.Left]
	call	get_hidden_tabitems_number
	cmp	ebp,[esp]
	jbe	@b
    @@: pop	ebp
	ret
 
  .go_left:
	mov	eax,ebp
	sub	eax,[tab_bar.Items]
	jz	@f
	cdq
	mov	ebx,sizeof.TABITEM
	div	ebx
    @@: mov	[tab_bar.Items.Left],eax
	ret
endf
 
;-----------------------------------------------------------------------------
func create_tab ;///// ADD TAB TO THE END ////////////////////////////////////
;-----------------------------------------------------------------------------
	push	eax ecx esi edi
 
	inc	[tab_bar.Items.Count]
	imul	ebx,[tab_bar.Items.Count],sizeof.TABITEM
	mov	eax,[tab_bar.Items]
	mov	ecx,eax
	call	mem.ReAlloc
	mov	[tab_bar.Items],eax
	sub	ecx,eax
	sub	[tab_bar.Current.Ptr],ecx
	cmp	[tab_bar.Default.Ptr],0
	je	@f
	sub	[tab_bar.Default.Ptr],ecx
    @@: lea	ebp,[eax+ebx-sizeof.TABITEM]
	call	set_cur_tab
 
	mov	eax,1024
	mov	[cur_editor.Lines.Size],eax
	call	mem.Alloc
	mov	[cur_editor.Lines],eax
	mov	[cur_editor.Lines.Count],1
	mov	[cur_editor.Columns.Count],1
	xor	eax,eax
	mov	[cur_editor.TopLeft.X],eax
	mov	[cur_editor.TopLeft.Y],eax
	mov	[cur_editor.Caret.X],eax
	mov	[cur_editor.Caret.Y],eax
	mov	[cur_editor.SelStart.X],eax
	mov	[cur_editor.SelStart.Y],eax
	mov	edi,[cur_editor.Lines]
	add	edi,4
	mov	ecx,10
	mov	[edi-4],ecx
	mov	[edi+10],eax
	mov	al,' '
	cld
	rep	stosb
 
	mov	esi,s_defname
	mov	edi,cur_editor.FilePath + 1
	mov	ecx,s_defname.size
	rep	movsb
	mov	[cur_editor.FileName],1
 
	mov	[cur_editor.Modified],0
	mov	[cur_editor.AsmMode],0
 
	call	flush_cur_tab
	mov	ebp,[tab_bar.Current.Ptr]
	call	make_tab_visible
	call	update_caption
	cmp	[do_not_draw],0
	jne	@f
	call	align_editor_in_tab
	call	draw_editor
	call	draw_tabctl
	call	draw_statusbar
	call	update_caption
    @@:
	mov	ebp,cur_tab
	pop	edi esi ecx eax
	ret
endf
 
;-----------------------------------------------------------------------------
func delete_tab ;///// DELETE SPECIFIED TAB //////////////////////////////////
;-----------------------------------------------------------------------------
	cmp	[tab_bar.Default.Ptr],0
	je	@f
	cmp	ebp,[tab_bar.Default.Ptr]
	je	.lp1
	ja	@f
	sub	[tab_bar.Default.Ptr],sizeof.TABITEM
	jmp	@f
  .lp1:
	mov	[tab_bar.Default.Ptr],0
 
    @@: mov	eax,[ebp+TABITEM.Editor.Lines]
	call	mem.Free
	imul	ecx,[tab_bar.Items.Count],sizeof.TABITEM
	add	ecx,[tab_bar.Items]
	sub	ecx,ebp
	sub	ecx,sizeof.TABITEM
	jle	@f
	cld
	shr	ecx,2
	mov	edi,ebp
	lea	esi,[edi+sizeof.TABITEM]
	rep	movsd
    @@: dec	[tab_bar.Items.Count]
	jz	.no_tabs
	imul	ebx,[tab_bar.Items.Count],sizeof.TABITEM
	push	ebx
	mov	eax,[tab_bar.Items]
	mov	ecx,eax
	call	mem.ReAlloc
	mov	[tab_bar.Items],eax
	sub	ecx,eax
	sub	ebp,ecx
	cmp	[tab_bar.Default.Ptr],0
	je	@f
	sub	[tab_bar.Default.Ptr],ecx
    @@:
	pop	ecx
	add	ecx,[tab_bar.Items]
	sub	ecx,ebp
	ja	@f
	add	ebp,-sizeof.TABITEM
 
    @@: mov	[tab_bar.Current.Ptr],0
	call	set_cur_tab
	call	make_tab_visible
	call	align_editor_in_tab
	call	draw_editor
	call	draw_tabctl
	call	draw_statusbar
	ret
 
  .no_tabs:
	mov	eax,[tab_bar.Items]
	call	mem.Free
	xor	eax,eax
	mov	[tab_bar.Items],eax
	mov	[tab_bar.Current.Ptr],eax
	mov	[tab_bar.Default.Ptr],eax
	ret
endf
 
;-----------------------------------------------------------------------------
func draw_tabctl ;///// DRAW TAB CONTROL /////////////////////////////////////
;-----------------------------------------------------------------------------
 
	dec	[tab_bar.Items.Left]
	js	.lp1
    @@: call	get_hidden_tabitems_number
	or	eax,eax
	jnz	.lp1
	dec	[tab_bar.Items.Left]
	jns	@b
  .lp1: inc	[tab_bar.Items.Left]
	mov	eax,[tab_bar.Items.Count]
	cmp	[tab_bar.Items.Left],eax
	jb	@f
	dec	eax
	mov	[tab_bar.Items.Left],eax
    @@:
 
	mov	eax,8
	mov	edx,[tab_bar.Buttons.First]
    @@: cmp	edx,[tab_bar.Buttons.Last]
	ja	@f
	push	edx
	or	edx,0x80000000
	mcall
	pop	edx
	inc	edx
	jmp	@b
    @@:
 
	mov	ebx,[tab_bar.Bounds.Left-2]
	mov	bx,word[tab_bar.Bounds.Right]
	sub	bx,word[tab_bar.Bounds.Left]
	inc	ebx
	mov	ecx,[tab_bar.Bounds.Top-2]
	mov	cx,word[tab_bar.Bounds.Bottom]
	sub	cx,word[tab_bar.Bounds.Top]
	inc	ecx
	mov	edx,[cl_3d_normal]
	call	draw_framerect
 
	mov	al,[tab_bar.Style]
	dec	al
	jz	.tabs_on_top
	dec	al
	jz	.tabs_on_bottom
	dec	al
	jz	.tabs_on_left
	dec	al
	jz	.tabs_on_right
	ret
 
  .tabs_on_top:
	add	ebx,1*65536-2
	mov	ecx,[tab_bar.Bounds.Top-2]
	xor	cx,cx
	add	ecx,1*65536+TBARH
	mcall	13
	add	ecx,(TBARH-1)*65536-(TBARH-1)
	mcall	,,,[sc.work]
	add	ecx,-1*65536+2
	mov	edx,[cl_3d_inset]
	call	draw_framerect
 
	mov	esi,[tab_bar.Bounds.Left]
	inc	esi
	mov	edi,[tab_bar.Bounds.Top]
	inc	edi
	push	.curr_top .check_horz .next_horz
	call	.draw_tabs
	ret
 
  .tabs_on_bottom:
	add	ebx,1*65536-2
	mov	ecx,[tab_bar.Bounds.Bottom-2]
	xor	cx,cx
	add	ecx,-TBARH*65536+TBARH
	mcall	13
	mov	cx,1
	mcall	,,,[sc.work]
	add	ecx,-1*65536+2
	mov	edx,[cl_3d_inset]
	call	draw_framerect
 
	mov	esi,[tab_bar.Bounds.Left]
	inc	esi
	mov	edi,[tab_bar.Bounds.Bottom]
	add	edi,-TBARH+1
	push	.curr_bottom .check_horz .next_horz
	call	.draw_tabs
	ret
 
  .tabs_on_left:
	call	get_max_tab_width
	mov	ebx,[tab_bar.Bounds.Left-2]
	mov	bx,ax
	add	ebx,1*65536-1
	add	ecx,1*65536-2
	push	eax
	mcall	13
	pop	ebx
	shl	ebx,16
	add	ebx,1*65536+1
	mcall	,,,[sc.work]
	add	ebx,-1*65536+2
	mov	edx,[cl_3d_inset]
	call	draw_framerect
 
	mov	esi,[tab_bar.Bounds.Left]
	inc	esi
	mov	edi,[tab_bar.Bounds.Top]
	inc	edi
	push	.curr_left .check_vert .next_vert
	call	.draw_tabs
	ret
 
  .tabs_on_right:
	call	get_max_tab_width
	push	eax
	mov	ebx,[tab_bar.Bounds.Right-2]
	mov	bx,ax
	shl	eax,16
	sub	ebx,eax
	add	ecx,1*65536-2
	mcall	13
	add	ebx,-1*65536
	mov	bx,1
	mcall	,,,[sc.work]
	add	ebx,-1*65536+2
	mov	edx,[cl_3d_inset]
	call	draw_framerect
 
	mov	esi,[tab_bar.Bounds.Right]
	pop	eax
	sub	esi,eax
	mov	edi,[tab_bar.Bounds.Top]
	inc	edi
	push	.curr_right .check_vert .next_vert
	call	.draw_tabs
	ret
 
 
  .draw_tabs:
	mov	ecx,[tab_bar.Items.Count]
	mov	ebx,[tab_bar.Items.Left]
	imul	ebp,ebx,sizeof.TABITEM
	add	ebp,[tab_bar.Items]
	push	ecx
	sub	[esp],ebx
	add	ebx,1000
	mov	[tab_bar.Buttons.First],ebx
	dec	ebx
	mov	[tab_bar.Buttons.Last],ebx
    @@: push	ecx
 
	call	get_tab_size
 
	call	dword[esp+(8+4)+4]
	jc	.draw_tabs.dontfit
 
	rol	ebx,16
	mov	bx,si
	rol	ebx,16
	rol	ecx,16
	mov	cx,di
	rol	ecx,16
	mov	edx,[cl_3d_inset]
	call	draw_framerect
 
	mov	edx,[sc.work_text]
	cmp	ebp,[tab_bar.Current.Ptr]
	jne	.draw_tabs.inactive
	push	ebx ecx
	call	dword[esp+(8+4)+8+8]
	mcall	13,,,[sc.work]
	pop	ecx ebx
	mov	edx,[color_tbl.text]
  .draw_tabs.inactive:
 
	cmp	ebp,[tab_bar.Default.Ptr]
	jne	.draw_tabs.notdefault
	push	ebx ecx edx
	add	ebx,3*65536
	add	ecx,(TBARH/2-6)*65536
	mov	bx,11
	mov	cx,bx
	call	draw_framerect
	add	ebx,1*65536-2
	add	ecx,1*65536-2
	mcall	13,,,[sc.work]
	shr	ebx,16
	shr	ecx,16
	add	ebx,2
	add	ecx,3
	mov	edx,[esp]
	call	draw_check
	pop	edx ecx ebx
  .draw_tabs.notdefault:
 
	push	ebx ecx esi edx
	lea	eax,[ebp+TABITEM.Editor.FilePath]
	add	eax,[ebp+TABITEM.Editor.FileName]
	mov	edx,eax
	call	strlen
	mov	esi,eax
	shr	ecx,16
	mov	bx,cx
	add	ebx,5*65536+TBARH/2-4
	pop	ecx
	cmp	ebp,[tab_bar.Default.Ptr]
	jne	.lp2
	add	ebx,13*65536
  .lp2: mcall	4
	pop	esi ecx ebx
 
	inc	[tab_bar.Buttons.Last]
	cmp	ebp,[tab_bar.Current.Ptr]
	je	.draw_tabs.active
	push	ebx ecx
	dec	ebx
	dec	ecx
	mov	edx,[tab_bar.Buttons.Last]
	or	edx,0x40000000
	mcall	8
	pop	ecx ebx
  .draw_tabs.active:
 
	call	dword[esp+(8+4)+0]
	add	ebp,sizeof.TABITEM
 
	pop	ecx
	dec	ecx
	dec	dword[esp]
	jnz	@b
 
	add	esp,4
	or	ecx,ecx
	jnz	@f
 
	ret	8
 
  .draw_tabs.dontfit:
 
	add	esp,8
 
    @@: mov	ebx,[tab_bar.Bounds.Right]
	shl	ebx,16
	mov	ecx,[tab_bar.Bounds.Bottom]
	shl	ecx,16
	add	ecx,(-SCRLW-1)*65536+SCRLW
	call	get_max_tab_width
	mov	edx,eax
 
	mov	al,[tab_bar.Style]
	dec	al
	jz	.scroll_on_top
	dec	al
	jz	.scroll_on_bottom
	dec	al
	jz	.scroll_on_left
	dec	al
	jz	.scroll_on_right
	ret
 
  .scroll_on_top:
	add	ebx,(-SCRLW*2-1)*65536+SCRLW
	mov	ecx,[tab_bar.Bounds.Top]
	shl	ecx,16
	add	ecx,1*65536+SCRLW
	jmp	.draw_tabs.draw_scroll
  .scroll_on_bottom:
	add	ebx,(-SCRLW*2-1)*65536+SCRLW
	jmp	.draw_tabs.draw_scroll
  .scroll_on_left:
	mov	ebx,[tab_bar.Bounds.Left]
	add	ebx,edx
	shl	ebx,16
	add	ebx,(-SCRLW*2)*65536+SCRLW
	jmp	.draw_tabs.draw_scroll
  .scroll_on_right:
	shl	edx,16
	sub	ebx,edx
	add	ebx,SCRLW
 
  .draw_tabs.draw_scroll:
	mcall	8,,,'TBG' or 0x40000000
	push	ebx
	add	ebx,SCRLW*65536
	mcall	8,,,'TBL' or 0x40000000
	pop	ebx
	push	ebx ecx
	sar	ebx,16
	sar	ecx,16
	push	ebx ecx SCRLW SCRLW
	call	draw_3d_panel
	add	ebx,SCRLW
	push	ebx ecx SCRLW SCRLW
	call	draw_3d_panel
	pop	ecx ebx
 
	push	'<'
	shr	ecx,16
	mov	bx,cx
	add	ebx,(SCRLW/2-2)*65536+SCRLW/2-3
	mcall	4,,[sc.work_text],esp,1
	add	ebx,0x00020000
	mcall
	add	ebx,(SCRLW-2)*65536
	mov	byte[esp],'>'
	mcall
	add	ebx,0x00020000
	mcall
	add	esp,4
 
	ret	8
 
  .curr_left:
	add	ebx,0x00010000
	add	ecx,1*65536-2
	ret
  .curr_top:
	add	ebx,1*65536-2
	add	ecx,0x00010000
	ret
  .curr_right:
	dec	ebx
	add	ecx,1*65536-2
	ret
  .curr_bottom:
	add	ebx,1*65536-2
	dec	ecx
	ret
 
  .check_horz:
	lea	eax,[esi+ebx-1]
	sub	eax,[tab_bar.Bounds.Right]
	jge	.check.dontfit
	add	eax,SCRLW*2+2
	jl	.check.fit
	cmp	dword[esp+4],1
	jbe	.check.fit
  .check.dontfit:
	stc
	ret
  .check_vert:
	lea	eax,[edi+ecx-1]
	sub	eax,[tab_bar.Bounds.Bottom]
	jge	.check.dontfit
	add	eax,SCRLW+2
	jl	.check.fit
	cmp	dword[esp+4],1
	ja	.check.dontfit
  .check.fit:
	clc
	ret
 
  .next_horz:
	movzx	ebx,bx
	lea	esi,[esi+ebx+1]
	ret
  .next_vert:
	movzx	ecx,cx
	lea	edi,[edi+ecx+1]
	ret
endf
 
;-----------------------------------------------------------------------------
func get_tab_size ;///// GET TAB WIDTH ///////////////////////////////////////
;-----------------------------------------------------------------------------
; EBP = TABITEM*
;-----------------------------------------------------------------------------
	push	eax
	cmp	[tab_bar.Style],3
	jae	.lp1
	lea	eax,[ebp+TABITEM.Editor.FilePath]
	add	eax,[ebp+TABITEM.Editor.FileName]
	call	strlen
	imul	ebx,eax,6
	add	ebx,9
	cmp	ebp,[tab_bar.Default.Ptr]
	jne	.lp2
	add	ebx,13
	jmp	.lp2
  .lp1: call	get_max_tab_width
	mov	ebx,eax
  .lp2: mov	ecx,TBARH-1
	pop	eax
	ret
endf
 
;-----------------------------------------------------------------------------
func get_max_tab_width ;///// GET WIDTH OF LONGEST TAB ///////////////////////
;-----------------------------------------------------------------------------
	push	ebx ecx ebp
	mov	ecx,[tab_bar.Items.Count]
	mov	ebp,[tab_bar.Items]
	xor	ebx,ebx
    @@: dec	ecx
	js	@f
 
	lea	eax,[ebp+TABITEM.Editor.FilePath]
	add	eax,[ebp+TABITEM.Editor.FileName]
	call	strlen
	imul	eax,6
	add	eax,9
 
	add	ebp,sizeof.TABITEM
	cmp	ebx,eax
	jae	@b
	mov	ebx,eax
	jmp	@b
    @@: mov	eax,ebx
	cmp	eax,SCRLW*2+2
	jae	@f
	mov	eax,SCRLW*2+2
    @@: cmp	[tab_bar.Default.Ptr],0
	je	@f
	add	eax,13
    @@: pop	ebp ecx ebx
	ret
endf
 
;-----------------------------------------------------------------------------
func get_hidden_tabitems_number ;/////////////////////////////////////////////
;-----------------------------------------------------------------------------
	mov	al,[tab_bar.Style]
	dec	al
	dec	al
	jle	.tabs_horz
	dec	al
	dec	al
	jle	.tabs_vert
	ret
 
  .tabs_horz:
	push	draw_tabctl.check_horz draw_tabctl.next_horz
	call	.calc_tabs
	ret
 
  .tabs_vert:
	push	draw_tabctl.check_vert draw_tabctl.next_vert
	call	.calc_tabs
	ret
 
  .calc_tabs:
	mov	esi,[tab_bar.Bounds.Left]
	inc	esi
	mov	edi,[tab_bar.Bounds.Top]
	inc	edi
	mov	ecx,[tab_bar.Items.Count]
	mov	ebx,[tab_bar.Items.Left]
	imul	ebp,ebx,sizeof.TABITEM
	add	ebp,[tab_bar.Items]
	push	ecx
	sub	[esp],ebx
    @@: push	ecx
 
	call	get_tab_size
 
	call	dword[esp+(8+4)+4]
	jc	.calc_tabs.dontfit
 
	call	dword[esp+(8+4)+0]
	add	ebp,sizeof.TABITEM
 
	pop	ecx
	dec	ecx
	dec	dword[esp]
	jnz	@b
 
	jmp	@f
 
  .calc_tabs.dontfit:
 
	add	esp,4
    @@: pop	ecx
	mov	eax,ecx
	ret	8
endf
 
;-----------------------------------------------------------------------------
func align_editor_in_tab ;///// ADJUST EDITOR POSITION TO FIT IN TAB /////////
;-----------------------------------------------------------------------------
	m2m	[cur_editor.Bounds.Left],[tab_bar.Bounds.Left]
	m2m	[cur_editor.Bounds.Top],[tab_bar.Bounds.Top]
	m2m	[cur_editor.Bounds.Right],[tab_bar.Bounds.Right]
	m2m	[cur_editor.Bounds.Bottom],[tab_bar.Bounds.Bottom]
 
	inc	[cur_editor.Bounds.Left]
	inc	[cur_editor.Bounds.Top]
	dec	[cur_editor.Bounds.Right]
	dec	[cur_editor.Bounds.Bottom]
 
	call	get_max_tab_width
	lea	ebx,[eax+1]
 
	mov	al,[tab_bar.Style]
	dec	al
	jz	.tabs_on_top
	dec	al
	jz	.tabs_on_bottom
	dec	al
	jz	.tabs_on_left
	dec	al
	jz	.tabs_on_right
	ret
 
  .tabs_on_top:
	add	[cur_editor.Bounds.Top],TBARH
	ret
 
  .tabs_on_bottom:
	sub	[cur_editor.Bounds.Bottom],TBARH
	ret
 
  .tabs_on_left:
	add	[cur_editor.Bounds.Left],ebx
	ret
 
  .tabs_on_right:
	sub	[cur_editor.Bounds.Right],ebx
	ret
endf
>

Rev 327	Rev 595
1	;-----------------------------------------------------------------------------	1	;-----------------------------------------------------------------------------
2	func flush_cur_tab ;///// SAVE CURRENT TAB DATA TO CONTROL ///////////////////	2	func flush_cur_tab ;///// SAVE CURRENT TAB DATA TO CONTROL ///////////////////
3	;-----------------------------------------------------------------------------	3	;-----------------------------------------------------------------------------
4	; EBP = TABITEM*	4	; EBP = TABITEM*
5	;-----------------------------------------------------------------------------	5	;-----------------------------------------------------------------------------
6	push ecx esi edi	6	push ecx esi edi
7	mov esi,cur_tab	7	mov esi,cur_tab
8	mov edi,[tab_bar.Current.Ptr]	8	mov edi,[tab_bar.Current.Ptr]
9	mov ecx,sizeof.TABITEM/4	9	mov ecx,sizeof.TABITEM/4
10	cld	10	cld
11	rep movsd	11	rep movsd
12	pop edi esi ecx	12	pop edi esi ecx
13	ret	13	ret
14	endf	14	endf
15		15
16	;-----------------------------------------------------------------------------	16	;-----------------------------------------------------------------------------
17	func set_cur_tab ;///// SET SPECIFIED TAB CURRENT (FOCUS IT) /////////////////	17	func set_cur_tab ;///// SET SPECIFIED TAB CURRENT (FOCUS IT) /////////////////
18	;-----------------------------------------------------------------------------	18	;-----------------------------------------------------------------------------
19	; EBP = TABITEM*	19	; EBP = TABITEM*
20	;-----------------------------------------------------------------------------	20	;-----------------------------------------------------------------------------
21	push ecx esi edi	21	push ecx esi edi
22	cmp [tab_bar.Current.Ptr],0	22	cmp [tab_bar.Current.Ptr],0
23	je @f	23	je @f
24	call flush_cur_tab	24	call flush_cur_tab
25	@@: mov esi,ebp	25	@@: mov esi,ebp
26	mov edi,cur_tab	26	mov edi,cur_tab
27	mov ecx,sizeof.TABITEM/4	27	mov ecx,sizeof.TABITEM/4
28	rep movsd	28	rep movsd
29	mov [tab_bar.Current.Ptr],ebp	29	mov [tab_bar.Current.Ptr],ebp
30	; call update_caption	30	; call update_caption
31	pop edi esi ecx	31	pop edi esi ecx
32	ret	32	ret
33	endf	33	endf
34		34
35	;-----------------------------------------------------------------------------	35	;-----------------------------------------------------------------------------
36	func make_tab_visible ;///// MAKE SPECIFIED TAB VISIBLE IF IT'S OFFSCREEN ////	36	func make_tab_visible ;///// MAKE SPECIFIED TAB VISIBLE IF IT'S OFFSCREEN ////
37	;-----------------------------------------------------------------------------	37	;-----------------------------------------------------------------------------
38	call flush_cur_tab	38	call flush_cur_tab
39	imul eax,[tab_bar.Items.Left],sizeof.TABITEM	39	imul eax,[tab_bar.Items.Left],sizeof.TABITEM
40	add eax,[tab_bar.Items]	40	add eax,[tab_bar.Items]
41	cmp eax,ebp	41	cmp eax,ebp
42	jb .go_right	42	jb .go_right
43	ja .go_left	43	ja .go_left
44	ret	44	ret
45		45
46	.go_right:	46	.go_right:
47	push ebp	47	push ebp
48	call get_hidden_tabitems_number	48	call get_hidden_tabitems_number
49	cmp ebp,[esp]	49	cmp ebp,[esp]
50	ja @f	50	ja @f
51	@@: inc [tab_bar.Items.Left]	51	@@: inc [tab_bar.Items.Left]
52	call get_hidden_tabitems_number	52	call get_hidden_tabitems_number
53	cmp ebp,[esp]	53	cmp ebp,[esp]
54	jbe @b	54	jbe @b
55	@@: pop ebp	55	@@: pop ebp
56	ret	56	ret
57		57
58	.go_left:	58	.go_left:
59	mov eax,ebp	59	mov eax,ebp
60	sub eax,[tab_bar.Items]	60	sub eax,[tab_bar.Items]
61	jz @f	61	jz @f
62	cdq	62	cdq
63	mov ebx,sizeof.TABITEM	63	mov ebx,sizeof.TABITEM
64	div ebx	64	div ebx
65	@@: mov [tab_bar.Items.Left],eax	65	@@: mov [tab_bar.Items.Left],eax
66	ret	66	ret
67	endf	67	endf
68		68
69	;-----------------------------------------------------------------------------	69	;-----------------------------------------------------------------------------
70	func create_tab ;///// ADD TAB TO THE END ////////////////////////////////////	70	func create_tab ;///// ADD TAB TO THE END ////////////////////////////////////
71	;-----------------------------------------------------------------------------	71	;-----------------------------------------------------------------------------
72	push eax ecx esi edi	72	push eax ecx esi edi
73		73
74	inc [tab_bar.Items.Count]	74	inc [tab_bar.Items.Count]
75	imul ebx,[tab_bar.Items.Count],sizeof.TABITEM	75	imul ebx,[tab_bar.Items.Count],sizeof.TABITEM
76	mov eax,[tab_bar.Items]	76	mov eax,[tab_bar.Items]
77	mov ecx,eax	77	mov ecx,eax
78	call mem.ReAlloc	78	call mem.ReAlloc
79	mov [tab_bar.Items],eax	79	mov [tab_bar.Items],eax
80	sub ecx,eax	80	sub ecx,eax
81	sub [tab_bar.Current.Ptr],ecx	81	sub [tab_bar.Current.Ptr],ecx
82	cmp [tab_bar.Default.Ptr],0	82	cmp [tab_bar.Default.Ptr],0
83	je @f	83	je @f
84	sub [tab_bar.Default.Ptr],ecx	84	sub [tab_bar.Default.Ptr],ecx
85	@@: lea ebp,[eax+ebx-sizeof.TABITEM]	85	@@: lea ebp,[eax+ebx-sizeof.TABITEM]
86	call set_cur_tab	86	call set_cur_tab
87		87
88	mov eax,1024	88	mov eax,1024
89	mov [cur_editor.Lines.Size],eax	89	mov [cur_editor.Lines.Size],eax
90	call mem.Alloc	90	call mem.Alloc
91	mov [cur_editor.Lines],eax	91	mov [cur_editor.Lines],eax
92	mov [cur_editor.Lines.Count],1	92	mov [cur_editor.Lines.Count],1
93	mov [cur_editor.Columns.Count],1	93	mov [cur_editor.Columns.Count],1
94	xor eax,eax	94	xor eax,eax
95	mov [cur_editor.TopLeft.X],eax	95	mov [cur_editor.TopLeft.X],eax
96	mov [cur_editor.TopLeft.Y],eax	96	mov [cur_editor.TopLeft.Y],eax
97	mov [cur_editor.Caret.X],eax	97	mov [cur_editor.Caret.X],eax
98	mov [cur_editor.Caret.Y],eax	98	mov [cur_editor.Caret.Y],eax
99	mov [cur_editor.SelStart.X],eax	99	mov [cur_editor.SelStart.X],eax
100	mov [cur_editor.SelStart.Y],eax	100	mov [cur_editor.SelStart.Y],eax
101	mov edi,[cur_editor.Lines]	101	mov edi,[cur_editor.Lines]
102	add edi,4	102	add edi,4
103	mov ecx,10	103	mov ecx,10
104	mov [edi-4],ecx	104	mov [edi-4],ecx
105	mov [edi+10],eax	105	mov [edi+10],eax
106	mov al,' '	106	mov al,' '
107	cld	107	cld
108	rep stosb	108	rep stosb
109		109
110	mov esi,s_defname	110	mov esi,s_defname
111	mov edi,cur_editor.FilePath	111	mov edi,cur_editor.FilePath + 1
112	mov ecx,s_defname.size	112	mov ecx,s_defname.size
113	rep movsb	113	rep movsb
114	mov [cur_editor.FileName],0	114	mov [cur_editor.FileName],1
115		115
116	mov [cur_editor.Modified],0	116	mov [cur_editor.Modified],0
117	mov [cur_editor.AsmMode],0	117	mov [cur_editor.AsmMode],0
118		118
119	call flush_cur_tab	119	call flush_cur_tab
120	mov ebp,[tab_bar.Current.Ptr]	120	mov ebp,[tab_bar.Current.Ptr]
121	call make_tab_visible	121	call make_tab_visible
122	call update_caption	122	call update_caption
123	cmp [do_not_draw],0	123	cmp [do_not_draw],0
124	jne @f	124	jne @f
125	call align_editor_in_tab	125	call align_editor_in_tab
126	call draw_editor	126	call draw_editor
127	call draw_tabctl	127	call draw_tabctl
128	call draw_statusbar	128	call draw_statusbar
129	call update_caption	129	call update_caption
130	@@:	130	@@:
131	mov ebp,cur_tab	131	mov ebp,cur_tab
132	pop edi esi ecx eax	132	pop edi esi ecx eax
133	ret	133	ret
134	endf	134	endf
135		135
136	;-----------------------------------------------------------------------------	136	;-----------------------------------------------------------------------------
137	func delete_tab ;///// DELETE SPECIFIED TAB //////////////////////////////////	137	func delete_tab ;///// DELETE SPECIFIED TAB //////////////////////////////////
138	;-----------------------------------------------------------------------------	138	;-----------------------------------------------------------------------------
139	cmp [tab_bar.Default.Ptr],0	139	cmp [tab_bar.Default.Ptr],0
140	je @f	140	je @f
141	cmp ebp,[tab_bar.Default.Ptr]	141	cmp ebp,[tab_bar.Default.Ptr]
142	je .lp1	142	je .lp1
143	ja @f	143	ja @f
144	sub [tab_bar.Default.Ptr],sizeof.TABITEM	144	sub [tab_bar.Default.Ptr],sizeof.TABITEM
145	jmp @f	145	jmp @f
146	.lp1:	146	.lp1:
147	mov [tab_bar.Default.Ptr],0	147	mov [tab_bar.Default.Ptr],0
148		148
149	@@: mov eax,[ebp+TABITEM.Editor.Lines]	149	@@: mov eax,[ebp+TABITEM.Editor.Lines]
150	call mem.Free	150	call mem.Free
151	imul ecx,[tab_bar.Items.Count],sizeof.TABITEM	151	imul ecx,[tab_bar.Items.Count],sizeof.TABITEM
152	add ecx,[tab_bar.Items]	152	add ecx,[tab_bar.Items]
153	sub ecx,ebp	153	sub ecx,ebp
154	sub ecx,sizeof.TABITEM	154	sub ecx,sizeof.TABITEM
155	jle @f	155	jle @f
156	cld	156	cld
157	shr ecx,2	157	shr ecx,2
158	mov edi,ebp	158	mov edi,ebp
159	lea esi,[edi+sizeof.TABITEM]	159	lea esi,[edi+sizeof.TABITEM]
160	rep movsd	160	rep movsd
161	@@: dec [tab_bar.Items.Count]	161	@@: dec [tab_bar.Items.Count]
162	jz .no_tabs	162	jz .no_tabs
163	imul ebx,[tab_bar.Items.Count],sizeof.TABITEM	163	imul ebx,[tab_bar.Items.Count],sizeof.TABITEM
164	push ebx	164	push ebx
165	mov eax,[tab_bar.Items]	165	mov eax,[tab_bar.Items]
166	mov ecx,eax	166	mov ecx,eax
167	call mem.ReAlloc	167	call mem.ReAlloc
168	mov [tab_bar.Items],eax	168	mov [tab_bar.Items],eax
169	sub ecx,eax	169	sub ecx,eax
170	sub ebp,ecx	170	sub ebp,ecx
171	cmp [tab_bar.Default.Ptr],0	171	cmp [tab_bar.Default.Ptr],0
172	je @f	172	je @f
173	sub [tab_bar.Default.Ptr],ecx	173	sub [tab_bar.Default.Ptr],ecx
174	@@:	174	@@:
175	pop ecx	175	pop ecx
176	add ecx,[tab_bar.Items]	176	add ecx,[tab_bar.Items]
177	sub ecx,ebp	177	sub ecx,ebp
178	ja @f	178	ja @f
179	add ebp,-sizeof.TABITEM	179	add ebp,-sizeof.TABITEM
180		180
181	@@: mov [tab_bar.Current.Ptr],0	181	@@: mov [tab_bar.Current.Ptr],0
182	call set_cur_tab	182	call set_cur_tab
183	call make_tab_visible	183	call make_tab_visible
184	call align_editor_in_tab	184	call align_editor_in_tab
185	call draw_editor	185	call draw_editor
186	call draw_tabctl	186	call draw_tabctl
187	call draw_statusbar	187	call draw_statusbar
188	ret	188	ret
189		189
190	.no_tabs:	190	.no_tabs:
191	mov eax,[tab_bar.Items]	191	mov eax,[tab_bar.Items]
192	call mem.Free	192	call mem.Free
193	xor eax,eax	193	xor eax,eax
194	mov [tab_bar.Items],eax	194	mov [tab_bar.Items],eax
195	mov [tab_bar.Current.Ptr],eax	195	mov [tab_bar.Current.Ptr],eax
196	mov [tab_bar.Default.Ptr],eax	196	mov [tab_bar.Default.Ptr],eax
197	ret	197	ret
198	endf	198	endf
199		199
200	;-----------------------------------------------------------------------------	200	;-----------------------------------------------------------------------------
201	func draw_tabctl ;///// DRAW TAB CONTROL /////////////////////////////////////	201	func draw_tabctl ;///// DRAW TAB CONTROL /////////////////////////////////////
202	;-----------------------------------------------------------------------------	202	;-----------------------------------------------------------------------------
203		203
204	dec [tab_bar.Items.Left]	204	dec [tab_bar.Items.Left]
205	js .lp1	205	js .lp1
206	@@: call get_hidden_tabitems_number	206	@@: call get_hidden_tabitems_number
207	or eax,eax	207	or eax,eax
208	jnz .lp1	208	jnz .lp1
209	dec [tab_bar.Items.Left]	209	dec [tab_bar.Items.Left]
210	jns @b	210	jns @b
211	.lp1: inc [tab_bar.Items.Left]	211	.lp1: inc [tab_bar.Items.Left]
212	mov eax,[tab_bar.Items.Count]	212	mov eax,[tab_bar.Items.Count]
213	cmp [tab_bar.Items.Left],eax	213	cmp [tab_bar.Items.Left],eax
214	jb @f	214	jb @f
215	dec eax	215	dec eax
216	mov [tab_bar.Items.Left],eax	216	mov [tab_bar.Items.Left],eax
217	@@:	217	@@:
218		218
219	mov eax,8	219	mov eax,8
220	mov edx,[tab_bar.Buttons.First]	220	mov edx,[tab_bar.Buttons.First]
221	@@: cmp edx,[tab_bar.Buttons.Last]	221	@@: cmp edx,[tab_bar.Buttons.Last]
222	ja @f	222	ja @f
223	push edx	223	push edx
224	or edx,0x80000000	224	or edx,0x80000000
225	mcall	225	mcall
226	pop edx	226	pop edx
227	inc edx	227	inc edx
228	jmp @b	228	jmp @b
229	@@:	229	@@:
230		230
231	mov ebx,[tab_bar.Bounds.Left-2]	231	mov ebx,[tab_bar.Bounds.Left-2]
232	mov bx,word[tab_bar.Bounds.Right]	232	mov bx,word[tab_bar.Bounds.Right]
233	sub bx,word[tab_bar.Bounds.Left]	233	sub bx,word[tab_bar.Bounds.Left]
234	inc ebx	234	inc ebx
235	mov ecx,[tab_bar.Bounds.Top-2]	235	mov ecx,[tab_bar.Bounds.Top-2]
236	mov cx,word[tab_bar.Bounds.Bottom]	236	mov cx,word[tab_bar.Bounds.Bottom]
237	sub cx,word[tab_bar.Bounds.Top]	237	sub cx,word[tab_bar.Bounds.Top]
238	inc ecx	238	inc ecx
239	mov edx,[cl_3d_normal]	239	mov edx,[cl_3d_normal]
240	call draw_framerect	240	call draw_framerect
241		241
242	mov al,[tab_bar.Style]	242	mov al,[tab_bar.Style]
243	dec al	243	dec al
244	jz .tabs_on_top	244	jz .tabs_on_top
245	dec al	245	dec al
246	jz .tabs_on_bottom	246	jz .tabs_on_bottom
247	dec al	247	dec al
248	jz .tabs_on_left	248	jz .tabs_on_left
249	dec al	249	dec al
250	jz .tabs_on_right	250	jz .tabs_on_right
251	ret	251	ret
252		252
253	.tabs_on_top:	253	.tabs_on_top:
254	add ebx,1*65536-2	254	add ebx,1*65536-2
255	mov ecx,[tab_bar.Bounds.Top-2]	255	mov ecx,[tab_bar.Bounds.Top-2]
256	xor cx,cx	256	xor cx,cx
257	add ecx,1*65536+TBARH	257	add ecx,1*65536+TBARH
258	mcall 13	258	mcall 13
259	add ecx,(TBARH-1)*65536-(TBARH-1)	259	add ecx,(TBARH-1)*65536-(TBARH-1)
260	mcall ,,,[sc.work]	260	mcall ,,,[sc.work]
261	add ecx,-1*65536+2	261	add ecx,-1*65536+2
262	mov edx,[cl_3d_inset]	262	mov edx,[cl_3d_inset]
263	call draw_framerect	263	call draw_framerect
264		264
265	mov esi,[tab_bar.Bounds.Left]	265	mov esi,[tab_bar.Bounds.Left]
266	inc esi	266	inc esi
267	mov edi,[tab_bar.Bounds.Top]	267	mov edi,[tab_bar.Bounds.Top]
268	inc edi	268	inc edi
269	push .curr_top .check_horz .next_horz	269	push .curr_top .check_horz .next_horz
270	call .draw_tabs	270	call .draw_tabs
271	ret	271	ret
272		272
273	.tabs_on_bottom:	273	.tabs_on_bottom:
274	add ebx,1*65536-2	274	add ebx,1*65536-2
275	mov ecx,[tab_bar.Bounds.Bottom-2]	275	mov ecx,[tab_bar.Bounds.Bottom-2]
276	xor cx,cx	276	xor cx,cx
277	add ecx,-TBARH*65536+TBARH	277	add ecx,-TBARH*65536+TBARH
278	mcall 13	278	mcall 13
279	mov cx,1	279	mov cx,1
280	mcall ,,,[sc.work]	280	mcall ,,,[sc.work]
281	add ecx,-1*65536+2	281	add ecx,-1*65536+2
282	mov edx,[cl_3d_inset]	282	mov edx,[cl_3d_inset]
283	call draw_framerect	283	call draw_framerect
284		284
285	mov esi,[tab_bar.Bounds.Left]	285	mov esi,[tab_bar.Bounds.Left]
286	inc esi	286	inc esi
287	mov edi,[tab_bar.Bounds.Bottom]	287	mov edi,[tab_bar.Bounds.Bottom]
288	add edi,-TBARH+1	288	add edi,-TBARH+1
289	push .curr_bottom .check_horz .next_horz	289	push .curr_bottom .check_horz .next_horz
290	call .draw_tabs	290	call .draw_tabs
291	ret	291	ret
292		292
293	.tabs_on_left:	293	.tabs_on_left:
294	call get_max_tab_width	294	call get_max_tab_width
295	mov ebx,[tab_bar.Bounds.Left-2]	295	mov ebx,[tab_bar.Bounds.Left-2]
296	mov bx,ax	296	mov bx,ax
297	add ebx,1*65536-1	297	add ebx,1*65536-1
298	add ecx,1*65536-2	298	add ecx,1*65536-2
299	push eax	299	push eax
300	mcall 13	300	mcall 13
301	pop ebx	301	pop ebx
302	shl ebx,16	302	shl ebx,16
303	add ebx,1*65536+1	303	add ebx,1*65536+1
304	mcall ,,,[sc.work]	304	mcall ,,,[sc.work]
305	add ebx,-1*65536+2	305	add ebx,-1*65536+2
306	mov edx,[cl_3d_inset]	306	mov edx,[cl_3d_inset]
307	call draw_framerect	307	call draw_framerect
308		308
309	mov esi,[tab_bar.Bounds.Left]	309	mov esi,[tab_bar.Bounds.Left]
310	inc esi	310	inc esi
311	mov edi,[tab_bar.Bounds.Top]	311	mov edi,[tab_bar.Bounds.Top]
312	inc edi	312	inc edi
313	push .curr_left .check_vert .next_vert	313	push .curr_left .check_vert .next_vert
314	call .draw_tabs	314	call .draw_tabs
315	ret	315	ret
316		316
317	.tabs_on_right:	317	.tabs_on_right:
318	call get_max_tab_width	318	call get_max_tab_width
319	push eax	319	push eax
320	mov ebx,[tab_bar.Bounds.Right-2]	320	mov ebx,[tab_bar.Bounds.Right-2]
321	mov bx,ax	321	mov bx,ax
322	shl eax,16	322	shl eax,16
323	sub ebx,eax	323	sub ebx,eax
324	add ecx,1*65536-2	324	add ecx,1*65536-2
325	mcall 13	325	mcall 13
326	add ebx,-1*65536	326	add ebx,-1*65536
327	mov bx,1	327	mov bx,1
328	mcall ,,,[sc.work]	328	mcall ,,,[sc.work]
329	add ebx,-1*65536+2	329	add ebx,-1*65536+2
330	mov edx,[cl_3d_inset]	330	mov edx,[cl_3d_inset]
331	call draw_framerect	331	call draw_framerect
332		332
333	mov esi,[tab_bar.Bounds.Right]	333	mov esi,[tab_bar.Bounds.Right]
334	pop eax	334	pop eax
335	sub esi,eax	335	sub esi,eax
336	mov edi,[tab_bar.Bounds.Top]	336	mov edi,[tab_bar.Bounds.Top]
337	inc edi	337	inc edi
338	push .curr_right .check_vert .next_vert	338	push .curr_right .check_vert .next_vert
339	call .draw_tabs	339	call .draw_tabs
340	ret	340	ret
341		341
342		342
343	.draw_tabs:	343	.draw_tabs:
344	mov ecx,[tab_bar.Items.Count]	344	mov ecx,[tab_bar.Items.Count]
345	mov ebx,[tab_bar.Items.Left]	345	mov ebx,[tab_bar.Items.Left]
346	imul ebp,ebx,sizeof.TABITEM	346	imul ebp,ebx,sizeof.TABITEM
347	add ebp,[tab_bar.Items]	347	add ebp,[tab_bar.Items]
348	push ecx	348	push ecx
349	sub [esp],ebx	349	sub [esp],ebx
350	add ebx,1000	350	add ebx,1000
351	mov [tab_bar.Buttons.First],ebx	351	mov [tab_bar.Buttons.First],ebx
352	dec ebx	352	dec ebx
353	mov [tab_bar.Buttons.Last],ebx	353	mov [tab_bar.Buttons.Last],ebx
354	@@: push ecx	354	@@: push ecx
355		355
356	call get_tab_size	356	call get_tab_size
357		357
358	call dword[esp+(8+4)+4]	358	call dword[esp+(8+4)+4]
359	jc .draw_tabs.dontfit	359	jc .draw_tabs.dontfit
360		360
361	rol ebx,16	361	rol ebx,16
362	mov bx,si	362	mov bx,si
363	rol ebx,16	363	rol ebx,16
364	rol ecx,16	364	rol ecx,16
365	mov cx,di	365	mov cx,di
366	rol ecx,16	366	rol ecx,16
367	mov edx,[cl_3d_inset]	367	mov edx,[cl_3d_inset]
368	call draw_framerect	368	call draw_framerect
369		369
370	mov edx,[sc.work_text]	370	mov edx,[sc.work_text]
371	cmp ebp,[tab_bar.Current.Ptr]	371	cmp ebp,[tab_bar.Current.Ptr]
372	jne .draw_tabs.inactive	372	jne .draw_tabs.inactive
373	push ebx ecx	373	push ebx ecx
374	call dword[esp+(8+4)+8+8]	374	call dword[esp+(8+4)+8+8]
375	mcall 13,,,[sc.work]	375	mcall 13,,,[sc.work]
376	pop ecx ebx	376	pop ecx ebx
377	mov edx,[color_tbl.text]	377	mov edx,[color_tbl.text]
378	.draw_tabs.inactive:	378	.draw_tabs.inactive:
379		379
380	cmp ebp,[tab_bar.Default.Ptr]	380	cmp ebp,[tab_bar.Default.Ptr]
381	jne .draw_tabs.notdefault	381	jne .draw_tabs.notdefault
382	push ebx ecx edx	382	push ebx ecx edx
383	add ebx,3*65536	383	add ebx,3*65536
384	add ecx,(TBARH/2-6)*65536	384	add ecx,(TBARH/2-6)*65536
385	mov bx,11	385	mov bx,11
386	mov cx,bx	386	mov cx,bx
387	call draw_framerect	387	call draw_framerect
388	add ebx,1*65536-2	388	add ebx,1*65536-2
389	add ecx,1*65536-2	389	add ecx,1*65536-2
390	mcall 13,,,[sc.work]	390	mcall 13,,,[sc.work]
391	shr ebx,16	391	shr ebx,16
392	shr ecx,16	392	shr ecx,16
393	add ebx,2	393	add ebx,2
394	add ecx,3	394	add ecx,3
395	mov edx,[esp]	395	mov edx,[esp]
396	call draw_check	396	call draw_check
397	pop edx ecx ebx	397	pop edx ecx ebx
398	.draw_tabs.notdefault:	398	.draw_tabs.notdefault:
399		399
400	push ebx ecx esi edx	400	push ebx ecx esi edx
401	lea eax,[ebp+TABITEM.Editor.FilePath]	401	lea eax,[ebp+TABITEM.Editor.FilePath]
402	add eax,[ebp+TABITEM.Editor.FileName]	402	add eax,[ebp+TABITEM.Editor.FileName]
403	mov edx,eax	403	mov edx,eax
404	call strlen	404	call strlen
405	mov esi,eax	405	mov esi,eax
406	shr ecx,16	406	shr ecx,16
407	mov bx,cx	407	mov bx,cx
408	add ebx,5*65536+TBARH/2-4	408	add ebx,5*65536+TBARH/2-4
409	pop ecx	409	pop ecx
410	cmp ebp,[tab_bar.Default.Ptr]	410	cmp ebp,[tab_bar.Default.Ptr]
411	jne .lp2	411	jne .lp2
412	add ebx,13*65536	412	add ebx,13*65536
413	.lp2: mcall 4	413	.lp2: mcall 4
414	pop esi ecx ebx	414	pop esi ecx ebx
415		415
416	inc [tab_bar.Buttons.Last]	416	inc [tab_bar.Buttons.Last]
417	cmp ebp,[tab_bar.Current.Ptr]	417	cmp ebp,[tab_bar.Current.Ptr]
418	je .draw_tabs.active	418	je .draw_tabs.active
419	push ebx ecx	419	push ebx ecx
420	dec ebx	420	dec ebx
421	dec ecx	421	dec ecx
422	mov edx,[tab_bar.Buttons.Last]	422	mov edx,[tab_bar.Buttons.Last]
423	or edx,0x40000000	423	or edx,0x40000000
424	mcall 8	424	mcall 8
425	pop ecx ebx	425	pop ecx ebx
426	.draw_tabs.active:	426	.draw_tabs.active:
427		427
428	call dword[esp+(8+4)+0]	428	call dword[esp+(8+4)+0]
429	add ebp,sizeof.TABITEM	429	add ebp,sizeof.TABITEM
430		430
431	pop ecx	431	pop ecx
432	dec ecx	432	dec ecx
433	dec dword[esp]	433	dec dword[esp]
434	jnz @b	434	jnz @b
435		435
436	add esp,4	436	add esp,4
437	or ecx,ecx	437	or ecx,ecx
438	jnz @f	438	jnz @f
439		439
440	ret 8	440	ret 8
441		441
442	.draw_tabs.dontfit:	442	.draw_tabs.dontfit:
443		443
444	add esp,8	444	add esp,8
445		445
446	@@: mov ebx,[tab_bar.Bounds.Right]	446	@@: mov ebx,[tab_bar.Bounds.Right]
447	shl ebx,16	447	shl ebx,16
448	mov ecx,[tab_bar.Bounds.Bottom]	448	mov ecx,[tab_bar.Bounds.Bottom]
449	shl ecx,16	449	shl ecx,16
450	add ecx,(-SCRLW-1)*65536+SCRLW	450	add ecx,(-SCRLW-1)*65536+SCRLW
451	call get_max_tab_width	451	call get_max_tab_width
452	mov edx,eax	452	mov edx,eax
453		453
454	mov al,[tab_bar.Style]	454	mov al,[tab_bar.Style]
455	dec al	455	dec al
456	jz .scroll_on_top	456	jz .scroll_on_top
457	dec al	457	dec al
458	jz .scroll_on_bottom	458	jz .scroll_on_bottom
459	dec al	459	dec al
460	jz .scroll_on_left	460	jz .scroll_on_left
461	dec al	461	dec al
462	jz .scroll_on_right	462	jz .scroll_on_right
463	ret	463	ret
464		464
465	.scroll_on_top:	465	.scroll_on_top:
466	add ebx,(-SCRLW2-1)65536+SCRLW	466	add ebx,(-SCRLW2-1)65536+SCRLW
467	mov ecx,[tab_bar.Bounds.Top]	467	mov ecx,[tab_bar.Bounds.Top]
468	shl ecx,16	468	shl ecx,16
469	add ecx,1*65536+SCRLW	469	add ecx,1*65536+SCRLW
470	jmp .draw_tabs.draw_scroll	470	jmp .draw_tabs.draw_scroll
471	.scroll_on_bottom:	471	.scroll_on_bottom:
472	add ebx,(-SCRLW2-1)65536+SCRLW	472	add ebx,(-SCRLW2-1)65536+SCRLW
473	jmp .draw_tabs.draw_scroll	473	jmp .draw_tabs.draw_scroll
474	.scroll_on_left:	474	.scroll_on_left:
475	mov ebx,[tab_bar.Bounds.Left]	475	mov ebx,[tab_bar.Bounds.Left]
476	add ebx,edx	476	add ebx,edx
477	shl ebx,16	477	shl ebx,16
478	add ebx,(-SCRLW2)65536+SCRLW	478	add ebx,(-SCRLW2)65536+SCRLW
479	jmp .draw_tabs.draw_scroll	479	jmp .draw_tabs.draw_scroll
480	.scroll_on_right:	480	.scroll_on_right:
481	shl edx,16	481	shl edx,16
482	sub ebx,edx	482	sub ebx,edx
483	add ebx,SCRLW	483	add ebx,SCRLW
484		484
485	.draw_tabs.draw_scroll:	485	.draw_tabs.draw_scroll:
486	mcall 8,,,'TBG' or 0x40000000	486	mcall 8,,,'TBG' or 0x40000000
487	push ebx	487	push ebx
488	add ebx,SCRLW*65536	488	add ebx,SCRLW*65536
489	mcall 8,,,'TBL' or 0x40000000	489	mcall 8,,,'TBL' or 0x40000000
490	pop ebx	490	pop ebx
491	push ebx ecx	491	push ebx ecx
492	sar ebx,16	492	sar ebx,16
493	sar ecx,16	493	sar ecx,16
494	push ebx ecx SCRLW SCRLW	494	push ebx ecx SCRLW SCRLW
495	call draw_3d_panel	495	call draw_3d_panel
496	add ebx,SCRLW	496	add ebx,SCRLW
497	push ebx ecx SCRLW SCRLW	497	push ebx ecx SCRLW SCRLW
498	call draw_3d_panel	498	call draw_3d_panel
499	pop ecx ebx	499	pop ecx ebx
500		500

Subversion Repositories Kolibri OS

(root)/programs/develop/tinypad/trunk/tp-tabctl.asm – Rev 327 → 595