'Localizes PreferencesDialog
Public Sub LocalizePrefDialog(pf As PreferencesDialog)
For Each prefitem As B4XPrefItem In pf.PrefItems
prefitem.Title = Localize(prefitem.Title)
If prefitem.Extra.IsInitialized Then
For Each key As String In prefitem.Extra.Keys
If prefitem.Extra.Get(key) Is List Then
prefitem.Extra.Put(key, LocalizeList(prefitem.Extra.Get(key)))
Else
prefitem.Extra.Put(key, Localize(prefitem.Extra.Get(key)))
End If
Next
End If
Next
End Sub