Page 1 of 1

Bug xBrowse (FWH811)

Posted: Sun Nov 30, 2008 11:41 am
by 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

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

  If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
la he sustituido por :

Code: Select all

 IF ::oTreeItem!=nil
                If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
            End if
A ver si puedes revisarlo, Gracias.

Posted: Mon Dec 01, 2008 3:30 pm
by Antonio Linares
Mike,

Si, es correcto el cambio.

Muchas gracias! :-)

Posted: Tue Dec 16, 2008 4:48 pm
by Biel EA6DD
Antonio, podrias poner el cambio en la lib, es para no tener que modificar e incluir xBrowse.prg en los proyectos.

Re: Bug xBrowse (FWH811)

Posted: Fri Dec 02, 2011 3:52 am
by 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


Mike Serra wrote: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

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

If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
 
la he sustituido por :

Code: Select all

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


A ver si puedes revisarlo, Gracias.

Re: Bug xBrowse (FWH811)

Posted: Fri Dec 02, 2011 4:07 am
by 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