¿como puedo borrar un xbrowse?

¿como puedo borrar un xbrowse?

Postby quique » Wed Aug 20, 2008 5:08 pm

El método end no funciona correctamente con xbrowse

Code: Select all  Expand view  RUN
#INCLUDE "fivewin.CH"
#INCLUDE "xbrowse.CH"

function main
   local oWnd, oBrw, oSay
   define window oWnd
   @1,1 say osay prompt "hola"
   oSay:end()
   @3,3 xbrowse oBrw array { {1,2,3},{1,2,3} } autocols
   oBrw:createFromCode()
   oBrw:end()
   activate window oWnd
return nil
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby Antonio Linares » Wed Aug 20, 2008 5:29 pm

Quique,

Tienes que modificar el método End() de la Clase TXBrowse para que al final llame a:

return Super:End()

en vez de a:

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42111
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby quique » Wed Aug 20, 2008 5:39 pm

Gracias antonio, ya quedó
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 44 guests