https://foro.gambas-es.org/viewtopic.php?f=1&t=5002&p=28990#p28990
-----------------------------------
Shell
Viernes, 27 Noviembre 2015, 13:55

Re: Evento Data, Colorear Celdas Y Ver Texto
-----------------------------------
Hice un pequeño cambio y ha funcionado, pero "el reloj" se muestra cuando cambio el tamaño de alguna de las columnas.  ( Son muchos registros )
Tengo que probar tu método, Jorge. Creo que es algo más lento.

Lo que he cambiado en el evento Data fue grdTabla[row][colum] por grdTabla.Data.BackGround .
La verdad es que es rápido.

[code linenumbers=false syntax=gambas]
Public Sub grdTabla_Data(Row As Integer, Column As Integer)

  Dim camposactuales As String[]  
  Dim f As New Font
  
  camposactuales = Split(registros[row], "::", "", True)
  camposactuales.Remove(0)
  camposactuales.Remove(camposactuales.Length - 1)
    
  If grdTabla.Columns[column].Width < f.TextWidth(camposactuales[column]) Then
    grdTabla.Columns[column].Width = f.TextWidth(camposactuales[column])
  Endif
 
 
  If row Mod 2 = 0 Then
    grdTabla.Data.Background = Color.White    
  Else
    grdTabla.Data.Background = Color.LightBackground    
  Endif  

  grdTabla.Data.Text = camposactuales[column] 
    
End[/code]

Lo cierto es que se muestra el texto y los colores

 [img]http://foro.gambas-es.org/files/images/768/muestra.png[/img] 

Esta forma de hacerlo lo he visto con una base de datos. Adjunto lo principal.
[code linenumbers=false syntax=gambas]
Public Sub Form_Activate()

  'Cambia el contador de filas del gridview de 0 al numero de registros
  'Esto maneja el Trigger del evento del manejador Data
  GridView1.Rows.Count = $res.Count

End


Public Sub GridView1_Data(Row As Integer, Column As Integer)

  $res.MoveTo(Row)
  GridView1.Data.Text = Str($res[GridView1.Columns[Column].Text])

End
[/code]

En el propio evento Data se actualiza que registro quiero ver y me muestra cada campo que voy a mostrar.

Saludos


