Comunidad Gambas-es

Versión completa: Diferentes tamaños de letra en una celda de GridView
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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
  1. Public Sub Form_Open()
  2.  
  3.   With GridView1
  4.     .Rows.Count = 3
  5.     .Columns.Count = 3
  6.  
  7.   GridView1[0, 0].RichText = "10000<BR><FONT Size=1>10000"
  8.   GridView1.Columns[0].Width = -1
  9.   GridView1.Rows[0].Height = -1
  10.  


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

GAMBAS
  1. GridView1 As GridView
  2.  
  3. Public Sub Form_Open()
  4.  
  5.   BuildForm
  6.   AddData
  7.  
  8.  
  9. Public Sub AddData()
  10.  
  11.   Dim iLoop, iRow As Integer
  12.  
  13.   For iLoop = 10000 To 10020
  14.     Inc GridView1.Rows.Count
  15.     GridView1[iRow, 0].Text = Str(iLoop)
  16.     GridView1[iRow, 0].Font.Size = 16
  17.     GridView1[iRow, 0].Font.Bold = True
  18.     GridView1[iRow, 0].Border = New Border("style:none plain none plain")
  19.     Inc GridView1.Rows.Count
  20.     Inc iRow
  21.     GridView1[iRow, 0].Text = Str(iLoop)
  22.     GridView1[iRow, 0].Font.Size = 8
  23.     GridView1[iRow, 0].Border = New Border("style:none plain plain plain")
  24.     Inc iRow
  25.   Next
  26.  
  27.  
  28. Public Sub BuildForm()
  29.  
  30.   With Me
  31.     .H = 450
  32.     .W = 450
  33.     .Arrangement = Arrange.Vertical
  34.     .Padding = 5
  35.  
  36.   With GridView1 = New GridView(Me) As "GridView1"
  37.     .Expand = True
  38.     .Columns.Count = 1
  39.     .Grid = False
  40.  


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



Gracias vuott