backcolor en text
Publicado por eduardo (139 intervenciones) el 19/01/2009 00:37:45
hola:
Tengo un grid en el cual hago una busqueda interactiva en un textbox .estos dos componentes estan dentro de un form.
en el interactive del text tengo el siguiente codigo:
SET DEFAULT TO d:prueba
SET EXACT OFF
SET NEAR ON
SELECT ALUMNOS
BUSCA=UPPER(TRIM(THISFORM.TEXT1.VALUE))
SEEK BUSCA
IF FOUND()
xregist=recno()
THISFORM.GRID1.SETFOCUS
color1="RGB(128,0,255)"
thisform.Grid1.Column1.text1.backcolor=&color1 &&con esta linea quiero
cambiar el fondo
THISFORM.REFRESH
THISFORM.TEXT1.SETFOCUS
ENDIF
a medida que pongo las letras en el text el cursor se posiciona correctamente en el grid. lo que no puedo lograr es que se cambie el backcolor en el text de la primera columna del registro buscado.
desde ya gracias
Tengo un grid en el cual hago una busqueda interactiva en un textbox .estos dos componentes estan dentro de un form.
en el interactive del text tengo el siguiente codigo:
SET DEFAULT TO d:prueba
SET EXACT OFF
SET NEAR ON
SELECT ALUMNOS
BUSCA=UPPER(TRIM(THISFORM.TEXT1.VALUE))
SEEK BUSCA
IF FOUND()
xregist=recno()
THISFORM.GRID1.SETFOCUS
color1="RGB(128,0,255)"
thisform.Grid1.Column1.text1.backcolor=&color1 &&con esta linea quiero
cambiar el fondo
THISFORM.REFRESH
THISFORM.TEXT1.SETFOCUS
ENDIF
a medida que pongo las letras en el text el cursor se posiciona correctamente en el grid. lo que no puedo lograr es que se cambie el backcolor en el text de la primera columna del registro buscado.
desde ya gracias
Valora esta pregunta
0