FoxPro/Visual FoxPro - BROWSE CON REGISTRO ACTUAL DE OTRO COLOR

Hola Compañeros, un saludo a todos.
Mi consulta es si en un browse puedo resaltar el registro corriente con otro color. Esto lo sé hacer en un grid con la propiedad "afterrowcolchange" pero la aplicacion que estoy cambiando solo muestra un browse de una tabla en una ventana especifica.
Trabajo con VFP 6.0 y WinXP
Gracias de antemano.
Pedro

Saludos Pedrito, mira eso es facil, solo sigue lo que te explico, eso si tienes que reponderme que te funciono, de lo contrario........... nada te lo explico de nuevo, es relanando, jajaja
.

Mira es facil

Create una forma y dentro de esa forma pones un grid con datasorce q_ejemplo1

en el Load de la forma pones esto

Create table c:\q_ejemplo1.dbf free(codigo N(6,0), nombre C(30), sta L)

codigo numerio de 6 cero decimales, Nombre de 30 caracteres y sta de tipo Logica.

Con tres columnas

1) codigo, 2)nombre y 30 sta

Tres colunas


Luego en un boton, en el evento click pones esto:

Create una tabla con 2 campos , codigo, nombre

y metelelos en una tabla que se llame q_ejemplo.dbf

Ej:

Select codigo, nombre;
from empleados;
into table c:\q_ejemplo.ebf

ALTER TABLE q_ejemplo ADD COLUMN sta L

Luego le pondras un campo tipo L a la tabla que se llame sta (status)

ALTER TABLE q_ejemplo ADD COLUMN sta l

OJo empleados tiene que ser = en los campos de la tabla del load codigo , nombre OK.

Select q_empleados1
Zap

append from c:\q_ejemplo

1) En el evento (Init) del grid1 ponle esto

oGrd = THISFORM.grid1
oGrd.SetAll("dynamicbackcolor", "", "Column")

oGrd.SetAll("dynamicbackcolor", ;
"IIF(q_ejemplo.sta, RGB(255,255,0), RGB(255,255,255))", "Column")

thisform.grid1.Column3.AddObject("chk1", "checkbox")
THisform.grid1.Column3.CurrentControl="chk1"
thisform.grid1.Column3.chk1.Visible =.t.
thisform.grid1.Column3.Sparse =.f.
thisform.grid1.Column3.chk1.caption =' '

2) En el evento AfterRowColChange le pones esto:

replace q_ejemplo.sta with .t.

Thisform.Grid1.Refresh()


3) Y en el Evento BeforeRowColChange le pones esto

Replace q_ejemplo.sta with .f.

Thisform.Grid1.Refresh()

Respondeme que se que te funcionara

PD:
El costo de esto es una botella de JW etiqueta azul.
Jajjajajajjaj, es broma

Att.

Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.