Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to use forms scrollbars !!!
Message
From
24/02/2004 05:56:40
Dorin Vasilescu
ALL Trans Romania
Arad, Romania
 
 
To
23/02/2004 18:32:47
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00880114
Message ID:
00880198
Views:
20
Hi
The following will scroll automatically the form up or down if the object with focus is in non-visible area.
But it needs to be in every base class (for me this means a subclass of VFP bas class) When or GotFocus code
IF this.Tag = 'isfirst'
	thisform.ViewPortTop = 0
	return
ENDIF 
IF OBJTOCLIENT(this,1) < thisform.ViewPortTop 
	thisform.SetViewPort(0,OBJTOCLIENT(this,1)- 8 )
ENDIF
IF OBJTOCLIENT(this,1)+this.Height > thisform.ViewPortTop + thisform.ViewPortHeight 
	thisform.SetViewPort(0,OBJTOCLIENT(this,1)+this.Height + 8 -thisform.ViewPortHeight)
ENDIF 
>Hi,
>
>It's there anybody who use a form with scrollbars????? How works????
>
>Thank you for your advice & sorry for my english
>
>Edmundo Ríos Miranda
Previous
Reply
Map
View

Click here to load this message in the networking platform