'Parameters: Target As B4xView, LayoutName As String, AnchorLocation As String, PaneWidth As Double, PaneHeight as Double
'DesignerScript: {Classname}.SetPaneOnTooltip(Button1,"layoutname","CONTENT_TOP_RIGHT",120,100 )
'ContentDisplay Should be one of: CONTENT_BOTTOM_LEFT, CONTENT_BOTTOM_RIGHT, CONTENT_TOP_LEFT, CONTENT_TOP_RIGHT,
'WINDOW_BOTTOM_LEFT, WINDOW_BOTTOM_RIGHT, WINDOW_TOP_LEFT, WINDOW_TOP_RIGHT or empty string for default
Public Sub SetPaneOnTooltip(DesignerArgs As DesignerArgs)
If DesignerArgs.FirstRun Then
Dim Target As JavaObject = DesignerArgs.GetViewFromArgs(0)
Dim LayoutName As String = DesignerArgs.Arguments.Get(1)
Dim AnchorLocation As String = DesignerArgs.Arguments.Get(2)
Dim Width As Double = DesignerArgs.Arguments.Get(3)
Dim Height As Double = DesignerArgs.Arguments.Get(4)
Dim P As B4XView = XUI.CreatePanel("")
P.SetLayoutAnimated(0,0,0,Width,Height)
P.LoadLayout(LayoutName)
Dim TT As JavaObject
TT.InitializeNewInstance("javafx.scene.control.Tooltip",Null)
TT.RunMethod("setGraphic",Array(P))
If AnchorLocation <> "" Then TT.RunMethod("setAnchorLocation",Array(AnchorLocation.ToUpperCase))
Target.As(JavaObject).RunMethod("setTooltip",Array(TT))
End If
End Sub