Actualizar XBrowse (duda)

Actualizar XBrowse (duda)

Postby jfafive » Mon Aug 25, 2008 11:06 am

Hola otra vez,

Perdón por mi insistencia, pero soy de esos que casi nunca preguntan. Pero cuando preguntan, no paran. :wink:

El caso es que tengo un XBrowse que muestra un array, así:

Code: Select all  Expand view  RUN
REDEFINE XBROWSE oBrw  ARRAY aDatos  ID ID_BRW  OF oTab:aDialogs[1] AUTOCOLS


Cuando actualizo los datos del array, el browse refleja los cambios sin problema:

Code: Select all  Expand view  RUN
.... actualizo la lista del array ...
oBrw:SetArray( aDatos )
oBrw:Refresh()


El problema, es que cuando trabajo con SetTree, la aplicación da un error de acceso a array:

Code: Select all  Expand view  RUN
oBrw:SetArray( aDatos )
oBrw:SetTree( nil, { "CLOSE", "OPEN", "TXTMIN" } )
oBrw:Refresh()


... y no se de que puede ser. He comprobado el array y está correcto. Tambien he intentado solventarlo destruyendo el browse y volviendo a crearlo, oBrw:End(), oBrw:CreateFromResource(...)
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby Antonio Linares » Mon Aug 25, 2008 3:08 pm

Javier,

Puedes proporcionar un ejemplo pequeño y autocontenido para reproducir el error aqui ? gracias
regards, saludos

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

Postby jfafive » Mon Aug 25, 2008 4:36 pm

Antonio,

te lo envio por email.
La prueba es un browse con dos botones.
Uno carga el array en el borse y el otro lo descarga (mejor dicho lo intenta)

Un saludo
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby Antonio Linares » Tue Aug 26, 2008 7:55 am

Javier,

Solo tienes que quitar la llamada a oBrw:GoTop() y aqui está funcionando bien :-)
regards, saludos

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

Postby jfafive » Tue Aug 26, 2008 8:33 am

Antonio,

¿has desplegado el tree, haciendo doble click sobre la primera linea?

A mi me da un error si despliego el settree y luego pulso vaciar array.

:shock:

Code: Select all  Expand view  RUN
Application
===========
   Path and name: C:\TMP\PRUEBA\PRUEBA.EXE (32 bits)
   Size: 1,554,944 bytes
   Time from start: 0 hours 0 mins 12 secs
   Error occurred at: 08/26/08, 10:33:24
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... }
     [   2] = N   2
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby Antonio Linares » Tue Aug 26, 2008 9:00 am

Javier,

Desde aqui puedes descargar el EXE:
http://rapidshare.com/files/140193147/Javier.zip.html

Quizá se deba a los cambios que hemos realizado en la Clase TXBrowse en las últimas versiones.

Pruébalo y si te funciona bien, te indicamos que tienes que cambiar, gracias.
regards, saludos

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

Postby jfafive » Tue Aug 26, 2008 10:46 am

Valla!

Pues si que funciona el exe que me he bajado.

Entonces ya no se que decir. :?

¿Alguna indicación?
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby Antonio Linares » Tue Aug 26, 2008 12:31 pm

Javier,

Te enviamos un email con unos cambios que tienes que hacer :-)
regards, saludos

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

Postby jfafive » Tue Aug 26, 2008 2:51 pm

Gracias Antonio,

Cuando compile el xbrowse.prg, tendré que actualizar la libreria.

Yo utilizo el TLIB.EXE, supongo que servirá.
Y supongo que será el modulo FIVEH.LIB el que hay que actualizar
¿no?
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby jfafive » Wed Aug 27, 2008 8:20 am

Hola Antonio,

He probado enlazando el XBROWSE.OBJ a FIVEH.LIB y tambien lo he probado solo con el XBROWSE.OBJ, pero me da un error al enlazar el ejemplo.

Code: Select all  Expand view  RUN
┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Harbour 8.04 - Apr. 2008            Harbour development power  │▄
│ (c) FiveTech, 1993-2008    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour devel build 1.1-1 Intl.
Copyright (c) 1999-2007, http://www.harbour-project.org/
Compiling 'xbrowse.prg' and generating preprocessed output to 'xbrowse.ppo'...
Lines 12212, Functions/Procedures 163
Generating C source output to 'xbrowse.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
xbrowse.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_WHEELSCROLL' referenced from C:\FWH\SAMPLES\XBROWSE.OBJ
Error: Unresolved external '_HB_FUN_CVALTOSTR' referenced from C:\FWH\SAMPLES\XBROWSE.OBJ
Error: Unresolved external '_HB_FUN_GRADIENTFILL' referenced from C:\FWH\SAMPLES\XBROWSE.OBJ
* There are errors

C:\FWH\samples>


Perdona la insistencia.
Un saludo.
:wink:
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella

Postby Antonio Linares » Wed Aug 27, 2008 8:36 am

Javier,

Prueba a definir estas funciones en tu PRG:

function WheelScroll() ; return 1

function cValToStr( u ) ; return cValToChar( u )

function GradientFill() ; return nil
regards, saludos

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

Postby jfafive » Wed Aug 27, 2008 9:33 am

Gracias Antonio.
Ya funciona.
:D
jfafive
 
Posts: 396
Joined: Tue Mar 18, 2008 9:41 pm
Location: Marbella


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 60 guests