Erasing Ink from inkOverlay.1

[markftwain]

Hi experts,

Having successfully displayed strokes on a form using the ActiveX inkOverlay.1, I now wish to erase them.
Given oink is object of class inkOverlay.1, doing this fails:
with thisform.oink
.enabled = 0
.ink.deletestrokes()

.draw(thisform.oInkRectangle)
.enabled = 1
endwith
thisform.refresh

However, if I step through it as:
set step on
with thisform.oink
.enabled = 0
.ink.deletestrokes()

.draw(thisform.oInkRectangle)
.enabled = 1
endwith
thisform.refresh

Everything works well and the ink is gone upon exiting the procedure. Observation shows that as soon as deletestrokes() is executed, flipping back to the display while in the debugger shows the ink to be erased.

So what is the debugger doing?

Thanks in advance for any help, Mark

 

[markftwain]

The only solution I have found is to build a new ink object:

local loInk as MSInkAut.InkObject
loInk = createobject("MSInkAut.InkObject")

with thisform.oink
.enabled = 0
.ink = m.loInk
.enabled = 1
endwith

Is there a better way?

Bye, Mark