https://foro.gambas-es.org/viewtopic.php?f=1&t=5002&p=28985#p28985
-----------------------------------
Shell
Viernes, 27 Noviembre 2015, 10:11

Re: Evento Data, Colorear Celdas Y Ver Texto
-----------------------------------
Jesús:

No, por equipo o tarjeta lenta no es. Algo tengo que estar haciendo mal.

Lo que muestro es un archivo de texto que tiene mas de 30k lineas de registros en un gridview.
No estoy muy puesto en el uso del evento Data, para ser la primera vez logré lo que quería hacer, pero tengo el problema de los colores.
No estoy leyendo de un base de datos, es un archivo de texto con un array. 

Al principio lo que hacía era que mostraba todas los registros en el gridview, pero aquello era algo lento.
Este es el código de la parte que muestra el contenido con el evento Data.

Como el número de campos que me interesa es menor, eliminé algunas columnas
El número de filas es grande, bastante.

[code linenumbers=false syntax=gambas]
Public Sub Form_Activate()
  
  grdTabla.Rows.Count = numfilas 
  grdTabla.Columns.Count = numcampos - 2
    
End

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
 
  'No funciona ver las filas con colores y a la vez el texto 
  If row Mod 2 = 0 Then
    grdTabla[row, column].Background = Color.White
  Else
    grdTabla[row, column].Background = Color.LightBackground
  Endif
  
  grdTabla.Data.Text = camposactuales[column] 
    
End
[/code]

A ver que me aconsejáis. Sobre todo el buen uso del evento Data.
Ya sé que debería usar una base de datos y no un archivo de texto con registros, es cosa de experimentos.  :roll: 

Los componentes en uso son:
- gb
- gb.form
- gb.gui.qt
- gb.image

Saludos


