Problem with Door library and Native Image

[HARRY]

Hi,

I need to add some events to an Native image. I use the following code:

NImage1.New1("TextPhoto",20,90,200,200)
NImage1.Color=BackColor
doorobj.New1(False)
*** doorobj.FromControl("NImage1")
eventobj1.New1(doorobj.value,"MouseDown")
eventobj2.New1(doorobj.value,"MouseMove")
eventobj3.New1(doorobj.value,"MouseUp")

NImage1 is a NativeImage
doorobj is an object from the door library
eventobj1, 2 and 3 are events from the door library

On the marked line I get the following error message:

On the PC

"An object of type DBasic.Other.SWrapObject can not be converted to type System.Windows.Forms.Control." (Translated from dutch)

On the device:
Invalid cast exception

Am I doing somethging wrong?

Harry

 

[Erel]

Does NativeImage have a "Value" or "ControlRef" properties?

 

[agraham]

Am I doing something wrong?

Yes! "FromControl" is for intrinsic Basic4ppc controls. I assume that this is a NativeImage from my ControlsExDevice library so, as intimated by Erel, you should use

eventobj1.New1(NativeImageName.value,"MouseDown")

 

[HARRY]

Hi Erel,

As far as I can see a NativeImage has the ControlRef property; no Value propertry

Harry

 

[agraham]

Sorry, I forgot that it is named ControlRef in this library. See my post above. It should be.

eventobj1.New1(NativeImageName.ControlRef ,"MouseDown")

 

[HARRY]

Hi Erel and Andrew,

The following code is accepted:

doorobj.FromControl(NImage1.ControlRef)
eventobj1.New1(doorobj.value,"MouseDown")
eventobj2.New1(doorobj.value,"MouseMove")
eventobj3.New1(doorobj.value,"MouseUp")

I still have tot test whether it really works.

Thanks for your help

Harry

 

[agraham]

doorobj.FromControl(NImage1.ControlRef)

does work but going via the doorobj is not needed. The straightforward way is as I showed in post #5.

 

[HARRY]

Hi,

Again a problem for me with the door library.


I want to add a mouse down event to a WEB control.

Based on the foregoing discussion I try to do it as follows:

WEB1.New1("FollowForm",0,0,240,240)

WEBMouseDownEvent.New1(WEB1.ControlRef,"MouseDown")

WEBMouseDownEvent is an Event of the door library.

I get the error message: (translated from dutch):

"The target/purpose(?) of a call has caused an exception."

Am I doing something wrong or is this not possible at all?

Does another method exist to raise an event when the user touches the WEB

control?


Harry

 

[agraham]

I assume you mean the WebBrowser control. The WebBrowser does not support any mouse events. There is no way I know of detecting user interaction with the control.