[Gambas-user] Issue with ColorChooser

[Bruce Steers]

Getting the same problems here.

I tried many different ways , still no events triggered.


On Tue, 23 Feb 2021 at 17:51, Charlie Ogier <charlie at cogier.com> wrote:

> Hi,
>
> Am I missing something or is there a problem? I can't get the
> ColorChooser to trigger events for MouseUp, MouseDown, GotFocus &
> LostFocus.
>
> If you run the code below can you let me know if you also see the issue.
>
> Thanks,
>
> Charlie
>
> *******************************************************
>
> HBox1 As HBox
> TextBox1 As TextBox
> ColorChooser1 As ColorChooser
>
> Public Sub Form_Open()
>
>    With Me
>      .H = 400
>      .W = 400
>      .Arrangement = Arrange.Vertical
>      .Padding = 5
>    End With
>
>    With ColorChooser1 = New ColorChooser(Me) As "ColorChooser1"
>      .Expand = True
>      .Tracking = True
>      .Tooltip = "Hello world!"
>    End With
>
>    With HBox1 = New HBox(Me)
>      .H = 28
>      .W = 100
>    End With
>
>    With TextBox1 = New TextBox(HBox1) As "TextBox1"
>      .H = 28
>      .W = 100
>      .Expand = True
>      .Background = Color.White
>      .Text = "Move and click things, should the events not trigger?"
>    End With
>
> End
>
> Public Sub TextBox1_GotFocus()
>
>    Me.Text = "TextBox has focus"
>
> End
>
> Public Sub TextBox1_LostFocus()
>
>    Me.Text = "TextBox has lost focus"
>
> End
>
> Public Sub ColorChooser1_MouseDown()
>
>    Stop
>
> End
>
> Public Sub ColorChooser1_MouseUp()
>
>    Stop
>
> End
>
> Public Sub ColorChooser1_GotFocus()
>
>    Stop
>
> End
>
> Public Sub ColorChooser1_LostFocus()
>
>    Stop
>
> End
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20210223/30a624a1/attachment.htm>