B4J Question Mouse pointer becomes difficult to see when hovering over textarea

[kostefar]

Dear All,

I have a rather large textarea in a form, that when hovering over it, the mouse pointer gets replaced by a very thin small vertical line, which is very difficult to see.
There´s nothing special about anything here really, in AppStart loading of the form is called with:

Console.Show

Where Console.Show looks like:

Public Sub Show
    
        frm.Initialize("frm", 950, 730)
        frm.RootPane.LoadLayout("Console")
        Dim consoleform As Form = frm
        consoleform.Stylesheets.Add(File.GetUri("", "style.css"))
        frm.Show
    

    
End Sub

In the designer all I amended was the color in background properties (which turns out to be a totally different color btw, but that´s rather unimportant right now cause all I want is that I can work with things) and of course the size of the form. And no, the color of background and mouse pointer are totally different.. Like bottle green and white.

I cannot post a screenshot of the mouse pointer replacement because it disappears when on the screenshots..

 

[Erel]

You can change the cursor with:

TextArea1.MouseCursor = fx.Cursors.HAND

 

[kostefar]

You can change the cursor with:

TextArea1.MouseCursor = fx.Cursors.HAND

Thanks, but this did not change anything. It still shows a crosshair (that´s what I ment before). I even tried creating an empty project, adding a textarea in the designer, and only adding Textarea1.MouseCursor = fx.Cursors.HAND in AppStart. Still showing a crosshair.

 

[stevel05]

If Textarea1 is in the layout Console, then each time you call the Show sub it will be creating a new TextArea1 Object and the assignment of the cursor will have been lost.

 

[kostefar]

If Textarea1 is in the layout Console, then each time you call the Show sub it will be creating a new TextArea1 Object and the assignment of the cursor will have been lost.

In fact I only call Show one time, in appstart, after which I add the the hand cursor.

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
Dim textarea1 As TextArea
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show
    textarea1.MouseCursor = fx.Cursors.HAND
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

 

[stevel05]

It looks like the cursor needs to be set on the Content node of the textarea See the CSS reference : http://enos.itcollege.ee/~jpoial/docs/docs9/api/javafx/scene/doc-files/cssref.html#text-area

We can do:

Private Sub SetCursor
    Dim JO As JavaObject = TextArea1
    Dim Content As Node = JO.Runmethod("lookup",Array(".content"))
    Content.MouseCursor = fx.Cursors.HAND
End Sub

 

[kostefar]

It looks like the cursor needs to be set on the Content node of the textarea See the CSS reference : http://enos.itcollege.ee/~jpoial/docs/docs9/api/javafx/scene/doc-files/cssref.html#text-area

We can do:

Private Sub SetCursor
    Dim JO As JavaObject = TextArea1
    Dim Content As Node = JO.Runmethod("lookup",Array(".content"))
    Content.MouseCursor = fx.Cursors.HAND
End Sub

Awesome stevel05, that did it! I changed HAND to DEFAULT to maintain the arrow.