Spanish Uso de CustomListView

edgar_ortiz

Active Member
Licensed User
Longtime User
Estimad@s

Estoy utilizando un CustomListView para mostrar información de un cursor, son dos campos "Titulo" e "Información", todo funciona BIEN, el texto "auto ajusta" el alto y se muestra bien.


B4X:
        For i = 0 To Starter.CursorDatos.RowCount-1
            Starter.CursorDatos.Position    = i
            lcDatos        = Starter.CursorDatos.GetString("titulo").Trim & CRLF & CRLF & _
                            "Tipo: " & Starter.CursorDatos.GetString("informacion").Trim
            '
            mp_clv_Info.DefaultTextBackgroundColor    = Colors.White
            mp_clv_Info.AddTextItem(lcDatos, 0)
        Next


Solo que ahora el cliente quiere que el "Título" esté en "BOLD" y la información en "normal"

Alguna idea de como hacerlo?

Saludos,

Edgar
 

IdasI4A

Active Member
Licensed User
Longtime User
Puedes usar CsBuilder
B4X:
For i = 0 To Starter.CursorDatos.RowCount-1
            Starter.CursorDatos.Position    = i
            dim Cs as CsBuilder
            Cs.Initialize
            Cs.Bold.Append(Starter.CursorDatos.GetString("titulo").Trim).pop.Append(crlf)
            cs.Append("Tipo: " & Starter.CursorDatos.GetString("informacion").Trim).PopAll
            '
            mp_clv_Info.DefaultTextBackgroundColor    = Colors.White
            mp_clv_Info.AddTextItem(Cs, i)
Next
 
Top