Daniel:
Tengo un Xbrowse con un EDIT_LISTBOX en DIALOGO, este no funciona cuando elijo un item de la lista MEDIANTE TECLADO.
En el post http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19364&p=102374&hilit=xbrowse+edit+listbox+DIALOG#p102374
vi que se hace un cambio al METHOD ShowBtnList( nKey ) de la CLASS TXBrwColumn
El siguiente codigo anula la seleccion por teclado cuando es DIALOGO:
Este deberia ser:
Yo modifique la clase y funciona bien.
Ademas, no veo que pase a otro control, despues de la edicion de la celda, como indica el problema del POST mencionado.
Por favor, podrias verificar esto???
Atentamente,
Rolando
Cochabamba, Bolivia.
Tengo un Xbrowse con un EDIT_LISTBOX en DIALOGO, este no funciona cuando elijo un item de la lista MEDIANTE TECLADO.
En el post http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19364&p=102374&hilit=xbrowse+edit+listbox+DIALOG#p102374
vi que se hace un cambio al METHOD ShowBtnList( nKey ) de la CLASS TXBrwColumn
El siguiente codigo anula la seleccion por teclado cuando es DIALOGO:
  IF ::oBrw:oWnd:IsKindOf( "TDIALOG" )
   ::oEditLbx:nDlgCode = DLGC_WANTALLKEYS
   ::oEditLbx:bKeyDown  := {|k| ::oEditLbx:nLastKey := k, nil }Este deberia ser:
  IF ::oBrw:oWnd:IsKindOf( "TDIALOG" )
   ::oEditLbx:nDlgCode = DLGC_WANTALLKEYS
  ENDIF
  ::oEditLbx:bKeyDown  := {|k| ::oEditLbx:nLastKey := k, ;
                 If( k == VK_RETURN .and. nAt > 0,  xValue := aBound[ nAt ], ),;
                 If( k == VK_RETURN .or. k == VK_ESCAPE, ::PostEdit( xValue, .t. ), ) }Yo modifique la clase y funciona bien.
Ademas, no veo que pase a otro control, despues de la edicion de la celda, como indica el problema del POST mencionado.
Por favor, podrias verificar esto???
Atentamente,
Rolando
Cochabamba, Bolivia.