ScrollBar

[Paco Garcia]

Hola

¿Alguien sabe como cambiar el tamaño del botón deslizante del scrollBar?

Un saludo

[Antonio Linares]

Paco,

Descomenta estas líneas en la clase TScrollBar:

Code: Select all  Expand view  RUN

METHOD SetPage( nSize, lReDraw ) CLASS TScrollBar

/*
   local nFlags

   DEFAULT lRedraw := .f.

   if ! Empty( ::hWnd )
      nFlags = SB_CTL
   else
      if ::lVertical
         nFlags = SB_VERT
      else
         nFlags = SB_HORZ
      endif
   endif
   SetScrollInfo( If( ! Empty( ::hWnd ), ::hWnd, ::oWnd:hWnd ),;
                  nFlags, nSize, lReDraw )
*/

return nil