Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to use forms scrollbars !!!
Message
De
24/02/2004 05:56:40
Dorin Vasilescu
ALL Trans Romania
Arad, Roumanie
 
 
À
23/02/2004 18:32:47
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00880114
Message ID:
00880198
Vues:
21
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform