HScroll y VSroll con tsBrowse

[noe aburto]

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?

[carlos vargas]

Noé, usas tsbrowse desde recursos?

salu2
carlos Vargas

[noe aburto]

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

[carlos vargas]

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  RUN

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

[carlos vargas]

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

[noe aburto]

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.

[carlos vargas]

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.

[noe aburto]

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

[carlos vargas]

okis, me comentas por favor.

salu2

[noe aburto]

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

[carlos vargas]

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

Code: Select all  Expand view  RUN

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

las cuales deben ser:

Code: Select all  Expand view  RUN

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

esto para que no halla problemas, por favor cambialas

salu2