forked from KolibriOS/kolibrios
734 lines
15 KiB
NASM
734 lines
15 KiB
NASM
|
|
lsz s_defname,\
|
|
en,<'Untitled',0>,\
|
|
ru,<'Untitled',0>,\
|
|
et,<'Nimetu',0>
|
|
|
|
;-----------------------------------------------------------------------------
|
|
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 ////
|
|
;-----------------------------------------------------------------------------
|
|
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 .lp1
|
|
@@: inc [tab_bar.Items.Left]
|
|
call get_hidden_tabitems_number
|
|
cmp ebp,[esp]
|
|
jbe @b
|
|
@@: inc [tab_bar.Items.Left]
|
|
.lp1: pop ebp
|
|
ret
|
|
|
|
.go_left:
|
|
mov eax,ebp
|
|
sub eax,[tab_bar.Items]
|
|
jz @f
|
|
cwde
|
|
mov ebx,sizeof.TABITEM
|
|
div ebx
|
|
@@: mov [tab_bar.Items.Left],eax
|
|
ret
|
|
endf
|
|
|
|
;-----------------------------------------------------------------------------
|
|
func create_tab ;///// ADD TAB TO THE END ////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
; DEBUGF 1,"items count before addition: %d\n",[tab_bar.Items.Count]
|
|
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
|
|
call make_tab_visible
|
|
|
|
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
|
|
mov ecx,s_defname.size
|
|
rep movsb
|
|
mov [cur_editor.FileName],0
|
|
|
|
mov [cur_editor.Modified],0
|
|
mov [cur_editor.AsmMode],0
|
|
|
|
call flush_cur_tab
|
|
call update_caption
|
|
;call drawwindow
|
|
cmp [do_not_draw],0
|
|
jne @f
|
|
call align_editor_in_tab
|
|
call draw_editor
|
|
call draw_tabctl
|
|
call draw_statusbar
|
|
@@:
|
|
mov ebp,cur_tab
|
|
pop edi esi ecx eax
|
|
ret
|
|
endf
|
|
|
|
;-----------------------------------------------------------------------------
|
|
func delete_tab ;///// DELETE SPECIFIED TAB //////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
; DEBUGF 1,"items count before deletion: %d\n",[tab_bar.Items.Count]
|
|
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 drawwindow
|
|
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+4*0]
|
|
.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,[ebx-1]
|
|
add eax,esi
|
|
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,[ecx-1]
|
|
add eax,edi
|
|
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]
|
|
imul ebp,[tab_bar.Items.Left],sizeof.TABITEM
|
|
add ebp,[tab_bar.Items]
|
|
mov eax,ecx
|
|
sub eax,[tab_bar.Items.Left]
|
|
push eax
|
|
@@: 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
|