topic-13788

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Bug xBrowse (FWH811)
Posted: Sun Nov 30, 2008 11:41 AM

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 Collapse

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 Collapse

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

la he sustituido por :

Code: Select all Collapse

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

A ver si puedes revisarlo, Gracias.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Bug xBrowse (FWH811)
Posted: Mon Dec 01, 2008 03:30 PM

Mike,

Si, es correcto el cambio.

Muchas gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Bug xBrowse (FWH811)
Posted: Tue Dec 16, 2008 04:48 PM

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

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: Bug xBrowse (FWH811)
Posted: Fri Dec 02, 2011 03:52 AM

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 (fw): Select all Collapse
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 (fw): Select all Collapse
If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
la he sustituido por :
Code (fw): Select all Collapse
IF ::oTreeItem!=nil
If( ::oTreeItem:oTree != nil,( ::oTreeItem:Toggle(), ::Refresh() ),)
End if
A ver si puedes revisarlo, Gracias.

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: Bug xBrowse (FWH811)
Posted: Fri Dec 02, 2011 04:07 AM

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

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

FiveTech Support Forums

Continue the discussion