Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Last Time. Shape won't appear on form
Message
De
17/04/2008 13:26:05
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Last Time. Shape won't appear on form
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01311513
Message ID:
01311513
Vues:
68
This is the last time. If I don't get it this time then I'm just dropping the idea. I'm just tired of trying to figure this out.

The shape does not show up on the form. It did before I changed something while changing the array points, but I can't track down what caused the shape to stop appearing.

There is a property on the main form for the laShapePoints array.

This is in the main form that calls the popup form:
WITH THIS

	.oPopUpInfoForm = CREATEOBJECT("PopupInfo")
	.oPopUpInfoForm.AlwaysOnTop = .T.
	.oPopUpInfoForm.AutoCenter = .T.

	.oPopUpInfoForm.ADDOBJECT("shpBackground", "shape")
	.oPopUpInfoForm.shpBackGround.Top = .oPopUpInfoForm.Top +5
	.oPopUpInfoForm.shpBackGround.Left = .oPopUpInfoForm.Left +5 
	.oPopUpInfoForm.shpBackGround.Width = .oPopUpInfoForm.Width -10
	.oPopUpInfoForm.shpBackGround.Height = .oPopUpInfoForm.Height -10
	.oPopUpInfoForm.shpBackGround.FillStyle = 0
	.oPopUpInfoForm.shpBackGround.FillColor = RGB(171,250,173)
	.oPopUpInfoForm.shpBackGround.PolyPoints = "THISFORM.laShapePoints"
	.oPopUpInfoForm.shpBackGround.Visible = .T.
ENDWITH
This is in the INIT of the popup form:
THIS.AUTOCENTER=.F.
THIS.AlwaysOnTop = .T.
THIS.TransparentModeSet=.F.
Thisform.Borderstyle = 0
Thisform.TitleBar = 0

DIMENSION laFormPoints[9,2]

laFormPoints[1,1] = 50
laFormPoints[1,2] = 0
laFormPoints[2,1] = 400
laFormPoints[2,2] = 0
laFormPoints[3,1] = 425
laFormPoints[3,2] = 25
laFormPoints[4,1] = 425
laFormPoints[4,2] = 100
laFormPoints[5,1] = 400
laFormPoints[5,2] = 125
laFormPoints[6,1] = 50
laFormPoints[6,2] = 125
laFormPoints[7,1] = 25
laFormPoints[7,2] = 100
laFormPoints[8,1] = 25
laFormPoints[8,2] = 25
laFormPoints[9,1] = 50
laFormPoints[9,2] = 0

THIS.oTrans.SetFormUDF(THIS, @laFormPoints)

WITH THISFORM

	DIMENSION .laShapePoints[9,2]

	* Left Side and Top (anchor)
	.laShapePoints[1,1] = 20 -13
	.laShapePoints[1,2] = 0
	* Right Side and Top
	.laShapePoints[2,1] = 40 +13 +40
	.laShapePoints[2,2] = 0
	* Right Side and Top
	.laShapePoints[3,1] = 60 +40
	.laShapePoints[3,2] = 20
	* Right Side and Bottom
	.laShapePoints[4,1] = 60 +40
	.laShapePoints[4,2] = 40 +40
	* Right Side and Bottom
	.laShapePoints[5,1] = 40 +13 +40
	.laShapePoints[5,2] = 60 +40
	* Left Side and Bottom
	.laShapePoints[6,1] = 20 -13
	.laShapePoints[6,2] = 60 +40
	* Left Side and Bottom
	.laShapePoints[7,1] = 0
	.laShapePoints[7,2] = 40 +40
	* Left Side and Top
	.laShapePoints[8,1] = 0
	.laShapePoints[8,2] = 20
	* Left Side and Top (anchor)
	.laShapePoints[9,1] = 20 -13
	.laShapePoints[9,2] = 0

ENDWITH
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform