Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Creating Irregular Shapes
Message
From
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:
01311346
Views:
28
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform