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

[Antonio Linares]

Necesitamos que la barra de scroll derecha funcione correctamente.

Venga, vamos a intentar solucionar esto ahora

Gracias!

[cnavarro]

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

[Antonio Linares]

Cristobal,

Muchisimas gracias

[cnavarro]

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

Code: Select all

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.)