Bug? Resizing a panel or a label inside a customlistview not work on b4i

Status
Not open for further replies.

Lucas Siqueira

Active Member
Licensed User
Longtime User
why does resizing a panel or a label inside a customlistview not work on b4i? (on android it works normally)

Captura de Tela 2023-02-14 à(s) 14.46.48.jpg


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
 

Attachments

  • clvAjustavel.zip
    182.1 KB · Views: 145
Status
Not open for further replies.
Top