Imaginecorp
IS-IT--Management
I have a form that displays a saved map. I do this by using ADDOBJECT() to the form.
Every thing works fine.
In the forms DESTROY() I have:
when done , when i try to exit the app, I get the "Cannot Quit..." window
Now the strange part: ONLY If the user manuplates the map using the mouse i.e. zoom or pan etc, and opts to either save or Not save the map, I do not get the error
The apps On Shutdown does everything i.e. release clears etc. I dont see anything "hanging" when I display memory etc. Cant Fig this out...
Code:
If Vartype(This.Reg_mapcontrol1) # "O"
This.AddObject("Reg_mapcontrol1","Reg_mapcontrol")
Endif
oMap = Addbs(Sys(5)+Sys(2003))+'new map.ptm'
*!* oMap = Addbs(Justpath(Sys(16)))+'new map.ptm'
With This.Reg_mapcontrol1
.NEWMAP(oMap)
.Toolbars.Item("Navigation").Visible = .T.
*.Toolbars.Item("Standard").Visible = .T.
.Left = Thisform.reg_shape1.Left
.Top = Thisform.reg_shape1.Top
.Height = Thisform.reg_shape1.Height
.Width = Thisform.reg_shape1.Width
.Visible = .T.
.ActiveMap.zoomin
Endwith
In the forms DESTROY() I have:
Code:
If Vartype(.Reg_mapcontrol1) = "O"
This.Reg_mapcontrol1.closemap
This.RemoveObject("Reg_mapcontrol1")
Endif
when done , when i try to exit the app, I get the "Cannot Quit..." window
Now the strange part: ONLY If the user manuplates the map using the mouse i.e. zoom or pan etc, and opts to either save or Not save the map, I do not get the error
The apps On Shutdown does everything i.e. release clears etc. I dont see anything "hanging" when I display memory etc. Cant Fig this out...