[Gambas-user] Mouse X & Y reporting...
vuott at tutanota.com
vuott at tutanota.com
Mon Nov 13 01:19:12 CET 2023
Opssss... excuse me, there is a shorter mode.
[code]
....etc....
....etc....
Public Sub TextArea1_MouseUp()
If Not Object.IsValid(TreeView1.Current) Then
Message.Warning("You have to click on a TreeView item first !")
Return
Endif
TextArea1.Insert(TreeView1.Current.Text)
End
[/code]
13 nov 2023, 01:07 da user at lists.gambas-basic.org:
> Ok Bruce,
> ehmmm... > if > sbungay> doesn't want to use the 'Drag&Drop' resources, perhaps he can take a look at the following code.
> (He has to click on a TreeView item first, then he can click in the 'TextArea' to insert the text of the chosen item).
>
> [code]
> Public Sub Form_Open()
>
> TreeView1.Add("a", "123")
> TreeView1.Add("b", "456")
> TreeView1.Add("c", "789")
>
> TextArea1.Tracking = True
> TextArea1.Text = "Arma virumque cano, Troiae qui primus ab oris\n" &
> "Italiam fato profugus Laviniaque venit\n" &
> "litora, multum ille et terris iactatus et alto,\n" &
> "vi superum, saevae memorem Iunonis ob iram,\n" &
> "multa quoque et bello passus, dum conderet urbem\n" &
> "inferretque deos Latio, genus unde Latinum\n" &
> "Albanique patres atque altae moenia Romae."
>
> End
>
> Public Sub TextArea1_MouseUp()
>
> If Not Object.IsValid(TreeView1.Current) Then
> Message.Warning("You have to click on a TreeView item first !")
> Return
> Endif
>
> Dim s1, s2 As String
>
> s1 = Left(TextArea1.Text, TextArea1.Pos)
> s2 = Right(TextArea1.Text, Len(TextArea1.Text) - TextArea1.Pos)
> TextArea1.Text = s1 & TreeView1.Current.Text & s2
>
> End
> [/code]
>
>
>
>
>
> 12 nov 2023, 23:44 da bsteers4 at gmail.com:
>
>> Ahh yes i did not try with an empty TextArea
>> I would start the Drop method with something like this then....
>>
>> Public Sub TextArea1_Drop()
>>
>> If Not Drag.Formats.Exist("text/plain") then Return
>>
>> If Not TextArea1.Text Then
>> TextArea1.Insert(Drag.Paste()
>> Return
>> Endif
>>
>> Respects
>> BruceS
>>
>> On Sun, 12 Nov 2023 at 22:30, vuott--- via User <>> user at lists.gambas-basic.org>> > wrote:
>>
>>> Bruce,
>>> this line:
>>> Dim sTxt As String = Split(TextArea1.Text, "\n")[iLine]
>>> gives me the error «Out of Bound».
>>>
>>> However, sbungay didn't write whether the "TextArea" already contains text or not; and, if it does, whether this text is to be replaced or supplemented by text taken with the mouse from the "TreeView" Control and released into the "TextArea".
>>>
>>> regards
>>>
>>>
>>> 12 nov 2023, 19:32 da >>> bsteers4 at gmail.com>>> :
>>>
>>>> aah yes.
>>>> It has a CursorAt(Pos As Integer) As Point but that's the wrong way round
>>>> there is no CursorFrom(X As Integer, Y As Integer) As Integer or equivalent.
>>>>
>>>> So we could do this..
>>>> (there is possibly an easier or built in way)
>>>>
>>>> Public Sub TextArea1_Drop()
>>>>
>>>> ' get line number and line text from Drag.Y
>>>> Dim iPos As Integer = TextArea1.ToPos(Drag.Y \ TextArea1.Font.Height, 0)
>>>> Dim iLine As Integer = TextArea1.ToLine(iPos)
>>>> Dim sTxt As String = Split(TextArea1.Text, "\n")[iLine]
>>>>
>>>> ' add chars of the text to a string and measure it until
>>>> ' it is further than Drag.X
>>>> Dim sTo As String
>>>> Dim i, X, iLast As Integer
>>>> Repeat
>>>> Inc i
>>>> sTo = Mid(sTxt, 1, i)
>>>> X = TextArea1.Font.TextWidth(sTo)
>>>> If X > Drag.X Then Break
>>>> iLast = sTo.Len - 1
>>>> Until i > sTxt.Len
>>>>
>>>> ' Set the TextArea1 cursor to line And column Pos and insert drag text
>>>> TextArea1.Pos = TextArea1.ToPos(iLine, iLast)
>>>> TextArea1.Insert(Drag.Paste())
>>>>
>>>> End
>>>>
>>>> That's only simple code and may need some more error handling but should get you started :)
>>>>
>>>> BruceS
>>>>
>>>> On Sun, 12 Nov 2023 at 17:02, vuott-
>>>>
>>>> -- via User <>>>> user at lists.gambas-basic.org>>>> > wrote:
>>>>
>>>>> I do not believe that he can position the text in the TextArea, "directly" according to the ".X" and ".Y" Properties, or ".ScreenX" and ".ScreenY" of the Mouse Class.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 12 nov 2023, 16:42 da >>>>> bsteers4 at gmail.com>>>>> :
>>>>>
>>>>>>
>>>>>>
>>>>>> On Sun, 12 Nov 2023 at 15:04, sbungay <>>>>>> sbungay at smartsonsite.com>>>>>> > wrote:
>>>>>>
>>>>>>> I've been struggling with dragging data from a TreeView to a Text
>>>>>>> Area, and I THINK I've found the source of the frustration.
>>>>>>>
>>>>>>> Both the TreeView and TextArea have Tracking enabled. So everything
>>>>>>> is OK there.
>>>>>>>
>>>>>>> The Drag begins and the Mouse.X and Mouse.Y coordinates are given
>>>>>>> relative to where it was in the TreeView when that event fires. Lets say
>>>>>>> the values are, respectively, 21 and 88. Dragging the text from the
>>>>>>> TreeView to the position in the TextArea where it needs to be inserted
>>>>>>> it ALWAYS inserts it in the wrong spot, and the Mouse.X and Mouse.Y
>>>>>>> remain set at 21 and 88, which explains why insertion did not take place
>>>>>>> at the desired location.
>>>>>>>
>>>>>>> Shouldn't the Mouse.X and Mouse.Y be updated to the coordinates of the
>>>>>>> pointer relative to the control over which the drop occurred?
>>>>>>>
>>>>>>> --
>>>>>>> Steve.
>>>>>>>
>>>>>>
>>>>>> No because Mouse.X and Mouse.Y are object relative positions.so belong to the calling objects Drag event
>>>>>>
>>>>>>
>>>>>> See Drag.X and Drag.Y
>>>>>>
>>>>>> Or use Mouse.ScreenX , Mouse.ScreenY with the dropped objects screen positions.
>>>>>>
>>>>>> Dim iDropRelativeMouseX = Mouse.ScreenX - MyDroppedControl.ScreenX
>>>>>> Dim iDropRelativeMouseY = Mouse.ScreenY - MyDroppedControl.ScreenY
>>>>>>
>>>>>> BruceS
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>> ----[ >>>>> http://gambaswiki.org/wiki/doc/netiquette>>>>> ]----
>>>>>
>>>
>>>
>>> ----[ >>> http://gambaswiki.org/wiki/doc/netiquette>>> ]----
>>>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20231113/147f3d2b/attachment-0001.htm>
More information about the User
mailing list