RE:Cambiar el color de un grid de los registros qu
Propiedades DynamicBackColor y DynamicForeColor
Especifica los colores del fondo y el primer plano de un objeto Column que se vuelven a evaluar en tiempo de ejecución cada vez que se actualiza el control Grid. Disponible en tiempo de diseño; de lectura-escritura en tiempo de ejecución.
Sintaxis
Columna.DynamicBackColor[ = cExpresión]
Columna.DynamicForeColor[ = cExpresión]
Valor
cExpresión Especifica una expresión entre comillas que se vuelve a evaluar en tiempo de ejecución cada vez que se actualiza el control Grid. La evaluación en tiempo de ejecución debe producir un solo valor de color.
Comentarios
Es posible utilizar las propiedades DynamicBackColor y DynamicForeColor para crear efectos especiales, como mostrar las filas impares en verde y las pares en gris.
Ejemplo de DynamicBackColor, DynamicForeColor (Propiedades)
El ejemplo siguiente utiliza la propiedad DynamicBackColor y el método SetAll para especificar los colores de fondo de los registros de un control Grid. Si el número de un registro mostrado en la cuadrícula es par, la propiedad DynamicBackColor del registro será blanca, de lo contrario DynamicBackColor será verde.
Se coloca un control Grid en un formulario, se abre la tabla cliente y sus contenidos se muestran en el Grid. La propiedad Caption se utiliza. para especificar otro título de encabezado (ID de cliente) para el campo CUST_ID. Se incluye un botón de comando en el formulario para cerrarlo.
CLOSE ALL && Cierra tablas y bases de datos
OPEN DATABASE (HOME( ) + 'samplesdata estdata')
USE customer IN 0 && Abre tabla Cliente
frmMyForm = CREATEOBJECT('Form') && Crea un Form
frmMyForm.Closable = .f. && Desactiva el cuadro de menú Control
frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && Agrega botón de comando
frmMyForm.AddObject('grdGrid1','Grid') && Agrega control Grid
frmMyForm.grdGrid1.Left = 25 && Ajusta la posición de cuadrícula
frmMyForm.grdGrid1.SetAll("DynamicBackColor", ;
"IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;
, RGB(0,255,0))", "Column") && Alterna registros blancos y verdes
frmMyForm.grdGrid1.Visible = .T. && Control Grid visible
frmMyForm.cmdCommand1.Visible =.T. && Botón de comando "Salir" visible
frmMyForm.grdGrid1.Column1.Header1.Caption = 'Id. de cliente'
frmMyForm.SHOW && Muestra el formulario
READ EVENTS && Inicia el procesamiento de eventos
DEFINE CLASS cmdMyCmdBtn AS CommandButton && Crea botón de comando
Caption = '<Salir' && Título del botón de comando
Cancel = .T. && Botón de comando Cancelar predeterminado (Esc)
Left = 125 && Columna de botón de comando
Top = 210 && Fila de botón de comando
Height = 25 && Altura de botón de comando
PROCEDURE Click
CLEAR EVENTS && Detiene procesamiento de eventos, cierra formulario
CLOSE ALL && Cierra tabla y base de datos
ENDDEFINE