Buen día,
Pues, eso del asunto. ¿Se puede desactivar la búsqueda incremental en el xBrowse?.
Gracias.
Rolando
METHOD KeyChar( nKey, nFlags ) CLASS TXBrowse
.....
else
If nKey == VK_BACK .and. !Empty( ::cSeek )
::Seek( Left( ::cSeek, Len( ::cSeek ) -1 ) )
elseIf nKey > 31
// ::Seek( ::cSeek + cKey )
try //
::Seek( ::cSeek + cKey ) // reforma by rolo 07092013
catch // si no hay orden (orden 0 en oDbf)
end // no da error al querer buscar
Endif
Endif
endcase
return 0
redefine buttonbmp oBtnAgregar ;
id 4004 OF oDlg ;
action (nOrden:=indexord(),;
oDbf:SetOrder(0,".\DB\SERVICE.CDX"), oDbf:append() , ;
oBrw:setfocus() , oBrw:gobottom(),;
oRichService:settext("") , oRichService:refresh(),;
oBrw:setfocus(), oBrw:refresh(), oBrw:GoLeftMost(), __keyboard(chr(13)),;
oDbf:SetOrder(nOrden,".\DB\SERVICE.CDX") );
update ;
bitmap "AGREGANDO"
oBtnAgregar:cTooltip:="Agregar Repuesto"
oBtnAgregar:oCursor:=oCur1
redefine buttonbmp oBtnAgregar ;
id 4004 OF oDlg ;
action (nOrden:=indexord(),;
oDbf:SetOrder(0,".\DB\SERVICE.CDX"), oDbf:append() , ;
oBrw:setfocus() , oBrw:gobottom(),;
oRichService:settext("") , oRichService:refresh(),;
oBrw:setfocus(), oBrw:refresh(), oBrw:GoLeftMost(), __keyboard(chr(13)),;
oDbf:SetOrder(nOrden,".\DB\SERVICE.CDX") );
update ;
bitmap "AGREGANDO"
oBtnAgregar:cTooltip:="Agregar Repuesto"
oBtnAgregar:oCursor:=oCur1
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 76 guests