Spanish [SOLUCIONADO] Tamaño del label del CustomListView

tomky

Active Member
Licensed User
Hola.
La clase CustomListView le pone el tamaño del label que se vé en la imagen.

eej4p.png


¿Cómo aumentarle su tamaño para que quepa más texto?
Gracias.
 

Myr0n

Active Member
Licensed User
Longtime User
Puedes dar por favor mas detalles de lo que te gustaría hacer y con gusto se te orientara.

Recuerda aqui no hay limite de 140 caracteres como Twitter o telegramas.

Y si es posible agrega un proyecto demo y para ser mas especificos puedes hacer mencion hasta el numero de linea o cierto detalle en tu proyecto, para poderte ayudar mejor.

Gracias
 

rscheel

Well-Known Member
Licensed User
Longtime User
Hola.
La clase CustomListView le pone el tamaño del label que se vé en la imagen.

eej4p.png


¿Cómo aumentarle su tamaño para que quepa más texto?
Gracias.

Modificando el tamaño del label en el diseñador, puedes darle mas alto o ancho.

Captura.PNG

Y modificando el segundo 70dip aumentando el tamaño para que se adapte al label.

B4X:
clv2.Add(CreateListItem($"Item #${i}"$, clv2.AsView.Width, 70dip), este dip 70dip, $"Item #${i}"$)
 

tomky

Active Member
Licensed User
Hola, encontré la solución. ¡Vaya fallo por mi parte!

La clase CustomListView se encarga de mostrar dinámicamente los ítems con sus labels.
No utilizamos layout por tanto.
Simplemente vamos rellenando el CustomListView con un bucle, con el mensaje:

s = map2.Get("texto")
clv.Add(CreateListItem(s, clv.AsView.Width, 50dip, i), 50dip, map.Get("texto"))

Lo va recogiendo:
Sub CreateListItem(Text As String, Width As Int, Height As Int,index As Int) As Panel
Dim p As Panel
p.Initialize("")
p.Color = Colors.White
Dim chk As CheckBox
chk.Initialize("chk")
chk.Tag = index
Dim lbl As Label
lbl.Initialize("")
lbl.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl.Text = Text
lbl.TextSize = 16
lbl.TextColor = Colors.Black
p.AddView(lbl, 5dip, 2dip, 150dip, Height - 4dip) 'view #0
p.AddView(chk, 280dip, 2dip, 50dip, Height - 4dip) 'view #1
Return p
End Sub

Le he cambiado el tamaño al label en
p.AddView(lbl, 5dip, 2dip, 80%x, Height - 4dip) 'view #0

Siento no haber dado más detalles antes.
Gracias.
 
Last edited:

Myr0n

Active Member
Licensed User
Longtime User
Gracias a ti por haberte tomado el tiempo de mostrar y explicar como lo solucionaste.

Gracias también por haber modificado el titulo como solucionado.

Si no es mucha molestia, podrias cambiar la palabra SOLUCIONADO, al inicio por favor, para que sea mas legible y estética con el foro.

Muchas gracias ;)
 
Top