Hello, i have this forms as in attachments. How i Can increase item height in order to show correctly all the text on a options value ? Thnks in advance
Private Sub ChangeValueWidth (Key As String)
Dim i As Int = p.PrefItems.IndexOf(p.GetPrefItem(Key))
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
Dim lbl As B4XView = pnl.GetView(1)
lbl.SetLayoutAnimated(0, 40dip, lbl.Top, pnl.Width - 40dip, lbl.Height)
End Sub
Usage:
B4X:
Dim sf As Object = p.ShowDialog(d, "OK", "CANCEL")
ChangeValueWidth("opt5") 'change to your key
Wait For (sf) Complete (Result As Int)
Note that it will not work with all types of items, only those made of two labels.
Private Sub ChangeValueWidth (Key As String)
Dim i As Int = p.PrefItems.IndexOf(p.GetPrefItem(Key))
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
Dim lbl As B4XView = pnl.GetView(1)
lbl.SetLayoutAnimated(0, 40dip, lbl.Top, pnl.Width - 40dip, lbl.Height)
End Sub
Usage:
B4X:
Dim sf As Object = p.ShowDialog(d, "OK", "CANCEL")
ChangeValueWidth("opt5") 'change to your key
Wait For (sf) Complete (Result As Int)
Note that it will not work with all types of items, only those made of two labels.