tBaloon
Public Sub Initialize(prt As Pane)
Showing = False
Parent = prt
imIndicator.Initialize("")
frBalloon.Initialize("frBalloon", 180, 102)
frBalloon.SetFormStyle("TRANSPARENT")
frBalloon.BackColor = fx.Colors.transparent
frBalloon.RootPane.Style = "-fx-background-color: transparent;"
lbMsg.Initialize("")
lbMsg.WrapText = True
lbMsg.Font = fx.CreateFont("Arial Narrow", 14, True, True)
lbMsg.TextColor=fx.Colors.RGB(14,16,106)
lbTitle.Initialize("")
lbTitle.Font = fx.CreateFont("Arial Narrow", 16, True, False)
lbTitle.TextColor=fx.Colors.White
base.Initialize("")
Shdw = "-fx-effect: dropshadow( three-pass-box, rgba(0,0,0,0.6), 5, 0.0, 5, 5);"
base.Style = "-fx-background-color: #fdffc7;" & _
"-fx-border-color: black;" & Shdw
frBalloon.RootPane.AddNode(base, 10, 10, 10, 10)
Dim Obj As Reflector
Obj.Target = frBalloon.RootPane
Obj.AddEventHandler2("RPKeyPressed", "onKeyPressedProperty")
Private jo As JavaObject
jo.InitializeStatic("com.sun.glass.ui.Application")
robot = jo.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
End Sub