Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Last Time. Shape won't appear on form
Message
From
17/04/2008 13:26:05
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Last Time. Shape won't appear on form
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01311513
Message ID:
01311513
Views:
67
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
Next
Reply
Map
View

Click here to load this message in the networking platform