WITH THIS .oPopUpInfoForm = CREATEOBJECT("PopupInfo") .oPopUpInfoForm.AlwaysOnTop = .T. .oPopUpInfoForm.AutoCenter = .T. .oPopUpInfoForm.ADDOBJECT("shpBackground", "shape") .oPopUpInfoForm.shpBackGround.Top = 25 .oPopUpInfoForm.shpBackGround.Left = 25 .oPopUpInfoForm.shpBackGround.FillStyle = 0 .oPopUpInfoForm.shpBackGround.FillColor = RGB(171,250,173) .oPopUpInfoForm.shpBackGround.PolyPoints = "THISFORM.oPopUpInfoForm.laShapePoints" .oPopUpInfoForm.shpBackGround.Visible = .T. ENDWITHThen in the the INIT of the called form (PopupInfo in the class):
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 BumpX = 5 BumpY = 5 DIMENSION .laShapePoints[9,2] .laShapePoints[1,1] = 50 + BumpX .laShapePoints[1,2] = 0 + BumpY .laShapePoints[2,1] = 400 - BumpX .laShapePoints[2,2] = 0 + BumpY .laShapePoints[3,1] = 425 - BumpX .laShapePoints[3,2] = 25 + BumpY .laShapePoints[4,1] = 425 - BumpX .laShapePoints[4,2] = 100 - BumpY .laShapePoints[5,1] = 400 - BumpX .laShapePoints[5,2] = 125 - BumpY .laShapePoints[6,1] = 50 + BumpX .laShapePoints[6,2] = 125 - BumpY .laShapePoints[7,1] = 25 + BumpX .laShapePoints[7,2] = 100 - BumpY .laShapePoints[8,1] = 25 + BumpX .laShapePoints[8,2] = 25 + BumpY .laShapePoints[9,1] = 50 + BumpX .laShapePoints[9,2] = 0 + BumpY .oTrans.SetFormUDF(THIS, .laShapePoints) ENDWITH