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!