Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Relationship between PolyPoints and Height/Width
Message
De
17/04/2008 11:23:40
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Relationship between PolyPoints and Height/Width
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01311455
Message ID:
01311455
Vues:
81
Can anyone explain the cause and effect of changing the PolyPoints of a shape and it's Height and Width? Is there a definable relationship? See the code below and play with the values of the array and the Height/Width of the shape. It just doesn't make sense to me.
BumpX = 5
BumpY = 5

DIMENSION laShapePoints[5,2]

laShapePoints[1,1] = 0  + BumpX
laShapePoints[1,2] = 0   + BumpY

laShapePoints[2,1] = 1  - BumpX
laShapePoints[2,2] = 0   + BumpY

laShapePoints[3,1] = 1 - BumpX
laShapePoints[3,2] = 1   - BumpY

laShapePoints[4,1] = 0  + BumpX
laShapePoints[4,2] = 1   - BumpY

laShapePoints[5,1] = 0  + BumpX
laShapePoints[5,2] = 0   + BumpY

frmMyForm = CREATEOBJECT('Form')  
frmMyForm.Width = 220
frmMyForm.Height = 110

frmMyForm.AddObject('shpIrregular','Shape')  

frmMyForm.shpIrregular.Top = 0
frmMyForm.shpIrregular.Left = 0 
frmMyForm.shpIrregular.Width = 410 
frmMyForm.shpIrregular.Height = 400 
frmMyForm.shpIrregular.FillStyle = 0
frmMyForm.shpIrregular.FillColor = RGB(0, 255, 255)
frmMyForm.shpIrregular.PolyPoints = "laShapePoints"
frmMyForm.shpIrregular.Visible = .T.

frmMyForm.Show(1)
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform