Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to Scroll forms
Message
De
05/01/2000 08:57:31
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
05/01/2000 08:19:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00313130
Message ID:
00313147
Vues:
26
>Hi,
>
>I have a form in VFP5 and some shapes on it. It should represent diagram or something like flowchart. I can place shapes (objects) enywhere in form even outside visible boudaries. OK thats OK and everybody knows that. Question is how to scroll form so I can move left, right, up, down to see hiden (shapes outside visible area) shapes.
>
>Anybody with solution.
>
>
>Vladimir


Vladimir,
You could contain those shapes in a container big enough to hold nonvisible parts. Container would then have mousedown, mouseup, mousemove event codes to control the "new" top, left of itself making shapes come into scenery. ie:
* Suppose you have custom form properties nCurrX and nCurrY initialized to 0
*Mouse up
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.nCurrX = 0
thisform.nCurrY = 0

*Mouse move
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1
  this.top = this.top + (nYCoord - thisform.nCurrY)
  this.left = this.left + (nXCoord - thisform.nCurrX)
  thisform.nCurrX = nXCoord
  thisform.nCurrY = nYCoord
ENDIF

*Mouse down
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1
  thisform.nCurrX = nXCoord
  thisform.nCurrY = nYCoord
ENDIF
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform