CLEAR CLASS FullSizeDisplay >CLEAR CLASSLIB MSChartTempClass >e.t.c>>
>> LOCAL ; >> SaveInPath, ; >> VcxName, ; >> ClassName >> >> SaveInPath = GetPath("TEMP", .T.) >> VcxName = SUBS(SYS(2015), 2) + ".vcx" >> ClassName = "MSChartTempClass" >> THISFORM.Pageframe1.ReportGraph_Page.Chartarea1.SAVEASCLASS(SaveInPath + VcxName, ClassName, "") >> >> THISFORM.VISIBLE = .F. >> THISFORM.WINDOWSTATE = 0 >> >> FullSizeDisplay = NEWOBJECT("FullSizeDisplay", THIS.CLASSLIBRARY) >> set classlib to (SaveInPath + VcxName) addi >> *FullSizeDisplay.NEWOBJECT(ClassName, ClassName, (SaveInPath + VcxName)) >> FullSizeDisplay.AddOBJECT(ClassName, ClassName) >> FullSizeDisplay.LOCKSCREEN = .T. >> FullSizeDisplay.VISIBLE = .T. >> FullSizeDisplay.oCallingForm = ThisForm >> FullSizeDisplay.&ClassName..TOP = 0 >> FullSizeDisplay.&ClassName..LEFT = 0 >> FullSizeDisplay.&ClassName..WIDTH = FullSizeDisplay.WIDTH >> FullSizeDisplay.&ClassName..HEIGHT = FullSizeDisplay.HEIGHT >> FullSizeDisplay.&ClassName..VISIBLE = .T. >> FullSizeDisplay.LOCKSCREEN = .F. >> FullSizeDisplay.SHOW(1) >> >> * *** clean up >> FullSizeDisplay = .NULL. >> RELEASE CLASSLIB (SaveInPath + VcxName) >> * *** for some reason the delete command >> * *** errors "file in use" >> *clear CLASSLIB (SaveInPath + VcxName) >> DELETE FILE (SaveInPath + VcxName) >> DELETE FILE (SaveInPath + JUSTSTEM(VcxName) + ".vct") >> >> THISFORM.VISIBLE = .T. >>>>thanks for all your help!