Dim mpJob As Map
mpJob.Initialize
Dim prefJob As PreferencesDialog
prefJob.Initialize(Main.MainForm.RootPane,"Job details",420,260)
If cboMounts.SelectedItem = "None" Then
prefJob.LoadFromJson(File.ReadString(File.DirAssets,"JobNoMount.json"))
Else
prefJob.LoadFromJson(File.ReadString(File.DirAssets,"Job.json"))
End If
prefJob.TextColor = xui.Color_Blue
prefJob.ItemsBackgroundColor = xui.Color_RGB(192,192,192)
Dim sf As Object = prefJob.ShowDialog(mpJob,"ok","Cancel)
Sleep(0)
prefJob.CustomListView1.GetPanel(0).GetView(0).GetView(0).RequestFocus
Wait For (sf) complete (Result As Int)
'wait for (prefJob.ShowDialog(mpJob,"Ok","Cancel")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then