Control Grid iluminado
Hola. si alguien puede decirme como puedo hacer para que en un control grid se resalte justo la fila en la que estoy con otro color y cambie cuando vaya a otra fila. por favor
Laura para resaltar un grid necesitas una OCX, si queres escribime y te explico como se usa y te la envio.
No necesariamente debes utilizar un activex, lo puedes programar. ¿Como? Bueno le deben crear una propiedad al formulario donde esta el Grid. es mi caso la cree como REG, la cual toma el valor del RECNO() cuando de carga el formulario. Luego en el evento del grid AfterRowColChange colocas lo siguiente;
LPARAMETERS nColIndex
ThisForm.reg = RECNO()
ThisForm.LockScreen = .T.
cDynamic_fondo = 'IIF(RECNO() = ThisForm.reg, RGB(0,0,128), RGB(255,255,255))'
cDynamic_letras = 'IIF(RECNO() = ThisForm.reg, RGB(255,255,255), RGB(0,0,0))'
This.SetAll('DynamicBackColor', cDynamic_fondo, 'Column')
This.SetAll('DynamicForeColor', cDynamic_letras, 'Column')
This.Refresh
ThisForm.LockScreen = .F.
Espero que le funcione las demás cosas son cuention de colocar su estilo de programación.
LPARAMETERS nColIndex
ThisForm.reg = RECNO()
ThisForm.LockScreen = .T.
cDynamic_fondo = 'IIF(RECNO() = ThisForm.reg, RGB(0,0,128), RGB(255,255,255))'
cDynamic_letras = 'IIF(RECNO() = ThisForm.reg, RGB(255,255,255), RGB(0,0,0))'
This.SetAll('DynamicBackColor', cDynamic_fondo, 'Column')
This.SetAll('DynamicForeColor', cDynamic_letras, 'Column')
This.Refresh
ThisForm.LockScreen = .F.
Espero que le funcione las demás cosas son cuention de colocar su estilo de programación.
