why does resizing a panel or a label inside a customlistview not work on b4i? (on android it works normally)
if you try to resize outside the customlistview, it works normally
if you try to resize outside the customlistview, it works normally
B4X:
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private clvLista As CustomListView
Private lblOk As B4XView
Private lblTitulo As B4XView
Private pnlFundo As B4XView
Private lblItemDescricao As B4XView
Private lblItemNome As B4XView
Private pnlItem As B4XView
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
lblOk_Click
End Sub
Sub adicionar(nome As String, descricao As String)
Dim pn As B4XView = xui.CreatePanel(Null) ' criou um painel
pn.SetLayoutAnimated(0,0,0, clvLista.AsView.Width , 300dip ) ' redimencionou
pn.LoadLayout("Item")
Dim color As Int = xui.Color_RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
lblItemNome.Text = nome
lblItemNome.Color = color
lblItemNome.TextColor = xui.Color_White
lblItemNome.Height = 200dip
lblItemDescricao.Text = descricao
lblItemDescricao.Color = color
lblItemDescricao.TextColor = xui.Color_White
lblItemDescricao.Height = 10dip
clvLista.Add(pn, Null)
End Sub
Private Sub lblOk_Click
clvLista.Clear
adicionar("Item 1", "Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 Descrição 1 ")
adicionar("Item 2 Item 2 Item 2 Item 2 Item 2 Item 2 Item 2 Item 2 Item 2 Item 2", "Descrição 2 Descrição 2 Descrição 2")
adicionar("Item 3", "Descrição 3 Descrição 3 Descrição 3 Descrição 3 Descrição 3 Descrição 3 Descrição 3")
End Sub