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


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

Subversion Repositories Kolibri OS

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