FiveTech Software tech support forums

vaya con esto de las actualizaciones de fwh.

Con la version de tsbrowse 9.0 y fwh 8.11, xH 11, bcc55 no habia problema con la clase tsBrowse 9.0 (M. Mercado)
Todas mis libs sin ningun problema. Ahora con fwh 13.07 recompile mis prog's. y ya no me trabaja los sroll V y H.

la definicion de las barras en ambas de scroll estan de acuerdo al fwh:

::oVScroll := TScrollBar():WinNew( nMin, nMax, nPage, .T., Self )
::oHScroll := TScrollBar():WinNew( nMin, nMax, , .F., Self )

Alguien que haya resuelto este detalle?

Noé, usas tsbrowse desde recursos?

salu2
carlos Vargas

No, es directo en codigo.
Que diferencia existe entre recursos y codigo, se suponde que debe funcionar igual.
Que version estas usando de tsbrowse?

estoy revisando el código de tsbrowse y veo que hay que hacer cambios en el código c
hay muchos parámetros que deben ser hb_parnl y se esta usando hb_parni.

además no esta usando hscroll y vscroll, en el caso de resourcfed hay que definirlo en los style

Code: Select all  Expand view

DIALOG_1 DIALOG 9, 30, 387, 271
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_DLGFRAME
FONT 8, "MS Sans Serif"
{
 CONTROL "", 110, "TSBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP[b] | WS_HSCROLL | WS_VSCROLL[/b] , 7, 7, 369, 219
 PUSHBUTTON "OK", 210, 144, 235, 50, 14
}
 

cuando termine de revisar el código lo pongo aca

http://www.donboscocorp.com/carlos/libsbrowse.zip
incluye:
proyecto xmate
lib para xharbour
lib para harbour
algunas correcciones a nivel de compilación y barras verticales y horizontales

De hecho ya esta comprobado.
recompile mis apls con versiones anteriores de xh y fwh y funcionan perfecto.

No quisiera deshacerme de esta clase, es ta muy bien. tengo mis libs funcionando con ella.
Gracias, seguire buscando soluciones.

Pregunto, Noé

ya has probado con las lib del enlace que te indique en este post?, las puse anoche luego de revisar el codigo c
y hacer algunas modificaciones.
asi mismo he habilitado las scrollbar tanto horizontales como verticales, por lo que debereria funcionar.

por favor revisalo.

Ok, verificando. Para no tener detalles de pcode las recompilare y probare.

okis, me comentas por favor.

salu2

SALUDOS.

Pues en base a tu sugerencia del style, solo agrege a mi browse:

oBROWSE:nStyle := nOr( WS_CHILD, WS_BORDER, WS_VISIBLE, WS_TABSTOP, WS_HSCROLL, WS_VSCROLL )

y asunto arreglado, con los fuentes originales de tsbrowse 9.0

ya con esto quedan las barras H y V

Noé
en los fuentes originales de tsfunc.c hay llamadas como por ejemplo

Code: Select all  Expand view

   HWND hWnd        = (HWND)    hb_parni( 1 ) ;
   HDC  hDC         = (HDC)     hb_parni( 2 ) ;
 

las cuales deben ser:

Code: Select all  Expand view

   HWND hWnd        = (HWND)    hb_parnl( 1 ) ;
   HDC  hDC         = (HDC)     hb_parnl( 2 ) ;
 

esto para que no halla problemas, por favor cambialas

salu2