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


;-----------------------------------------------------------------------------
proc flush_cur_tab ;///// SAVE CURRENT TAB DATA TO CONTROL ///////////////////
;-----------------------------------------------------------------------------
; EBP = TABITEM*
;-----------------------------------------------------------------------------
	push	ecx esi edi
 
	mov	edi,[tab_bar.Current.Ptr]
	or	edi,edi
	jz	@f
	mov	esi,cur_tab
	mov	ecx,sizeof.TABITEM/4
	cld
	rep	movsd
    @@: pop	edi esi ecx
	ret
endp
 
;-----------------------------------------------------------------------------
proc set_cur_tab ;///// SET SPECIFIED TAB CURRENT (FOCUS IT) /////////////////
;-----------------------------------------------------------------------------
; EBP = TABITEM*
;-----------------------------------------------------------------------------
	push	ecx esi edi
 
 
	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
endp
 
;-----------------------------------------------------------------------------
proc 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
endp
 
;-----------------------------------------------------------------------------
proc 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
	stdcall mem.ReAlloc,eax,ebx
	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
	stdcall mem.Alloc,eax
	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
endp
 
;-----------------------------------------------------------------------------
proc 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
 
    @@: stdcall mem.Free,[ebp+TABITEM.Editor.Lines]
	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
	stdcall mem.ReAlloc,eax,ebx
	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:
	stdcall mem.Free,[tab_bar.Items]
	xor	eax,eax
	mov	[tab_bar.Items],eax
	mov	[tab_bar.Current.Ptr],eax
	mov	[tab_bar.Default.Ptr],eax
	ret
endp
 
