Ok thanks, I have seen the problem now. It does not apply the chosen color to the border of the control. It uses a very light gray and on a white background it is not visible. If I put a dark color below the control then the trimmed border shows correctly.
Designer control configuration
White background
Black background
The problem is that the corner radius is hidden by the tab panel because it is on top. What I could do is add a padding that keeps the tabs left, right top and bottom space free for the border.
I suspect there is a mistake somewhere here? although I may be wrong.
B4X:
If g_TabStripMode = False Then
Dim tmp_top As Float = xlbl_text.Top + xlbl_text.Height
If g_TabStyle = "Text" Or g_TabStyle = "TextIcon" Then 'only Text or text and icons
Dim textwidth As Int = Max(1dip,MeasureTextWidth(xlbl_text.Text,xlbl_text.Font))
If g_CurrentTabUnderlineGravity <> getCurrentTabUnderlineGravity_BOTTOMRIGHT Then
If g_TabStyle = "TextIcon" Then
tmp_top = xpnl_targettab.Height/2 - icon_height/2
Else
tmp_top = xpnl_targettab.Height/2 - xlbl_text.Height/2
End If
End If
---> xpnl_underline.SetLayoutAnimated(g_CurrentTabUnderlineAnimationDuration,xpnl_targettab.Left + xpnl_targettab.Width/2 - textwidth/2,tmp_top,textwidth,ul_height)
Else If g_TabStyle = "Icon" Then 'only Icon
If g_CurrentTabUnderlineGravity = getCurrentTabUnderlineGravity_BOTTOMRIGHT Then
tmp_top = xpnl_tabbase.Height/2 + 15dip
Else
tmp_top = xpnl_tabbase.Height/2 - icon_height/2.5
End If
xpnl_underline.SetLayoutAnimated(g_CurrentTabUnderlineAnimationDuration,xpnl_targettab.Left + xpnl_targettab.Width/2 - underlinewidthbyonlyicon/2,tmp_top,underlinewidthbyonlyicon,ul_height)
End If
I think I found a "bug" with the library.
If you do these steps, the menu's TabClick event will fire, even if you do not click it
1. Add Items to the menu (more than 1)
2. Click on any item that is not the first item
3. Remove all items from menu
4. Add items back
5. Click event will fire, even though user is not physically clicking on menu.
Maybe you could do a "ignore event" option?
AsTabMenu1.IgnoreClickEvent = True or something? not sure
In the project, I added my "fix" to it. You can remove the line "ASTabMenu1.IgnoreClickEvent = True" to see what I mean like the GIF.
I'm a noob so my "fix" is simple, but would prefer an actual fix from the creator
I work full time with vb.net and use the devexpress framework, there it works with "BeginUpdate" and "EndUpdate" when you change things, so I added that too.