Descargar la Clase TSBrowse de Manuel Mercado

[mmercado]

Ricardo:

El primer problema que reportas es un bug que ya fue corregido, con respecto al segundo, necesitaría tener más detalles para poder analizarlo y, en su caso, resolverlo.

Manolo:

Deveras lo siento pero esta revisión de TSBrowse es exclusivamente para 32 bits. Yo decidí migrar y, lo hice quemando mis naves , ya no pienso regresar a 16 bits.

En el blog de José Murugosa (gracias) vamos a tratar de tener siempre la última revisión con los bugs reportados y corregidos así como con sus sugerencias cuando estas sean razonablemente realizables.

Un abrazo para todos

Manuel Mercado

[Ricardo Ramirez]

Manuel :

Dime que detalles?
Utilizo xHarbour 0.99.71 (simplex) + Fivewin 7.01

Saludos
Ricardo Ramírez!

[mantonio_08]

Manuel:

Maestro, disculpe que lo moleste, he tratado de compilar el ejemplo usando el archivo para Verce, pero nunca termina el proceso de compilacion, despues de mucho andar, debo cerrar verce, no logro encontrar el error.

Uso Fwh 7.1 , Xharbour 00.99.71

Neceito ponerlo en marcha,

Desde ya muchas gracias,

Antonio

[mmercado]

Hola Ricardo:

Dime que detalles?
Utilizo xHarbour 0.99.71 (simplex) + Fivewin 7.01

De ser posible mándame a mi correo la parte de tu código donde defines el Browse para tratar de reproducir el error.

Hola Antonio:

Uso Fwh 7.1 , Xharbour 00.99.71 Neceito ponerlo en marcha

Mi trabajo de migración a 32 bits lo inicié con FWH 7.12/xHarbour 1.1, definitivamente deberás crear la librería SBROWSEX.LIB con la versión que tú tienes y reportar aquí en el foro el resultado para ver si algunos amigos que usen la misma versión que tú pueden decirnos si tienen el mismo problema.

Saludos

Manuel Mercado

[Armando]

Manuel:

Disculpa mi ignorancia, perooo

En la versión a 16 bits tengo 13 .PRG y 3 .C

Ahora en la versión para 32 bits hay algunas diferencias comparando 32 vs 16 bits.

Me sobran RPREVIEW.PRG y TGET.PRG

Me faltan SCROLLBAR.PRG y SCROLL.C

Podrías indicarme que es lo que debo compilar para 32 bits ?

Saludos

[mmercado]

Podrías indicarme que es lo que debo compilar para 32 bits ?

PRG's
C:\TSBROWSE\SOURCE\CLASSES\TSBROWSE.PRG
C:\TSBROWSE\SOURCE\CLASSES\TSCOLUMN.PRG
C:\TSBROWSE\SOURCE\CLASSES\TSGET.PRG
C:\TSBROWSE\SOURCE\CLASSES\TSFGET.PRG
C:\TSBROWSE\SOURCE\CLASSES\TSMULTI.PRG
C:\TSBROWSE\SOURCE\CLASSES\TSCOMBO.PRG
C:\TSBROWSE\SOURCE\CLASSES\TSPOINT.PRG
C:\TSBROWSE\SOURCE\CLASSES\BTNDOWN.PRG
C:\TSBROWSE\SOURCE\CLASSES\LANG\SBMSGSPA.PRG (SBMSGSPA=ESPAÑOL)
C:\TSBROWSE\SOURCE\CLASSES\TSBTNGET.PRG

C's
C:\TSBROWSE\SOURCE\FUNCTION\TSBFUNCS.C
C:\TSBROWSE\SOURCE\FUNCTION\GETBTN.C

Las scroll bar standard de windows al parecer van bien y hacen innecesarias (la verdad no sé si alguna vez fueron necesarias, je je) las de TSBrowse.

Un abrazo.

Manuel Mercado

[Armando]

Manuel:

Gracias por la respuesta, ahora me tira un error en la línea 470 de TSBROWSE.PRG

METHOD Refresh( lPaint ) INLINE If( ::lFirstPaint == Nil .or. ::lFirstPaint, 0, ( ;
::nLen := If( ::lIsDbf, ( ::cAlias )->Eval( ::bLogicLen ), ;
Eval( ::bLogicLen ) ), ::lNoPaint := .F., Super:Refresh( lPaint ) ) )

"Parse error at '(' "

Pero ya vamos avanzando.

Saludos

[mmercado]

ahora me tira un error en la línea 470 de TSBROWSE.PRG

Armando:
Bájate la última revisión del Blog de José Murugosa ese error ya fue corregido.

Saludos.

Manuel Mercado

[horacio]

Manuel,
Antes que nada quisiera felicitarte por esta clase y la clase tsbutton, y sobre todo que hayas decidido compartirlo con todo el foro, habla mucho de tu calidad de persona y tu generosidad. Posiblemente lo que te plantee sea una tonteria y estás en tu derecho de mandarme a freir churros. Cuando mantengo presionado la tecla down ( flecha abajo ) solamente corre el registro seleccionado y recién cuando llega al final se refresca la tabla y se muestran los registros actuales. lo mismo sucede cuando voy hacia el principio de la tabla. En versiones anteriores esto no ocurria. No es un bug, solo una cuestión de estética. nuevamente muchas gracias