Italian spazio indesiderato alla creazione della customview

Private Sub CvlMovTot_ItemClick (Index As Int, Value As Object)
Log(Panel1.GetView(2).Text)

    
End Sub

Private Sub CvlMovTot_ItemClick (Index As Int, Value As Object)
    ' Ottieni il pannello corrente dalla vista Sender
    Dim p As B4XView = Sender

    ' Assicurati che l'elemento corrente sia inizializzato
    If p.IsInitialized Then
        ' Accedi all'oggetto interno con indice 2 (o l'indice desiderato) all'interno del pannello corrente
        Dim viewAtIndex2 As B4XView = p.GetView(2)

        ' Assicurati che l'oggetto interno sia inizializzato
        If viewAtIndex2.IsInitialized Then
            ' Adesso puoi fare qualcosa con l'oggetto interno, ad esempio ottenere il testo di un EditText
            Dim editTextContent As String = viewAtIndex2.Text
            Log("Contenuto dell'oggetto interno all'indice 2: " & editTextContent)
        Else
            Log("L'oggetto interno all'indice 2 non è inizializzato.")
        End If
    Else
        Log("Il pannello corrente non è inizializzato.")
    End If

    
End Sub

Private Sub CvlMovTot_ItemClick (Index As Int, Value As Object)
    Dim v() As Object=Value
    Log(v(0))
    Log(v(1))
    
End Sub

Private Sub CvlMovTot_ItemClick (Index As Int, Value As Object)
    Dim Index As Int = CvlMovTot.GetItemFromView(Sender)
    Dim pnl As B4XView = CvlMovTot.GetPanel(Index)
    Dim lbl As B4XView = dd.GetViewByName(pnl, "Label1Name_fruit")
    Dim chk As B4XView = dd.GetViewByName(pnl, "Label2Calories")
    Log(lbl.Text)
    Log(chk.Text)
    
End Sub

Type dettaglitransazione (txtimg As String, txtDescrizione As String,  txtconto As String, txtData As String, txtcategoria As String, txtbeneficiario As String, txtprice As String)

        dt.txtDescrizione = mov_descrizione
        dt.txtcategoria = mov_categoria
        dt.txtbeneficiario = mov_beneficiario
        dt.txtData = dataString
        dt.txtconto = mov_importo

Private Sub CvlMovTot_ItemClick (Index As Int, Value As Object)
    
    
    dt = Value
    
    dt.txtDescrizione = Label1Name_fruit.Text

    Log(Label1Name_fruit.Text)


End Sub

CLV.Add(pannelloitem, tuotype)

Private Sub CvlMovTot_ItemClick (Index As Int, Value As Object)
    dt = Value
    Log(dt.txtDescrizione)
    Log(dt.txtconto)
    Log(dt.txtdata)
End Sub

Type tPersona(Nome As String, Cognome As String, Eta As Int)

Dim Persona1 As tPersona = CreatetPersona("Ugo", "Persichetti", 45)
Dim Persona2 As tPersona = CreatetPersona("FrENGO", "TreTre", 55)

Private Sub clsPersone_ItemClick (Index As Int, Value As Object)
   Dim PersonaAssociataAllItem As tPersona = Value
   Log(PersonaAssociataAllItem.Nome)
   Log(PersonaAssociataAllItem.Cognome)
   Log(PersonaAssociataAllItem.Eta)

Sub DlMovimenti
.....
    CvlMovTot.Clear

    
    If result.RowCount > 0 Then
        Do While result.NextRow
            Dim CardItem As dtransazione
            CardItem.txtData = result.GetString("movData")
            CardItem.txtconto = result.GetString("movConto")
            CardItem.txtcategoria = result.GetString("movCategoria")
            CardItem.txtDescrizione = result.GetString("movDescrizione")
            CardItem.txtbeneficiario = result.GetString("movPersona")
            CardItem.txtprice = result.GetString("movImporto")
            
    Dim dataString As String = CardItem.txtData ' Sostituisci con la tua data

            ' Verifica che la lunghezza della stringa sia almeno 10 (per evitare errori)
            If dataString.Length >= 10 Then
                ' Estrai le ultime 4 cifre
                Dim ultime4Cifre As String = dataString.SubString(dataString.Length - 4)
            Else
                Log("La stringa della data non è nel formato corretto.")
            End If
    
            If CardItem.txtprice > 0 Then
                img = "increaseappicon.png"
            Else
                img = "moneydownicon.png"
            End If
            
            CardItem.imgg = img
            Dim p As B4XView  = xui.CreatePanel("")
            p.SetLayoutAnimated(0, 0, 0, CvlMovTot.AsView.Width, 145dip)
            CvlMovTot.Add(p,CardItem) 
           

        Loop

            Swipe.CreateItemValue("", Array("Action 1", "Action 2", "Action 3"))

Private Sub CvlMovTot_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)

    Dim ExtraSize As Int = 25 'List size
    For i = Max(0, FirstIndex - ExtraSize) To Min(LastIndex + ExtraSize, CvlMovTot.Size - 1)
        Dim Pnl As B4XView = CvlMovTot.GetPanel(i)
        If i > FirstIndex - ExtraSize And i < LastIndex + ExtraSize Then
            If Pnl.NumberOfViews = 0 Then 'Add each item/layout to the list/main layout
                Dim tdettagli As dtransazione = CvlMovTot.GetValue(i)
                Pnl.LoadLayout("clvMovTot")
                lblName.Text = tdettagli.txtDescrizione
                lblImporto.Text = tdettagli.txtprice & " €"
                lblData.Text = tdettagli.txtData
                lblTipo.Text = tdettagli.txtcategoria
                lblconto.Text = tdettagli.txtconto
                lblPerson.Text = tdettagli.txtbeneficiario
                AjustaImageView(imgMov,tdettagli.imgg)
                
                If tdettagli.txtcategoria <> "Generale" Then
                    lblPerson.Visible = True
        
                Else
                    lblPerson.Visible = False
                    lblImporto.Left = 40%x
                End If
                
            End If
        Else 'Not visible
            If Pnl.NumberOfViews > 0 Then
                Pnl.RemoveAllViews 'Remove none visable item/layouts from the list/main layout
            End If
        End If
    Next
End Sub