Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ScrollContainer
Message
From
25/12/2015 06:39:02
 
 
To
24/12/2015 17:44:03
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01629050
Message ID:
01629290
Views:
89
>Hi Koen
>in the scrolling container properties there is hScrollSmallChange,vScrollSmallChane,Scrollby(x,y)...
>there is 3 pageframes with SBC scrolling container in each one.
>Add 2 buttons "up" and "down" to the example form given by Alex...frmsbcsample.scx
>and bind with these codes:
>
>1*up button
>do case
>case thisform.pageframe1.activePage=1
>thisform.pageframe1.page1.SBC.hScrollSmallChange=1
>thisform.pageframe1.page1.SBC.vScrollSmallChange=1
>for i=1 to 10
>thisform.pageframe1.page1.sbc.scrollby(20,0)
>inkey(0.2)
>endfor
>
>case thisform.pageframe1.activePage=2
>thisform.pageframe1.page2.SBC.hScrollSmallChange=1
>thisform.pageframe1.page2.SBC.vScrollSmallChange=1
>for i=1 to 10
>thisform.pageframe1.page2.sbc.scrollby(0,-20)
>inkey(0.2)
>endfor
>
>case thisform.pageframe1.activePage=3
>thisform.pageframe1.page3.SBC.hScrollSmallChange=1
>thisform.pageframe1.page3.SBC.vScrollSmallChange=1
>for i=1 to 10
>thisform.pageframe1.page3.sbc.scrollby(0,20)
>inkey(0.1)
>endfor
>for i=1 to 10
>thisform.pageframe1.page3.sbc.scrollby(20,0)
>inkey(0.2)
>endfor
>endcase
>
>
>2*down button
>
>do case
>case thisform.pageframe1.activePage=1
>thisform.pageframe1.page1.SBC.hScrollSmallChange=1
>thisform.pageframe1.page1.SBC.vScrollSmallChange=1
>for i=1 to 10
>thisform.pageframe1.page1.sbc.scrollby(-20,0)
>inkey(0.1)
>endfor
>
>case thisform.pageframe1.activePage=2
>thisform.pageframe1.page2.SBC.hScrollSmallChange=1
>thisform.pageframe1.page2.SBC.vScrollSmallChange=1
>for i=1 to 10
>thisform.pageframe1.page2.sbc.scrollby(0,20)
>inkey(0.2)
>endfor
>
>case thisform.pageframe1.activePage=3
>thisform.pageframe1.page3.SBC.hScrollSmallChange=1
>thisform.pageframe1.page3.SBC.vScrollSmallChange=1
>for i=1 to 10
>thisform.pageframe1.page3.sbc.scrollby(0,-20)
>inke(0.1)
>endfor
>for i=1 to 10
>thisform.pageframe1.page3.sbc.scrollby(-20,0)
>inke(0.1)
>endfor
>endcase
>
>*can adapt the scrollBy (x,y) values to your taste.
>*can replace inkey() with sleep api (its better precision)
>
>Regards

Hi Yousfi,

The problem with this approach is that if you scroll down with the buttons you cannot use the scrollbars anymore to scroll up to the top, only way to go back to the top is to use the buttons again, I dont like that UI.

Maybe I should explain what I am looking for:
On my form I add - programmaticaly - to the clientarea a (new)container. Right now, the only way to get / see this newly added container is to use the scrollbars to go down - or in your case use the buttons.
What I am after is an UI where the newly added container on the bottom will become visible after adding, without the use of the scrollbar.

Regards,

Koen
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform