[Gambas-user] "Long" click

[d4t4full at ...626...]

That is precisely the reason I suggested an OBSERVER object. This Observer would get all MouseDown and MouseUp events for the desired controls and act accordingly.

My code was, anyway, Form-oriented on purpose to make it simpler and straight to the point, without the observer complication. The reader can adapt,  expand or innovate as needed.

Regards,
zxMarce.


On Sep 23, 2017, 14:48, at 14:48, PICCORO McKAY Lenz <mckaygerhard at ...1963....> wrote:
>i understand perfectly..
>
>--->here but presed but not released
>----> here a second was passed
>----> here 20 second was passed but button are not released
>-----> here due more that 20 second passed and but not released a
>form/window are raised
>
>
>your code looks with sense, but maybe i a good idea start the timming
>based
>on the button pressure, and not the moouse
>
>your code says> if the MOUSE button click ON ANY PART OF THE FORM start
>timing to calculate how long are pressed..
>
>and i thing you want > if the MOUSE button click ON SOME SPECIFIC
>BUTTON
>FORM et etc
>
>
>
>Lenz McKAY Gerardo (PICCORO)
>http://qgqlochekone.blogspot.com
>
>2017-09-21 6:08 GMT-04:00 ML <d4t4full at ...626...>:
>
>> My guess is that you want a new form to appear after the button is
>> raised, but having been pressed more than X seconds.
>> To this end, I'd add a timer with the desired "long-click lenght" to
>the
>> main form (the one that "receives the long-click").
>> Maybe also the form and all its controls should have an observer and
>> apply the timer to the observer, if more than one control may receive
>> the "long click".
>> So it would be MouseDown->Enable timer->MouseUp->Disable Timer. If
>the
>> timer triggered, the form should be shown:
>>
>>   Public Sub Form1_MouseDown()
>>
>>     'Start timing clicks
>>     tmrLongClickEnabled = True
>>
>>   End
>>
>>   Public Sub Form1_MouseUp()
>>
>>     'Stop timing clicks
>>     tmrLongClick.Enabled = False
>>
>>   End
>>
>>   Public Sub tmrLongClick_Timer()
>>
>>     'If the timer triggered before being disabled, it was a
>> "long-click", so we show the "other" form
>>     Form2.Show()
>>
>>     'We also disable the timer so no more than ONE form is shown per
>> "long-click".
>>     tmrLongClick.Enabled = False
>>
>>   End
>>
>> Disclaimer: It looks good on paper, but did not actually try it.
>>
>> HTH,
>> zxMarce
>>
>> On 21/09/17 06:28, Gianluigi wrote:
>> > I'm not sure I understand, but that's not enough?
>> >
>> > Public Sub Button1_MouseDown()
>> >
>> >   Form1.Show()
>> >
>> > End
>> >
>> > Public Sub Button1_MouseUp()
>> >
>> >   Form1.Hide()
>> >
>> > End
>> >
>> > Regards
>> > Gianluigi
>> >
>> > 2017-09-21 8:19 GMT+02:00 Miguel Manso <mmanso at ...626...>:
>> >> Hi All,
>> >> I'm using gambas3 for some time now and I'd like to know your
>opinion
>> >> about the best way to implement a "long" click.
>> >> The idea is to leave a button presses for a certain amount of
>seconds
>> >> and without releasing it, a new form will open.
>> >> We did this using a timer but I'd like to know if there's any
>> >> "recommended" way of doing it.
>> >> Thanks.
>> >> --
>> >> Miguel Manso
>>
>>
>> ------------------------------------------------------------
>> ------------------
>> Check out the vibrant tech community on one of the world's most
>> engaging tech sites, Slashdot.org! http://sdm.link/slashdot
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>------------------------------------------------------------------------------
>Check out the vibrant tech community on one of the world's most
>engaging tech sites, Slashdot.org! http://sdm.link/slashdot
>_______________________________________________
>Gambas-user mailing list
>Gambas-user at lists.sourceforge.net
>https://lists.sourceforge.net/lists/listinfo/gambas-user