FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Pocket PC How to switch off VScroll?
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

How to switch off VScroll?

Posted: Sat Nov 15, 2008 10:06 PM

lVScroll is not workting.
Regards,
Otto

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

How to switch off VScroll?

Posted: Sat Nov 15, 2008 11:29 PM

Otto,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

How to switch off VScroll?

Posted: Sun Nov 16, 2008 08: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

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

//----------------------------------------------------------------------------//
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

How to switch off VScroll?

Posted: Sun Nov 16, 2008 09: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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

How to switch off VScroll?

Posted: Sun Nov 16, 2008 07:08 PM

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

Continue the discussion