by Francisco Horta » Thu Oct 26, 2006 5:23 am
que tal manuel,
yo uso la busqueda incremental en la msgbar con la twbrowse tee paso un ejemplo de su uso, espero te sirva:
LOCAL cDefaulMsg:=""
DEFINE DIALOG oDls bla bla bla...
REDEFINE LISTBOX oBrs ;
FIELDS (oDCli)->Nombre, (oDCli)->Codigo bla bla bla ....
oBrs:bSeek := {|lRet| oBrs:DbfSeek(.T.) }
oBrs:bUpdateBuffer:= {|| UpdateBuffer( oDls:oMsgBar, ;
cDefaultMsg, oBrs:cBuffer ) }
ACTIVATE DIALOG oDls CENTERED;
ON INIT MsgBarra(oDls,cDefaultMsg)
STAT FUNCTION MsgBarra(oDls,cDefaultMsg)
SET MESSAGE OF oDls TO cDefaultMsg NOINSET
RETURN Nil
FUNCTION UpdateBuffer( oMsgBar, cDefaultMsg, cBuffer )
local nClrText:= oMsgBar:nClrText
local cMsg, oFont
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0,-10 BOLD
if Len( cBuffer ) > 0
cMsg:= "Buscando: " + upper(cBuffer)
oMsgBar:nClrText:= CLR_BLUE
oMsgBar:SetFont(oFont)
else
cMsg:= cDefaultMsg
endif
oMsgBar:SetMsg( PadR( cMsg ,200) )
oMsgBar:nClrText:= nClrText
oFont:End()
return Nil
Salu2
Paco