How to switch off VScroll?

[Otto]

lVScroll is not workting.
Regards,
Otto

[Antonio Linares]

Otto,

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

[Otto]

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  Expand view  RUN

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

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


[Antonio Linares]

Otto,

You can always turn it off doing:

oPanel:oVScroll:SetRange( 0, 0 )

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

[Otto]

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