Public Sub AddImage(dir As String, img As String) As TextFlow
Dim simg As Image = fx.LoadImage(dir,img)
Dim uri As ImageView
uri.Initialize("")
uri.SetImage(simg)
uri.SetLayoutAnimated(0,0,0,16,16)
texts.Add(uri)
Return Me
End Sub
public Sub AddImage1(img As Image, imgw As Double, imgh As Double) As TextFlow
Dim uri As ImageView
uri.Initialize("")
uri.SetImage(img)
uri.SetLayoutAnimated(0,0,0,imgw,imgh)
texts.Add(uri)
Return Me
End Sub
'Description: Set TreeItem text to some color you want.
'Tag: TreeItem, color, font size
Sub TreeViewItemSetColorImage(ti As TreeItem, Color As Paint, FontSize As Int, dir As String, img As String)
Dim ft As Font = fx.DefaultFont(FontSize)
Dim text As String = ti.Text
Dim tf As TextFlow
tf.Initialize
tf.AddImage(dir,img).AddText(" ")
tf.AddText(text).SetColor(Color).SetFont(ft)
Dim jo As JavaObject = ti
Dim p As Pane = tf.CreateTextFlow
p.Tag = ti.text
jo.RunMethod("setGraphic", Array(p))
End Sub