Bug xBrowse (FWH811)

[Mike Serra]

Buenas Antonio, creo que el metodo KeyChar cuando pulsamos intro en un browse sin arbol asignado da error de oTreeItem no tiene metodo oTree.

Code: Select all  Expand view

case nKey == VK_RETURN
         oCol := ::SelectedCol()
         if oCol:nEditType > 0
            if oCol:oEditGet == nil
               if oCol:bEditWhen == nil .or. Eval( oCol:bEditWhen, oCol )
                  return oCol:Edit()
               endif
            else
               PostMessage( oCol:oEditGet:hWnd, WM_KEYDOWN, nKey )   //VK_RETURN )
            endif
         else
             If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
        endif


la linea:

Code: Select all  Expand view

  If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)


la he sustituido por :

Code: Select all  Expand view

IF ::oTreeItem!=nil
                If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
            End if


A ver si puedes revisarlo, Gracias.

[Antonio Linares]

Mike,

Si, es correcto el cambio.

Muchas gracias!

[Biel EA6DD]

Antonio, podrias poner el cambio en la lib, es para no tener que modificar e incluir xBrowse.prg en los proyectos.

[artu01]

Antonio / Gente del foro:
Estoy haciendo mis pininos con xbrowse pero me encuentro con este error que buscando en este foro ya fue resuelto
he intentado incluir xbrowse.prg (con la modif. de abajo) en mi bat pero no compila
Podrian enviarme la lib Fivehx.lib ó la FiveHC.lib o enviarme el link de donde bajarlo
Gracias

Buenas Antonio, creo que el metodo KeyChar cuando pulsamos intro en un browse sin arbol asignado da error de oTreeItem no tiene metodo oTree.

Code: Select all  Expand view

case nKey == VK_RETURN
oCol := ::SelectedCol()
if oCol:nEditType > 0
if oCol:oEditGet == nil
if oCol:bEditWhen == nil .or. Eval( oCol:bEditWhen, oCol )
return oCol:Edit()
endif
else
PostMessage( oCol:oEditGet:hWnd, WM_KEYDOWN, nKey ) //VK_RETURN )
endif
else
If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
endif
 

la linea:

Code: Select all  Expand view

If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
 

la he sustituido por :

Code: Select all  Expand view

IF ::oTreeItem!=nil
If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
End if
 

A ver si puedes revisarlo, Gracias.

[artu01]

Ya encontre cual era mi problema
en mi rmk puse

PRG = \
...
xbrowse.prg \ Cuando debio ser xbrowse.PRG \

Sugerencia:
SI ES POSIBLE, que los parches a las versiones antiguas de FWH las lib esten disponibles.

Gracias