Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Relationship between PolyPoints and Height/Width
Message
From
17/04/2008 11:23:40
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Relationship between PolyPoints and Height/Width
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01311455
Message ID:
01311455
Views:
80
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)
Next
Reply
Map
View

Click here to load this message in the networking platform