Page 1 of 1
HScroll y VSroll con tsBrowse
Posted:
Wed Aug 21, 2013 10:19 pm
by 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?
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 3:04 am
by carlos vargas
Noé, usas tsbrowse desde recursos?
salu2
carlos Vargas
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 4:01 am
by 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?
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 4:10 am
by 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
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
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 4:24 am
by carlos vargas
http://www.donboscocorp.com/carlos/libsbrowse.zipincluye:
proyecto xmate
lib para xharbour
lib para harbour
algunas correcciones a nivel de compilación y barras verticales y horizontales
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 8:09 pm
by 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.
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 9:47 pm
by 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.
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 11:01 pm
by noe aburto
Ok, verificando. Para no tener detalles de pcode las recompilare y probare.
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 11:12 pm
by carlos vargas
okis, me comentas por favor.
salu2
Re: HScroll y VSroll con tsBrowse
Posted:
Fri Aug 23, 2013 11:36 pm
by 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
Re: HScroll y VSroll con tsBrowse
Posted:
Sat Aug 24, 2013 2:07 pm
by carlos vargas
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