B4X:tooltip.setStyle("-fx-font-size: 20");
Dim tooltip As ???
Sub SetToolTipFont(N As Control,F As Font)
Dim JoN As JavaObject = N
JoN.RunMethodJO("getTooltip",Null).RunMethod("setFont",Array (F))
End Sub
JoN.InitializeContext(???) 'what is the current Activity or Service?
JoN.InitializeNewInstance(???,???)'what className and Params to use?
JoN.InitializeStatic(???)'what className to use?
For each L As Label In lblWaypointType
Log(L.isInitialized)
Next
Dim lblWaypointType(32) As Label
For i = 0 To waypointCount - 1
iLeft = 8
iWidth = 20
'waypointCount -----------------------------------------------------------
lblWaypointCount(i).Initialize("Label")
lblWaypointCount(i).Alignment = "CENTER_RIGHT"
p.AddNode(lblWaypointCount(i), iLeft, iTop, iWidth, iHeight)
iLeft = iLeft + 14
CSSUtils.SetBackgroundColor(lblWaypointCount(i),fx.Colors.White)
iLeft = 35
iWidth = 120
'WaypointType ------------------------------------------------------------
lblWaypointType(i).Initialize("Label")
p.AddNode(lblWaypointType(i), iLeft, iTop, iWidth, iHeight)
iLeft = iLeft + 130
CSSUtils.SetBackgroundColor(lblWaypointType(i),fx.Colors.LightGray)
SetToolTipFont(lblWaypointType(i),fx.CreateFont("Arial",16,True,False))
For i = 0 To waypointCount - 1
Log(lblWaypointType(i).isInitialized)
If lblWaypointType(i).isInitialized Then
SetToolTipFont(lblWaypointType(i),fx.CreateFont("Arial",16,True,False))
End If
Next