Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating Irregular Shapes
Message
From
16/04/2008 23:03:37
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:
01311350
Views:
31
I ran your code and it works great. I put it in the init of my form and it does not display the shape. It will have to wait until the morning.

>
>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?
>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform