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. ENDWITHThis 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