Private Sub SetRecreation
Try
lstEmergencyTeam.Visible = False
lblEmergencyTeamCount.Visible = False
mnuVisitor.Visible = False
btnEditVisitors.Visible = False
Dim ap As AnchorPane
ap.Initialize("")
ap.LoadLayout("frmRecreationMenu")
Dim img As Image
img.Initialize(File.DirAssets, "Abo-Img.png")
ABOImgRecreation.SetImage(img)
img.Initialize(File.DirAssets, "Barcode.png")
DayImgRecreation.SetImage(img)
DayImgRecreation.PreserveRatio = False
EmergTitledAnchorPane.AddNode(ap, -5, -5, -5, -5)
Log(Functions.GetTitledPaneText(EmergTitledPane))
Functions.setTitledPaneText(EmergTitledPane, "Recreation")
Catch
Functions.ShowLog("Error Set Recreation", False)
End Try
End Sub
Sub setTitledPaneText(TP As Node, Text As String )
Dim jo As JavaObject = TP
jo.RunMethod("setText", Array As Object(Text))
End Sub
Sub GetTitledPaneText(TP As Node) As String
Try
Dim jo As JavaObject = TP
Return jo.RunMethod("getText", Null)
Catch
ShowLog("Error in Getting Titled Pane Text", False)
End Try
End Sub