Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Creating Irregular Shapes
Message
 
 
À
16/04/2008 22:41:32
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01311340
Message ID:
01311349
Vues:
27
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--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform