FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TXBrowse desde Recursos
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

TXBrowse desde Recursos

Posted: Sat Aug 18, 2007 09:06 AM

Buenas gente!! estoy cambiando de TsBrowse a TxBrowse y hasta ahora todo bien, solo una consulta. Cuando creo un browse desde recursos, si el DBF que muestra no tiene registros no presenta el browse (es decir, ni siquiera las cabeceras de las columnas), en cambio si tiene cualquier registro ya lo muestra correctamente.
En cambio creando el mismo browse desde código esto no ocurre.

¿Alguna sugerencia?

Gracias

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

Posts: 44229
Joined: Thu Oct 06, 2005 05:47 PM

TXBrowse desde Recursos

Posted: Sat Aug 18, 2007 09:30 AM
Angel,

Comprueba que tienes este código en el método Paint() de la Clase TXBrowse:
  /*
   Paint cols data
   */

   ::lRefreshOnlyData := .f.

   if ::nLen == 0
      ::EraseData( nFirstRow  )
      ::DispEnd( aInfo )
      return nil
   endif
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 729
Joined: Fri Oct 07, 2005 07:38 AM

TXBrowse desde Recursos

Posted: Mon Aug 20, 2007 09:12 AM
En efecto, faltaba la línea

   ::DispEnd( aInfo )


Muchas gracias.

Angel Salom

Visionwin Software - https://www.visionwin.com

fwh 24.07 - harbour 3.2 - bcc 7.7

Continue the discussion