[Gambas-user] Hover text anchored to mouse pointer

[Gianluigi]

Il 08/06/23 11:42, Gianluigi ha scritto:
> Il 08/06/23 11:29, Gianluigi ha scritto:
>> Il 08/06/23 10:24, KKing ha scritto:
>>> Hi Gianluigi,
>>>
>>> That looks pretty good!
>>>
>>> And is nearly what I want .... the but is I will be hovering over a 
>>> bespoke chart which am still experimenting with where how and where 
>>> drawn. I will want the text to change depending on the x,y position 
>>> of the cursor, actually just the x position.
>>>
>>> K
>>>
>>> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>>
>>
>> Hi,
>>
>> Try adding this code:
>>
>> ...
>
>
> To avoid confusion, the whole code follows:

...


Sorry, to avoid confusion I created more ;-D

I confused TextBox with TextArea:

Here is the code I wanted to pass earlier:

Private $sMouse As String
Private $hPicture As Picture

Public Sub Form_Open()

   $sMouse = File.Load("./label-mouse.svg")

End

Public Sub Form_Enter()

   Dim s As String

   Me.Tracking = True
   s = Replace($sMouse, "$$$", "I am on " & Me.Name)
   $hPicture = Picture.FromString(s)
   Me.Cursor = New Cursor($hPicture)

End

Public Sub TextArea1_Enter()

   ' Dim s As String
   TextArea1.Tracking = True
   ' s = Replace($sMouse, "$$$", "I am on " & TextArea1.Name)
   ' $hPicture = Picture.FromString(s)
   ' TextArea1.Cursor = New Cursor($hPicture)

   End

Public Sub TextBox1_Enter()

   Dim s As String

   TextBox1.Tracking = True
   s = Replace($sMouse, "$$$", "I am on " & TextBox1.Name)
   $hPicture = Picture.FromString(s)
   TextBox1.Cursor = New Cursor($hPicture)

End

Public Sub TextArea1_MouseMove()

   ' Print Mouse.X
   Dim s As String

   Select Mouse.X
     Case 20 To 100
       s = Replace($sMouse, "$$$", "I am on " & "Column one")
     Case 100 To 180
       s = Replace($sMouse, "$$$", "I am on " & "Column two")
     Case 180 To 260
       s = Replace($sMouse, "$$$", "I am on " & "Column three")
     Case Else
       s = Replace($sMouse, "$$$", "I am on " & TextArea1.Name)
       ' or
       ' s = Replace($sMouse, "$$$", "")
   End Select
   $hPicture = Picture.FromString(s)
   TextArea1.Cursor = New Cursor($hPicture)

End

Rwgards

Gianluigi