Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating Irregular Shapes
Message
 
 
To
16/04/2008 22:06:32
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01311340
Message ID:
01311344
Views:
23
LOCAL ARRAY lapoints[9,2]

lapoints[1,1] = 50
lapoints[1,2] = 0

lapoints[2,1] = 400
lapoints[2,2] = 0

lapoints[3,1] = 425
lapoints[3,2] = 25

lapoints[4,1] = 425
lapoints[4,2] = 100

lapoints[5,1] = 400
lapoints[5,2] = 125

lapoints[6,1] = 50
lapoints[6,2] = 125

lapoints[7,1] = 25
lapoints[7,2] = 100

lapoints[8,1] = 25
lapoints[8,2] = 25

lapoints[9,1] = 50
lapoints[9,2] = 0

frmMyForm = CREATEOBJECT('Form')  
 
frmMyForm.AddObject('shpIrregular','Shape')  

frmMyForm.shpIrregular.Top = 25 
frmMyForm.shpIrregular.Left = 25 
frmMyForm.shpIrregular.FillStyle = 0
frmMyForm.shpIrregular.FillColor = RGB(0, 255, 255)
frmMyForm.shpIrregular.PolyPoints = "lapoints"
frmMyForm.shpIrregular.Visible = .T.

frmMyForm.Show(1)
>Is there a way to take the following array and use it to create a shape based on the X,Y coordinates?
>
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform