Siguiente objetivo: Por que la barra de scroll no funciona ?

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Siguiente objetivo: Por que la barra de scroll no funciona ?
Posted: Thu Aug 14, 2014 10:09 PM

Necesitamos que la barra de scroll derecha funcione correctamente.

Venga, vamos a intentar solucionar esto ahora :-)

Gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Siguiente objetivo: Por que la barra de scroll no funciona ?
Posted: Fri Aug 15, 2014 08:51 AM

Quita la claúsula HSCROLL en la creación de la ventana
Ahora falta ajustar el salto ya que baja la posicion de los items.

https://navarro_cristobal@bitbucket.org ... ort_n1.git

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Siguiente objetivo: Por que la barra de scroll no funciona ?
Posted: Fri Aug 15, 2014 09:55 AM

Cristobal,

Muchisimas gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Siguiente objetivo: Por que la barra de scroll no funciona ?
Posted: Fri Aug 15, 2014 05:17 PM

Antonio, creo que la function SetScrollBar debería quedar de momento asi

Code (fw): Select all Collapse

FUNCTION SetScrollBar()

   LOCAL oVScroll
   LOCAL nPageZugabe := 392

   if !empty( oMainWnd:oWndClient:oVScroll )
   oMainWnd:oWndClient:oVScroll:SetRange( 0, 100 )
   //oMainWnd:oWndClient:SetRange( 0, nTotalHeight )

   oMainWnd:oWndClient:oVScroll:bGoUp     = {|| ScrollVertical( .T. ) }
   oMainWnd:oWndClient:oVScroll:bGoDown   = {|| ScrollVertical( , .T. ) }
   oMainWnd:oWndClient:oVScroll:bPageUp   = {|| ScrollVertical( ,, .T. ) }
   oMainWnd:oWndClient:oVScroll:bPageDown = {|| ScrollVertical( ,,, .T. ) }
   oMainWnd:oWndClient:oVScroll:bPos      = {| nWert | ScrollVertical( ,,,, .T., nWert ) }
   oMainWnd:oWndClient:oVScroll:nPgStep   = nPageZugabe   //392

   oMainWnd:oWndClient:oVScroll:SetPos(0)
   endif

   if !empty( oMainWnd:oWndClient:oHScroll )
   oMainWnd:oWndClient:oHScroll:SetRange( 0, 100 )
   //oMainWnd:oWndClient:SetRange( 0, nTotalWidth )

   oMainWnd:oWndClient:oHScroll:bGoUp     = {|| ScrollHorizont( .T. ) }
   oMainWnd:oWndClient:oHScroll:bGoDown   = {|| ScrollHorizont( , .T. ) }
   oMainWnd:oWndClient:oHScroll:bPageUp   = {|| ScrollHorizont( ,, .T. ) }
   oMainWnd:oWndClient:oHScroll:bPageDown = {|| ScrollHorizont( ,,, .T. ) }
   oMainWnd:oWndClient:oHScroll:bPos      = {| nWert | ScrollHorizont( ,,,, .T., nWert ) }
   oMainWnd:oWndClient:oHScroll:nPgStep   = 602

   oMainWnd:oWndClient:oHScroll:SetPos(0)
   endif
RETURN (.T.)

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion