How to switch off VScroll?

Otto · Post by **Otto** » Sat Nov 15, 2008 10:06 pm

lVScroll is not workting.
Regards,
Otto

Post by **Antonio Linares** » Sat Nov 15, 2008 11:29 pm

Otto,

Could you please post a PRG example of what you are doing ? thanks

Otto · Post by **Otto** » Sun Nov 16, 2008 8:25 am

Hello Antonio,

I am sorry I forgot to mention the class:
It is TPanel. oVScroll seems to me as hardcoded.

Best regards,
Otto

Code: Select all

METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lPixel, nClrText, nClrBack ) CLASS TPanel
…

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self
      ::oVScroll:SetRange( 0, 100 )
   else
      ::oWnd:DefControl( Self )
   endif

return Self

//----------------------------------------------------------------------------//

Post by **Antonio Linares** » Sun Nov 16, 2008 9:48 am

Otto,

You can always turn it off doing:

oPanel:oVScroll:SetRange( 0, 0 )

Please review fwppc\samples\TestPane.prg to see the concept.

Otto · Post by **Otto** » Sun Nov 16, 2008 7:08 pm

Antonio, thank you. It is working.
Best regards,
Otto