Comunidad Gambas-es - Diferentes tamaños de letra en una celda de GridView

Hola

Necesito tener una columna de Celdas de esta forma:

Esto es una celda compuesta por dos números que a su vez los separa con gb.CrLf
10.000
10.000

¿Esto es posible hacerlo?

¿Como?

Gracias.

...usando la Propiedad ".RichText" y TAG HTML:

GAMBAS

Public Sub Form_Open()
 
  With GridView1
    .Rows.Count = 3
    .Columns.Count = 3
  End With
 
  GridView1[0, 0].RichText = "10000<BR><FONT Size=1>10000"
  GridView1.Columns[0].Width = -1
  GridView1.Rows[0].Height = -1
 
End

Prueba esto. Hay 2 celdas, pero sólo puedes ver una.

GAMBAS

GridView1 As GridView
 
Public Sub Form_Open()
 
  BuildForm
  AddData
 
End
 
Public Sub AddData()
 
  Dim iLoop, iRow As Integer
 
  For iLoop = 10000 To 10020
    Inc GridView1.Rows.Count
    GridView1[iRow, 0].Text = Str(iLoop)
    GridView1[iRow, 0].Font.Size = 16
    GridView1[iRow, 0].Font.Bold = True
    GridView1[iRow, 0].Border = New Border("style:none plain none plain")
    Inc GridView1.Rows.Count
    Inc iRow
    GridView1[iRow, 0].Text = Str(iLoop)
    GridView1[iRow, 0].Font.Size = 8
    GridView1[iRow, 0].Border = New Border("style:none plain plain plain")
    Inc iRow
  Next
 
End
 
Public Sub BuildForm()
 
  With Me
    .H = 450
    .W = 450
    .Arrangement = Arrange.Vertical
    .Padding = 5
  End With
 
  With GridView1 = New GridView(Me) As "GridView1"
    .Expand = True
    .Columns.Count = 1
    .Grid = False
  End With
 
End

(07-04-2021, 16:18)vuott escribió: [ -> ]...usando la Propiedad ".RichText" y TAG HTML:

Gracias vuott pero por alguna razón que desconozco no me funciona tu caso y este fue mi primera opción antes de preguntar en el foro ya que a mi también me pareció lógico probar. Pero no, no me ha funcionado. ¿Es posible que sea un problema de mi IDE de Gambas?

Gracias cogier y me alegra poder hablar nuevamente contigo.

No entiendo tu código y sinceramente no se adaptarlo al mio. Perdón pero me parece que tu estas en otro nivel Smile

Si se te ocurre como puedo hacerlo, pues ya me cuentas.

De todas formas yo seguiré probando tu código para ver si lo veo.

Mil gracias a los dos Sad

(07-04-2021, 18:06)gambafeliz escribió: [ -> ]¿Es posible que sea un problema de mi IDE de Gambas?

No se... pueder ser. Undecided

vuott, Por fin ... Smile

Al final he conseguido que funcione tu código pero tengo que añadir una línea antes de:

GAMBAS

Dim sCadena1 As String = "10000"
Dim sCadena2 As String = "10000"
'con esta línea siguiente me funciona bien. Esta línea es efectiva para todos los casos, osea, 
'cuando la celda esta con datos o vacía
GridView1[0,0].Text = "" '<-- a esta línea me refiero, ojo, tengo en la celda datos antes, no estaba vacía
GridView1[0, 0].RichText = sCadena1 & "<BR><FONT Size=1>" & sCadena2 'esto lo resuelve la línea anterior, si ya contiene datos previos.  
GridView1[0, 0].RichText = "10000<BR><FONT Size=1>10000" 'siempre funciona si la celda no contiene ningún dato o texto

Gracias vuott