LISTBOX versus TXBROWSE

[Manuel Aranda]

Voy avanzando en el paso de FW a FWH. He llegado a los browses y he probado el XBrowse. Desde luego no hay color en cuanto a estética, pero me estoy encontrando algún problema que otro. Por ejemplo:

oLbx:bKeydown:={|nKey|BUSCATECLA(nKey,oLbx,oBtn7,cAnMes,nSerie,nRango),;
ValidaAnMes(cAnMes,oBtnNuevo,oBtnModificar,oBtnBorrar,;
oBtnImprimir) }

va perfecta con LISTBOX. La función ValidaAnMes() activa/desactiva algunos botones según ciertos valores de cada registro. Con Xbrowse no tiene efecto alguno. En cambio, esta misma función se ejecuta desde otro control (un Combobox) y va perfecta, lo que me hace pensar que es cosa de bKeydown, que seguro que algo estaré haciendo mal.

Un saludo,
Manuel

[Antonio Linares]

Manuel,

Añade estas líneas al comienzo del método KeyDown():

Code: Select all  Expand view  RUN

METHOD KeyDown( nKey, nFlags ) CLASS TXBrowse

   if ::bKeyDown != nil
      Eval( ::bKeyDown, nKey, nFlags )
   endif   

   ...