;-----------------------------------------------------------------------------
proc 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,[sc.work_text];[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
endp
 
;-----------------------------------------------------------------------------
proc 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
endp
 
;-----------------------------------------------------------------------------
proc 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
endp
 
;-----------------------------------------------------------------------------
proc 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
endp
 
;-----------------------------------------------------------------------------
proc 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
endp
>

Rev 617	Rev 629
1	;-----------------------------------------------------------------------------	1	;-----------------------------------------------------------------------------
2	proc flush_cur_tab ;///// SAVE CURRENT TAB DATA TO CONTROL ///////////////////	2	proc 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	-
8	mov edi,[tab_bar.Current.Ptr]	7	mov edi,[tab_bar.Current.Ptr]
-		8	or edi,edi
-		9	jz @f
-		10	mov esi,cur_tab
9	mov ecx,sizeof.TABITEM/4	11	mov ecx,sizeof.TABITEM/4
10	cld	12	cld
11	rep movsd	13	rep movsd
12	pop edi esi ecx	14	@@: pop edi esi ecx
13	ret	15	ret
14	endp	16	endp
15		17
16	;-----------------------------------------------------------------------------	18	;-----------------------------------------------------------------------------
17	proc set_cur_tab ;///// SET SPECIFIED TAB CURRENT (FOCUS IT) /////////////////	19	proc set_cur_tab ;///// SET SPECIFIED TAB CURRENT (FOCUS IT) /////////////////
18	;-----------------------------------------------------------------------------	20	;-----------------------------------------------------------------------------
19	; EBP = TABITEM*	21	; EBP = TABITEM*
20	;-----------------------------------------------------------------------------	22	;-----------------------------------------------------------------------------
21	push ecx esi edi	23	push ecx esi edi
22	cmp [tab_bar.Current.Ptr],0	-
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	endp	33	endp
34		34
35	;-----------------------------------------------------------------------------	35	;-----------------------------------------------------------------------------
36	proc make_tab_visible ;///// MAKE SPECIFIED TAB VISIBLE IF IT'S OFFSCREEN ////	36	proc 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	endp	67	endp
68		68
69	;-----------------------------------------------------------------------------	69	;-----------------------------------------------------------------------------
70	proc create_tab ;///// ADD TAB TO THE END ////////////////////////////////////	70	proc 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	stdcall mem.ReAlloc,eax,ebx	78	stdcall mem.ReAlloc,eax,ebx
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	stdcall mem.Alloc,eax	90	stdcall mem.Alloc,eax
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 + 1	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],1	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	endp	134	endp
135		135
136	;-----------------------------------------------------------------------------	136	;-----------------------------------------------------------------------------
137	proc delete_tab ;///// DELETE SPECIFIED TAB //////////////////////////////////	137	proc 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	@@: stdcall mem.Free,[ebp+TABITEM.Editor.Lines]	149	@@: stdcall mem.Free,[ebp+TABITEM.Editor.Lines]
150	imul ecx,[tab_bar.Items.Count],sizeof.TABITEM	150	imul ecx,[tab_bar.Items.Count],sizeof.TABITEM
151	add ecx,[tab_bar.Items]	151	add ecx,[tab_bar.Items]
152	sub ecx,ebp	152	sub ecx,ebp
153	sub ecx,sizeof.TABITEM	153	sub ecx,sizeof.TABITEM
154	jle @f	154	jle @f
155	cld	155	cld
156	shr ecx,2	156	shr ecx,2
157	mov edi,ebp	157	mov edi,ebp
158	lea esi,[edi+sizeof.TABITEM]	158	lea esi,[edi+sizeof.TABITEM]
159	rep movsd	159	rep movsd
160	@@: dec [tab_bar.Items.Count]	160	@@: dec [tab_bar.Items.Count]
161	jz .no_tabs	161	jz .no_tabs
162	imul ebx,[tab_bar.Items.Count],sizeof.TABITEM	162	imul ebx,[tab_bar.Items.Count],sizeof.TABITEM
163	push ebx	163	push ebx
164	mov eax,[tab_bar.Items]	164	mov eax,[tab_bar.Items]
165	mov ecx,eax	165	mov ecx,eax
166	stdcall mem.ReAlloc,eax,ebx	166	stdcall mem.ReAlloc,eax,ebx
167	mov [tab_bar.Items],eax	167	mov [tab_bar.Items],eax
168	sub ecx,eax	168	sub ecx,eax
169	sub ebp,ecx	169	sub ebp,ecx
170	cmp [tab_bar.Default.Ptr],0	170	cmp [tab_bar.Default.Ptr],0
171	je @f	171	je @f
172	sub [tab_bar.Default.Ptr],ecx	172	sub [tab_bar.Default.Ptr],ecx
173	@@:	173	@@:
174	pop ecx	174	pop ecx
175	add ecx,[tab_bar.Items]	175	add ecx,[tab_bar.Items]
176	sub ecx,ebp	176	sub ecx,ebp
177	ja @f	177	ja @f
178	add ebp,-sizeof.TABITEM	178	add ebp,-sizeof.TABITEM
179		179
180	@@: mov [tab_bar.Current.Ptr],0	180	@@: mov [tab_bar.Current.Ptr],0
181	call set_cur_tab	181	call set_cur_tab
182	call make_tab_visible	182	call make_tab_visible
183	call align_editor_in_tab	183	call align_editor_in_tab
184	call draw_editor	184	call draw_editor
185	call draw_tabctl	185	call draw_tabctl
186	call draw_statusbar	186	call draw_statusbar
187	ret	187	ret
188		188
189	.no_tabs:	189	.no_tabs:
190	stdcall mem.Free,[tab_bar.Items]	190	stdcall mem.Free,[tab_bar.Items]
191	xor eax,eax	191	xor eax,eax
192	mov [tab_bar.Items],eax	192	mov [tab_bar.Items],eax
193	mov [tab_bar.Current.Ptr],eax	193	mov [tab_bar.Current.Ptr],eax
194	mov [tab_bar.Default.Ptr],eax	194	mov [tab_bar.Default.Ptr],eax
195	ret	195	ret
196	endp	196	endp
197		197
198	;-----------------------------------------------------------------------------	198	;-----------------------------------------------------------------------------
199	proc draw_tabctl ;///// DRAW TAB CONTROL /////////////////////////////////////	199	proc draw_tabctl ;///// DRAW TAB CONTROL /////////////////////////////////////
200	;-----------------------------------------------------------------------------	200	;-----------------------------------------------------------------------------
201		201
202	dec [tab_bar.Items.Left]	202	dec [tab_bar.Items.Left]
203	js .lp1	203	js .lp1
204	@@: call get_hidden_tabitems_number	204	@@: call get_hidden_tabitems_number
205	or eax,eax	205	or eax,eax
206	jnz .lp1	206	jnz .lp1
207	dec [tab_bar.Items.Left]	207	dec [tab_bar.Items.Left]
208	jns @b	208	jns @b
209	.lp1: inc [tab_bar.Items.Left]	209	.lp1: inc [tab_bar.Items.Left]
210	mov eax,[tab_bar.Items.Count]	210	mov eax,[tab_bar.Items.Count]
211	cmp [tab_bar.Items.Left],eax	211	cmp [tab_bar.Items.Left],eax
212	jb @f	212	jb @f
213	dec eax	213	dec eax
214	mov [tab_bar.Items.Left],eax	214	mov [tab_bar.Items.Left],eax
215	@@:	215	@@:
216		216
217	mov eax,8	217	mov eax,8
218	mov edx,[tab_bar.Buttons.First]	218	mov edx,[tab_bar.Buttons.First]
219	@@: cmp edx,[tab_bar.Buttons.Last]	219	@@: cmp edx,[tab_bar.Buttons.Last]
220	ja @f	220	ja @f
221	push edx	221	push edx
222	or edx,0x80000000	222	or edx,0x80000000
223	mcall	223	mcall
224	pop edx	224	pop edx
225	inc edx	225	inc edx
226	jmp @b	226	jmp @b
227	@@:	227	@@:
228		228
229	mov ebx,[tab_bar.Bounds.Left-2]	229	mov ebx,[tab_bar.Bounds.Left-2]
230	mov bx,word[tab_bar.Bounds.Right]	230	mov bx,word[tab_bar.Bounds.Right]
231	sub bx,word[tab_bar.Bounds.Left]	231	sub bx,word[tab_bar.Bounds.Left]
232	inc ebx	232	inc ebx
233	mov ecx,[tab_bar.Bounds.Top-2]	233	mov ecx,[tab_bar.Bounds.Top-2]
234	mov cx,word[tab_bar.Bounds.Bottom]	234	mov cx,word[tab_bar.Bounds.Bottom]
235	sub cx,word[tab_bar.Bounds.Top]	235	sub cx,word[tab_bar.Bounds.Top]
236	inc ecx	236	inc ecx
237	mov edx,[cl_3d_normal]	237	mov edx,[cl_3d_normal]
238	call draw_framerect	238	call draw_framerect
239		239
240	mov al,[tab_bar.Style]	240	mov al,[tab_bar.Style]
241	dec al	241	dec al
242	jz .tabs_on_top	242	jz .tabs_on_top
243	dec al	243	dec al
244	jz .tabs_on_bottom	244	jz .tabs_on_bottom
245	dec al	245	dec al
246	jz .tabs_on_left	246	jz .tabs_on_left
247	dec al	247	dec al
248	jz .tabs_on_right	248	jz .tabs_on_right
249	ret	249	ret
250		250
251	.tabs_on_top:	251	.tabs_on_top:
252	add ebx,1*65536-2	252	add ebx,1*65536-2
253	mov ecx,[tab_bar.Bounds.Top-2]	253	mov ecx,[tab_bar.Bounds.Top-2]
254	xor cx,cx	254	xor cx,cx
255	add ecx,1*65536+TBARH	255	add ecx,1*65536+TBARH
256	mcall 13	256	mcall 13
257	add ecx,(TBARH-1)*65536-(TBARH-1)	257	add ecx,(TBARH-1)*65536-(TBARH-1)
258	mcall ,,,[sc.work]	258	mcall ,,,[sc.work]
259	add ecx,-1*65536+2	259	add ecx,-1*65536+2
260	mov edx,[cl_3d_inset]	260	mov edx,[cl_3d_inset]
261	call draw_framerect	261	call draw_framerect
262		262
263	mov esi,[tab_bar.Bounds.Left]	263	mov esi,[tab_bar.Bounds.Left]
264	inc esi	264	inc esi
265	mov edi,[tab_bar.Bounds.Top]	265	mov edi,[tab_bar.Bounds.Top]
266	inc edi	266	inc edi
267	push .curr_top .check_horz .next_horz	267	push .curr_top .check_horz .next_horz
268	call .draw_tabs	268	call .draw_tabs
269	ret	269	ret
270		270
271	.tabs_on_bottom:	271	.tabs_on_bottom:
272	add ebx,1*65536-2	272	add ebx,1*65536-2
273	mov ecx,[tab_bar.Bounds.Bottom-2]	273	mov ecx,[tab_bar.Bounds.Bottom-2]
274	xor cx,cx	274	xor cx,cx
275	add ecx,-TBARH*65536+TBARH	275	add ecx,-TBARH*65536+TBARH
276	mcall 13	276	mcall 13
277	mov cx,1	277	mov cx,1
278	mcall ,,,[sc.work]	278	mcall ,,,[sc.work]
279	add ecx,-1*65536+2	279	add ecx,-1*65536+2
280	mov edx,[cl_3d_inset]	280	mov edx,[cl_3d_inset]
281	call draw_framerect	281	call draw_framerect
282		282
283	mov esi,[tab_bar.Bounds.Left]	283	mov esi,[tab_bar.Bounds.Left]
284	inc esi	284	inc esi
285	mov edi,[tab_bar.Bounds.Bottom]	285	mov edi,[tab_bar.Bounds.Bottom]
286	add edi,-TBARH+1	286	add edi,-TBARH+1
287	push .curr_bottom .check_horz .next_horz	287	push .curr_bottom .check_horz .next_horz
288	call .draw_tabs	288	call .draw_tabs
289	ret	289	ret
290		290
291	.tabs_on_left:	291	.tabs_on_left:
292	call get_max_tab_width	292	call get_max_tab_width
293	mov ebx,[tab_bar.Bounds.Left-2]	293	mov ebx,[tab_bar.Bounds.Left-2]
294	mov bx,ax	294	mov bx,ax
295	add ebx,1*65536-1	295	add ebx,1*65536-1
296	add ecx,1*65536-2	296	add ecx,1*65536-2
297	push eax	297	push eax
298	mcall 13	298	mcall 13
299	pop ebx	299	pop ebx
300	shl ebx,16	300	shl ebx,16
301	add ebx,1*65536+1	301	add ebx,1*65536+1
302	mcall ,,,[sc.work]	302	mcall ,,,[sc.work]
303	add ebx,-1*65536+2	303	add ebx,-1*65536+2
304	mov edx,[cl_3d_inset]	304	mov edx,[cl_3d_inset]
305	call draw_framerect	305	call draw_framerect
306		306
307	mov esi,[tab_bar.Bounds.Left]	307	mov esi,[tab_bar.Bounds.Left]
308	inc esi	308	inc esi
309	mov edi,[tab_bar.Bounds.Top]	309	mov edi,[tab_bar.Bounds.Top]
310	inc edi	310	inc edi
311	push .curr_left .check_vert .next_vert	311	push .curr_left .check_vert .next_vert
312	call .draw_tabs	312	call .draw_tabs
313	ret	313	ret
314		314
315	.tabs_on_right:	315	.tabs_on_right:
316	call get_max_tab_width	316	call get_max_tab_width
317	push eax	317	push eax
318	mov ebx,[tab_bar.Bounds.Right-2]	318	mov ebx,[tab_bar.Bounds.Right-2]
319	mov bx,ax	319	mov bx,ax
320	shl eax,16	320	shl eax,16
321	sub ebx,eax	321	sub ebx,eax
322	add ecx,1*65536-2	322	add ecx,1*65536-2
323	mcall 13	323	mcall 13
324	add ebx,-1*65536	324	add ebx,-1*65536
325	mov bx,1	325	mov bx,1
326	mcall ,,,[sc.work]	326	mcall ,,,[sc.work]
327	add ebx,-1*65536+2	327	add ebx,-1*65536+2
328	mov edx,[cl_3d_inset]	328	mov edx,[cl_3d_inset]
329	call draw_framerect	329	call draw_framerect
330		330
331	mov esi,[tab_bar.Bounds.Right]	331	mov esi,[tab_bar.Bounds.Right]
332	pop eax	332	pop eax
333	sub esi,eax	333	sub esi,eax
334	mov edi,[tab_bar.Bounds.Top]	334	mov edi,[tab_bar.Bounds.Top]
335	inc edi	335	inc edi
336	push .curr_right .check_vert .next_vert	336	push .curr_right .check_vert .next_vert
337	call .draw_tabs	337	call .draw_tabs
338	ret	338	ret
339		339
340		340
341	.draw_tabs:	341	.draw_tabs:
342	mov ecx,[tab_bar.Items.Count]	342	mov ecx,[tab_bar.Items.Count]
343	mov ebx,[tab_bar.Items.Left]	343	mov ebx,[tab_bar.Items.Left]
344	imul ebp,ebx,sizeof.TABITEM	344	imul ebp,ebx,sizeof.TABITEM
345	add ebp,[tab_bar.Items]	345	add ebp,[tab_bar.Items]
346	push ecx	346	push ecx
347	sub [esp],ebx	347	sub [esp],ebx
348	add ebx,1000	348	add ebx,1000
349	mov [tab_bar.Buttons.First],ebx	349	mov [tab_bar.Buttons.First],ebx
350	dec ebx	350	dec ebx
351	mov [tab_bar.Buttons.Last],ebx	351	mov [tab_bar.Buttons.Last],ebx
352	@@: push ecx	352	@@: push ecx
353		353
354	call get_tab_size	354	call get_tab_size
355		355
356	call dword[esp+(8+4)+4]	356	call dword[esp+(8+4)+4]
357	jc .draw_tabs.dontfit	357	jc .draw_tabs.dontfit
358		358
359	rol ebx,16	359	rol ebx,16
360	mov bx,si	360	mov bx,si
361	rol ebx,16	361	rol ebx,16
362	rol ecx,16	362	rol ecx,16
363	mov cx,di	363	mov cx,di
364	rol ecx,16	364	rol ecx,16
365	mov edx,[cl_3d_inset]	365	mov edx,[cl_3d_inset]
366	call draw_framerect	366	call draw_framerect
367		367
368	mov edx,[sc.work_text]	368	mov edx,[sc.work_text]
369	cmp ebp,[tab_bar.Current.Ptr]	369	cmp ebp,[tab_bar.Current.Ptr]
370	jne .draw_tabs.inactive	370	jne .draw_tabs.inactive
371	push ebx ecx	371	push ebx ecx
372	call dword[esp+(8+4)+8+8]	372	call dword[esp+(8+4)+8+8]
373	mcall 13,,,[sc.work]	373	mcall 13,,,[sc.work]
374	pop ecx ebx	374	pop ecx ebx
375	mov edx,[sc.work_text];[color_tbl.text]	375	mov edx,[sc.work_text];[color_tbl.text]
376	.draw_tabs.inactive:	376	.draw_tabs.inactive:
377		377
378	cmp ebp,[tab_bar.Default.Ptr]	378	cmp ebp,[tab_bar.Default.Ptr]
379	jne .draw_tabs.notdefault	379	jne .draw_tabs.notdefault
380	push ebx ecx edx	380	push ebx ecx edx
381	add ebx,3*65536	381	add ebx,3*65536
382	add ecx,(TBARH/2-6)*65536	382	add ecx,(TBARH/2-6)*65536
383	mov bx,11	383	mov bx,11
384	mov cx,bx	384	mov cx,bx
385	call draw_framerect	385	call draw_framerect
386	add ebx,1*65536-2	386	add ebx,1*65536-2
387	add ecx,1*65536-2	387	add ecx,1*65536-2
388	mcall 13,,,[sc.work]	388	mcall 13,,,[sc.work]
389	shr ebx,16	389	shr ebx,16
390	shr ecx,16	390	shr ecx,16
391	add ebx,2	391	add ebx,2
392	add ecx,3	392	add ecx,3
393	mov edx,[esp]	393	mov edx,[esp]
394	call draw_check	394	call draw_check
395	pop edx ecx ebx	395	pop edx ecx ebx
396	.draw_tabs.notdefault:	396	.draw_tabs.notdefault:
397		397
398	push ebx ecx esi edx	398	push ebx ecx esi edx
399	lea eax,[ebp+TABITEM.Editor.FilePath]	399	lea eax,[ebp+TABITEM.Editor.FilePath]
400	add eax,[ebp+TABITEM.Editor.FileName]	400	add eax,[ebp+TABITEM.Editor.FileName]
401	mov edx,eax	401	mov edx,eax
402	call strlen	402	call strlen
403	mov esi,eax	403	mov esi,eax
404	shr ecx,16	404	shr ecx,16
405	mov bx,cx	405	mov bx,cx
406	add ebx,5*65536+TBARH/2-4	406	add ebx,5*65536+TBARH/2-4
407	pop ecx	407	pop ecx
408	cmp ebp,[tab_bar.Default.Ptr]	408	cmp ebp,[tab_bar.Default.Ptr]
409	jne .lp2	409	jne .lp2
410	add ebx,13*65536	410	add ebx,13*65536
411	.lp2: mcall 4	411	.lp2: mcall 4
412	pop esi ecx ebx	412	pop esi ecx ebx
413		413
414	inc [tab_bar.Buttons.Last]	414	inc [tab_bar.Buttons.Last]
415	cmp ebp,[tab_bar.Current.Ptr]	415	cmp ebp,[tab_bar.Current.Ptr]
416	je .draw_tabs.active	416	je .draw_tabs.active
417	push ebx ecx	417	push ebx ecx
418	dec ebx	418	dec ebx
419	dec ecx	419	dec ecx
420	mov edx,[tab_bar.Buttons.Last]	420	mov edx,[tab_bar.Buttons.Last]
421	or edx,0x40000000	421	or edx,0x40000000
422	mcall 8	422	mcall 8
423	pop ecx ebx	423	pop ecx ebx
424	.draw_tabs.active:	424	.draw_tabs.active:
425		425
426	call dword[esp+(8+4)+0]	426	call dword[esp+(8+4)+0]
427	add ebp,sizeof.TABITEM	427	add ebp,sizeof.TABITEM
428		428
429	pop ecx	429	pop ecx
430	dec ecx	430	dec ecx
431	dec dword[esp]	431	dec dword[esp]
432	jnz @b	432	jnz @b
433		433
434	add esp,4	434	add esp,4
435	or ecx,ecx	435	or ecx,ecx
436	jnz @f	436	jnz @f
437		437
438	ret 8	438	ret 8
439		439
440	.draw_tabs.dontfit:	440	.draw_tabs.dontfit:
441		441
442	add esp,8	442	add esp,8
443		443
444	@@: mov ebx,[tab_bar.Bounds.Right]	444	@@: mov ebx,[tab_bar.Bounds.Right]
445	shl ebx,16	445	shl ebx,16
446	mov ecx,[tab_bar.Bounds.Bottom]	446	mov ecx,[tab_bar.Bounds.Bottom]
447	shl ecx,16	447	shl ecx,16
448	add ecx,(-SCRLW-1)*65536+SCRLW	448	add ecx,(-SCRLW-1)*65536+SCRLW
449	call get_max_tab_width	449	call get_max_tab_width
450	mov edx,eax	450	mov edx,eax
451		451
452	mov al,[tab_bar.Style]	452	mov al,[tab_bar.Style]
453	dec al	453	dec al
454	jz .scroll_on_top	454	jz .scroll_on_top
455	dec al	455	dec al
456	jz .scroll_on_bottom	456	jz .scroll_on_bottom
457	dec al	457	dec al
458	jz .scroll_on_left	458	jz .scroll_on_left
459	dec al	459	dec al
460	jz .scroll_on_right	460	jz .scroll_on_right
461	ret	461	ret
462		462
463	.scroll_on_top:	463	.scroll_on_top:
464	add ebx,(-SCRLW2-1)65536+SCRLW	464	add ebx,(-SCRLW2-1)65536+SCRLW
465	mov ecx,[tab_bar.Bounds.Top]	465	mov ecx,[tab_bar.Bounds.Top]
466	shl ecx,16	466	shl ecx,16
467	add ecx,1*65536+SCRLW	467	add ecx,1*65536+SCRLW
468	jmp .draw_tabs.draw_scroll	468	jmp .draw_tabs.draw_scroll
469	.scroll_on_bottom:	469	.scroll_on_bottom:
470	add ebx,(-SCRLW2-1)65536+SCRLW	470	add ebx,(-SCRLW2-1)65536+SCRLW
471	jmp .draw_tabs.draw_scroll	471	jmp .draw_tabs.draw_scroll
472	.scroll_on_left:	472	.scroll_on_left:
473	mov ebx,[tab_bar.Bounds.Left]	473	mov ebx,[tab_bar.Bounds.Left]
474	add ebx,edx	474	add ebx,edx
475	shl ebx,16	475	shl ebx,16
476	add ebx,(-SCRLW2)65536+SCRLW	476	add ebx,(-SCRLW2)65536+SCRLW
477	jmp .draw_tabs.draw_scroll	477	jmp .draw_tabs.draw_scroll
478	.scroll_on_right:	478	.scroll_on_right:
479	shl edx,16	479	shl edx,16
480	sub ebx,edx	480	sub ebx,edx
481	add ebx,SCRLW	481	add ebx,SCRLW
482		482
483	.draw_tabs.draw_scroll:	483	.draw_tabs.draw_scroll:
484	mcall 8,,,'TBG' or 0x40000000	484	mcall 8,,,'TBG' or 0x40000000
485	push ebx	485	push ebx
486	add ebx,SCRLW*65536	486	add ebx,SCRLW*65536
487	mcall 8,,,'TBL' or 0x40000000	487	mcall 8,,,'TBL' or 0x40000000
488	pop ebx	488	pop ebx
489	push ebx ecx	489	push ebx ecx
490	sar ebx,16	490	sar ebx,16
491	sar ecx,16	491	sar ecx,16
492	push ebx ecx SCRLW SCRLW	492	push ebx ecx SCRLW SCRLW
493	call draw_3d_panel	493	call draw_3d_panel
494	add ebx,SCRLW	494	add ebx,SCRLW
495	push ebx ecx SCRLW SCRLW	495	push ebx ecx SCRLW SCRLW
496	call draw_3d_panel	496	call draw_3d_panel
497	pop ecx ebx	497	pop ecx ebx

Subversion Repositories Kolibri OS

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