VSCROLL en WBROWSE

[Juan Planelles]

Hola, ¿como estais?, soy Juan Planelles.

Con FWH 10.2 (y FWH 9.11) WBROWSE muestra la barra de VSCROLL inactiva (listado de 6000 registros) y no se como activarla. Es una ventana muy elaborada desde hace años que interesa conservar su aspecto por lo que me va mal pasar a XBROWSE, pero con la barra de scroll vertical inactiva está incorrecta.

Siempre que participo es para pedir ayuda, nunca dar, por mi limitada preparación. Disculpadme y gracias.

- Juan -

[Ramon Paredes]

Juan :

Ya probaste los metodos ;

oLbx:Vscroll(.T.)
oLbx:Hscroll(.T.)

Saludos desde Managua, Nicaragua

Ramon Paredes

[Juan Planelles]

Ramón, los he vuelto a probar pero no funciona.

Gracias por el consejo, saludos, - Juan -

[Juan Planelles]

He comprobado que en el ejecutable obtenido en FW 8.10 funcionan perfectamente tanto VScroll como HScroll, y me parece que el WBrowse.Prg es igual al que tengo en uso, entonces: ¿puede haber algún fallo de instalación o del bat de compilación?. Me vendría muy bien recuperar los scroll por razón de "presencia" ya que el listado funciona normal pero la "imperfección" resulta evidente.

Sr. Dn. Antonio Linares, si me lees dime opinión, por favor.

Gracias, saludos, - Juan -

[surGom]

Hola Juan, a mi me pasó algo parecido yo hago el rc con workshop y no me había dado cuenta y tenía definido este diálogo con listbox propio del workshop, lo cambié por twbrowse de fwctrl y funcionó perfecto.


Luis

[Juan Planelles]

Hola Luis:

Está definido con TWBROWSE de FWH, pero debe haber algo incorrecto de compilación o en la instalación, habrá que dar con ello. En FWH 9.11 iba normal.

Gracias por la ayuda, saludos, - Juan -

[Antonio Linares]

Hola Juan,

El browse lo defines en un diálogo de recursos ?

En caso afirmativo, lo defines como "TWBROWSE" ?

[Juan Planelles]

Hola Antonio:

Gracias por tu ayuda.

Sin recursos. Lo defino directamente desde código dentro de un diálogo. He probado de las dos maneras siguientes:

1) oLbx := TWBrowse():New( 5, 2, aCoors[ 5 ], aCoors[ 6 ] )

2) @ 5, 2 LISTBOX oLbx FIELDS ;
SIZE aCoors[ 5 ], aCoors[ 6 ] OF oDlg

y en las dos sale igual, aunque hasta FWH 9.11 usando la 2ª (que viene de hace 15 años) nunca hubo que tocar el código y las Scroll se mostraban bien. Ahora el desplazamiento horizontal y vertical entre las celdas es normal, solo que no muestra la barra horizontal y la vertical deseleccionada, y además no puedo o no se eliminarla como último recurso.

Si compilo el BROWSE.PRG de ..\source\function sale bien la barra horizontal pero la vertical lo mismo que antes; por eso pienso en la instalación que recordarás la hice con dificultades y que necesité toda tu ayuda.

Funcionalmente no es importante, solo la estética de una VScroll inactivada.

Gracias, saludos, - Juan -

[Juan Planelles]

Antonio, perdón, en mi respuesta donde digo FWH 9.11 debí poner FWH 8.10

La 9.11 es la que tengo en uso con el fallo indicado que no se producía en 8.10

Aunque bajé la 10.2 no la instalé por temor a hacerlo mal, ya se actualizará mas adelante.

Saludos, - juan -

[Juan Planelles]

Funciona el VScroll llamando a una utilidad que en su día bajé del Foro:

// FileName : SCROLL.PRG
// Purpose : dialog Scroll Class
// Author : Eric Yang
// Update History :
// Date Contents
// ---------- ---------------------------------------------------------------
// 1997.02.01

Ésta clase fuerza la activación del vscroll. Los motivos del fallo deben tener relación con que el Tbrowse está en una WINDOW no en un DIALOG, y la cual window va sin scroll, y seguramente habrá alguna otra definición por algún sitio que no localizo.
Pero así funciona y no tengo que tocar código ninguno.

Gracias Eric por tu aportación, a todos y a D. Antonio Linares. Saludos: - Juan -

[Antonio Linares]

Juan,

Puedes probar FWH\samples\browse.prg ?

Acabo de probarla con FWH 10.5 y aparecen ambas barras de scroll y ambas funcionan bien

[Juan Planelles]

Hola Antonio, lo hago y sale bien la barra horizontal pero la vertical inactiva.

No se como enviarte la imagen JPG que tengo la captura de la compilación. ¿Te la envío por e-mail?.

Espera, tengo que volver a probarlo, que la lista es mas corta que la ventana y a lo mejor es por eso. Ahora lo compruebo y regreso.

He copiado clientes.dbf a customer.dbf que es la base usada en Browse.prg y ocupa mas de una página de ventana y salen las dos barras pero ambas inactivas.

¿Te vale así?

Gracias por tu amabilidad y saludos, - Juan -

[Antonio Linares]

Juan,

Posiblemente se trate de algún error que había en la Clase TWBrowse en la versión 9.11 y que se ha corregido posteriormente.

Vamos a comparar ambas versiones, 9.11 y 10.5, a ver si localizamos el error y como se arregló

[Juan Planelles]

Antonio:

Te deseo que tengas un feliz día del Santo de tu nombre.

Saludos, - Juan -

Antonio te respondo aquí, que la pagina no me admite mas ventanas.
Lo mismo compilando como un prg mas de la aplicación que copiandolo en el prg, sale que falta algo relacionado con "Extern DBSKIP", y me da:

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
WBROWSE.c:
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
wocul3.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN___DBSKIPPER' referenced from C:\FWH\SAMPLES\WBROWSE.OBJ
* Linking errors *

[Antonio Linares]

Juan,

gracias

Te envio por email el fichero wbrowse.prg más reciente. Prueba a compilarlo y a enlazarlo como otro PRG más de tu aplicación y veamos si asi se soluciona, gracias