Urgente wBrowser

[tomafa]

Saludos Amigos he estado buscando un mensaje que ya tiene tiempo que se posteo pero no lo ubico, trataba de lo siguiente.

en un ListBox (wBrowse) cuando se hacia la busqueda por letra me pintaba de un color las coicides de la busqueda, pero ya no encuentro el mensaje espero me puedan ayudar.

gracias

Antonio Diaz

[Ariel]

Antonio,

No sé si es esto lo que buscas, espero te sirva :


REDEFINE LISTBOX oBrw;
FIELDS;
ID 108 ;
OF oDlg;
FONT oFont;
ALIAS oSek:cAlias ;
COLOR CLR_BLACK, RGB( 255, 255, 235) ;
UPDATE

oBrw:bLine := bFields
oBrw:aHeaders := aHeaders
if aSize # NIL
oBrw:aColSizes := aSize
endif
if nFreeze # NIL
oBrw:nFreeze := nFreeze
endif
oBrw:aJustify := aJusto

REDEFINE SAY oSay VAR oBrw:cBuffer ID 64 OF oDlg FONT oFONT UPDATE

oBrw:bSeek := {|| oBrw:DbfSeek(.T.,,,, oBrw:cBuffer ) }
oBrw:bUpdateBuffer:= {|| oSay:Refresh() }




Salu2, Ariel.

[tomafa]

Gracias por tu Respuesta, es mas el ejemplo es perfecto pero la busqueda la hacia con una funcion en donde cada vez que yo ingresaba una letra este marcaba las ciocidencias en esa busqueda mas o menos asi:

REDEFINE LISTBOX oBrw ;
FIELDS ;
ID 102 ;
OF oDlgS ;
UPDATE ALIAS ntUser:cAlias

oBrw:bKeyDown := {|nKey| oSelKey( nKey, oDlg ) }

STATIC FUNC oSelKey( nKey, oDlg )
aqui es donde se hace la busqueda pero no me acuerdo como cambiar el color de los elementos
return nil

Antonio Díaz