Pintar linea seleccionada en color que desee

//.: PARA PINTAR EN AMARILLO O EN EL COLOR Q QUIERA LA LINEA DONDE SE HAGA CLICK
//.: PONER ESTE CODIGO EN EL EVENTO CLICKED
OPCION 1
LONG  ll_row
if row > 0 then
    ii_drag_row = row    
    ll_row = This.find("marcar > 0 ", 1 , This.Rowcount())
    if ll_row > 0 then This.Setitem(ll_row, 'marcar', 0)
    This.SetRowFocusIndicator(hand!)// manito marcador
    This.Setitem(row,'marcar',1)
    This.Drag(Begin!)
    Describe("DataWindow.FirstRowOnPage")
end if
OPCION 2
integer li_flag
this.accepttext( )
li_flag=this.object.marca[ row ]
if li_flag = 0   then  this.object.marca[row ]=1  else  this.object.marca[row] = 0

PREVIAMENTE PONER EN EL SELECT DEL DATA WINDOW
0 MARCAR
EJEMPLO
SELECT C,B,N, 0 MARCAR
 FROM A
WHERE XXXXX

OPCION 3
if this.isselected(row) then
    this.SelectRow ( row, false)
else
    this.SelectRow ( row, TRUE )   
end if