Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating Irregular Shapes
Message
 
 
To
16/04/2008 22:41: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:
01311349
Views:
25
Yes, you've to close shape by repeating the first coordinate at the end.

>Nevermind, I just saw your other post...
>
>>See PolyPoints property of the shape control
>
>I'm doing this in the INIT of the class form, but the shape never appears when the form instantiates.
>
>
>LOCAL ARRAY laShapePoints[8,2]
>
>laShapePoints[1,1] = 50
>laShapePoints[1,2] = 5
>laShapePoints[2,1] = 400
>laShapePoints[2,2] = 5
>laShapePoints[3,1] = 420
>laShapePoints[3,2] = 25
>laShapePoints[4,1] = 420
>laShapePoints[4,2] = 100
>laShapePoints[5,1] = 400
>laShapePoints[5,2] = 120
>laShapePoints[6,1] = 50
>laShapePoints[6,2] = 120
>laShapePoints[7,1] = 30
>laShapePoints[7,2] = 100
>laShapePoints[8,1] = 30
>laShapePoints[8,2] = 25
>
>THIS.ADDOBJECT("shpBackground", "shape")
>THIS.shpBackGround.PolyPoints = "laShapePoints"
>THIS.shpBackGround.BackColor = RGB(171,250,173)
>THIS.shpBackGround.zOrder(1)
>THIS.shpBackGround.Visible = .T.
>
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform