B4J Code Snippet Form Change Cursor Image

To share a snippet which changes the form cursor to an image which is located in the files (dirasset) folder.

Acknowledgement: just found this thread, which relates as showing an animated cursor - was not aware prior posting this snippet.

' Example: SetFormCursor(MainForm, "arrowup.png")
Sub SetFormCursor(frm As Form, imagefile As String)
    Dim img As Image
    img.Initialize(File.DirAssets, imagefile)
    Dim joImageCursor As JavaObject
    joImageCursor.InitializeNewInstance("javafx.scene.ImageCursor", Array(img))
    Dim joCursor As JavaObject = frm.RootPane
    joCursor.RunMethod("setCursor", Array(joImageCursor))
End Sub

The image arrowup.png mentioned as example:

 

[BeneBarros]

Excellent!! I found what I was looking for.
I just made small changes to determine hotspotX and hotspotY

for

Sub SetFormCursor (frm As Form , imagefile As String, hsX As Double, hsY As Double)

and

JoImageCursor.InitializeNewInstance ("javafx.scene.ImageCursor", Array (img, hsX, hsY))

Thank you!

 

[ThRuST]

This post is a bit old but I wanted to ask what way you use to change hotspot for a mouse icon? I've tested a bunch of editors but none could set it. I also want to ask if .PNG files can support animating icons, such as the filetype .ANI or how would you handle that in B4J?

See this webpage for an example of animating icons
http://www.rw-designer.com/cursor-detail/18068

Animating icon tutorial
http://www.rw-designer.com/create-animated-water-drop-cursor-tutorial