Private prefdialog As PreferencesDialog
Private OptionsKorisnik As Map
prefdialog.Initialize(Activity, "Preferences Dialog", 300dip, 300dip)
OptionsKorisnik.Initialize
prefdialog.LoadFromJson(File.ReadString(File.DirAssets, "Korisnik.json"))
Dim rs As Object = prefdialog.ShowDialog(OptionsKorisnik, "OK", "CANCEL")
' prefdialog.CustomListView1.AsView.width=90%x
' prefdialog.CustomListView1.AsView.Height=85%y
' prefdialog.Dialog.Resize(90%x, 85%y)
' prefdialog.Dialog.Resize(500dip, 500dip)
Wait For (rs) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
For Each key As String In OptionsKorisnik.Keys
If key = "" Then Continue 'separators
Log(key & ": " & OptionsKorisnik.Get(key) & CRLF)
Next
End If