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

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

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 41211
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby cnavarro » Fri Aug 15, 2014 8: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby Antonio Linares » Fri Aug 15, 2014 9:55 am

Cristobal,

Muchisimas gracias :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41211
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby cnavarro » Fri Aug 15, 2014 5:17 pm

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

Code: Select all  Expand view

FUNCTION SetScrollBar()

   LOCAL oVScroll
   LOCAL nPageZugabe := 392

   if !empty( oMainWnd:oWndClient:oVScroll )
   oMainWnd:oWndClient:oVScroll:SetRange( 0, 100 )
   //oMainWnd:oWndClient:oVScroll: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:oHScroll: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to EasyReport, EasyDialog y EasyPreview

Who is online

Users browsing this forum: No registered users and 9 guests