Public Sub SetItalic(index As Int, hAdj As Double) As TextFlow
Dim item As JavaObject = texts.Get(index)
Dim n As Node = item
Dim TR As JavaObject
TR.InitializeNewInstance("javafx.scene.effect.PerspectiveTransform",Null)
Dim width As Double = n.PrefWidth
Dim height As Double = n.PrefHeight
Dim img As Image = n.Snapshot
Log(n.PrefWidth)
Log(n.PrefHeight)
Log(img.Width)
Log(img.Height)
Dim Bounds As B4XRect = GetLayoutBounds(item)
Log(Bounds.Width)
Log(Bounds.Height)
width = Bounds.Width
height = Bounds.Height + hAdj
TR.Runmethod("setUlx",Array(2.0))
TR.Runmethod("setUly",Array(0.0))
TR.Runmethod("setUrx",Array(width + 2))
TR.Runmethod("setUry",Array(0.0))
TR.Runmethod("setLrx",Array(width))
TR.Runmethod("setLry",Array(height))
TR.Runmethod("setLlx",Array(0.0))
TR.Runmethod("setLly",Array(height))
item.RunMethod("setEffect", Array(TR))
Return Me
End Sub