Bug? [SOLVED] Text size of a ToolTip on a Label matches the font size chose for the label'

MrKim

Well-Known Member
Licensed User
Longtime User
Perhaps a java thing? I have some labels with FontAwesome icons so I am using a very large font. The tooltip also displays that font.
 

TILogistic

Expert
Licensed User
Longtime User
this may help.

See set font:
joToolTip2.RunMethod("setFont", Array(fnt))
 

TILogistic

Expert
Licensed User
Longtime User
Sample:
Edit:

B4X:
    Dim Tooltip As JavaObject = TextField1.As(JavaObject).RunMethod("getTooltip",Null)
    Tooltip.RunMethod("setFont", Array(xui.CreateDefaultFont(12)))
    
    Dim Tooltip As JavaObject = Label1.As(JavaObject).RunMethod("getTooltip",Null)
    Tooltip.RunMethod("setFont", Array(xui.CreateDefaultFont(12)))

1655692063510.png


1655692995101.png
 
Last edited:

MrKim

Well-Known Member
Licensed User
Longtime User
Sample:
Edit:

B4X:
    Dim Tooltip As JavaObject = TextField1.As(JavaObject).RunMethod("getTooltip",Null)
    Tooltip.RunMethod("setFont", Array(xui.CreateDefaultFont(12)))
   
    Dim Tooltip As JavaObject = Label1.As(JavaObject).RunMethod("getTooltip",Null)
    Tooltip.RunMethod("setFont", Array(xui.CreateDefaultFont(12)))
Better late than never. Worked like a charm.
Thank you
 

TILogistic

Expert
Licensed User
Longtime User
What About if swiftButton?
1668697132764.png


B4X:
ToolTipOnNode(SwiftButton1.mBase.As(Pane), "This tooltip on SwiftButton", xui.CreateDefaultFont(12), Null, True)

B4X:
Private Sub ToolTipOnNode(Nd As Node, msg As String, fnt As Font, iv As ImageView, add As Boolean)
   Dim joToolTip As JavaObject
   Dim joToolTip2 As JavaObject = joToolTip.InitializeNewInstance("javafx.scene.control.Tooltip", Array(msg))
   If add = True Then
       joToolTip.RunMethod("install", Array(Nd, joToolTip2))
       If fnt.IsInitialized Then
           joToolTip2.RunMethod("setFont", Array(fnt))
       End If
       If iv.IsInitialized Then
           joToolTip2.RunMethod("setGraphic", Array(iv))
           iv.Visible = True
       End If
   Else
       joToolTip.RunMethod("uninstall", Array(Nd, joToolTip2))
   End If
End Sub
 
Top