B4J Question Canvas question

[moore_it]

How i do to check if i enter or exit in an canvas ?
MouseMoved event check only if yu're in canvas not if you're out of it.

Thanks in advance.

 

[Daestrum]

You could use something like this
c = the object ie the canvas
"..." = the name of the event
"c" = the sub prefix to use

   ...
    setHandler(c ,"setOnMouseEntered", "c")
   ...

which calls this sub to set a handler

Sub setHandler(ob As Object,eventName As String,handlerName As String)
    jo = ob
    myEventHandler = jo.CreateEventFromUI("javafx.event.EventHandler", _
                                                        handlerName,False)
    jo.RunMethod(eventName, Array(myEventHandler))
End Sub

which will call this sub when the mouse enters c

Sub c_Event(MethodName As String, Args() As Object)As Object
    Log("mouse in C " & showEventType(Args(0)))
End Sub

Oops, forgot to add Dim myEventHandler in Process_Globals as an object and
jo as a javaobject

 

[moore_it]

and when exit from canvas ?

thanks

 

[moore_it]

Ok Found It ...
TKS to Daestrum

Define objects

Private jo As JavaObject
Private myEventHandler AsObject

Set the handlers

cvs.Initialize("cvs")
setHandler(cvs ,"setOnMouseEntered","cvi")
setExitHandler(cvs ,"setOnMouseExited","cve")


Sub setHandler(ob As Object,eventName As String,handlerName As String)
jo = ob
myEventHandler = jo.CreateEventFromUI("javafx.event.EventHandler",handlerName,False)
jo.RunMethod(eventName, Array(myEventHandler))
End Sub

Sub setExitHandler(ob As Object,eventName As String,handlerName As String)
jo = ob
myEventHandler = jo.CreateEventFromUI("javafx.event.EventHandler",handlerName,False)
jo.RunMethod(eventName, Array(myEventHandler))
End Sub

Events

Sub cvi_Event(MethodName As String, Args() As Object)As Object

Log("mouse in Cvs " & Args(0))

End Sub

Sub cve_Event(MethodName As String, Args() As Object)As Object

Log("mouse out of Cvs " & Args(0))

End Sub