B4J Question Tray icon single click

[ThRuST]

In Windows 10, is it possible to single click or double click on the tray icon to perform an event? I've seen this possible in applications.
On Mac OSX however, single click on the tray icon is the default behavior.

 

[Erel]

The TrayIcon raises both a Click and DoubleClick events.

 

[ThRuST]

I should have added that I meant left click in Windows is my desired behavior while I noticed that right click is the default to bring the popup menu up.
I assume the desired behavior can be controlled in the Click and DoubleClick events.

Is there a way to manually show or hide the popup menu as to decide if it should trigger from left or right button, or do something else like showing the pane instead of the menu?

 

[Erel]

You cannot show the popup menu yourself. I guess that you can show a form inside the Click event.

 

[ThRuST]

What's the name of these events?
Sub Trayicon_MenuClick (Text As String) and _DoubleClick?

 

[Sandman]

Might be relevant:

[NOT A BUG - SOLVED!] _TransactionsRestored NEVER seems to trigger

Over the last week I've been trying to get store.RestoreTransactions to work in my app. It finally works perfectly, with a build uploaded to Apple Connect and app downloads via TestFlight. However, I had to totally circumvent _TransactionsRestored in order to make it work! It NEVER fires, even...

www.b4x.com

 

[DonManfred]

What's the name of these events?

@Events(values={"DoubleClick", "MenuClick (Text As String)", "Click"})

B4J/Libs_SystemTray/src/anywheresoftware/b4j/objects/SystemTrayWrapper.java at master · AnywhereSoftware/B4J

B4J core libraries. Contribute to AnywhereSoftware/B4J development by creating an account on GitHub.

github.com

 

[ThRuST]

Sub spacebar and Tab was indeed useful. Thanks all of you for sorting this out

 

[ThRuST]

I ran into another problem, how to check if left mouse button is clicked. This is what I tried.
However an error occured saying MouseEvent object should first be initialized?

Sub Trayicon_Click
   
    Dim event As MouseEvent
   
    If event.PrimaryButtonDown = True Then
        Xui.MsgboxAsync("Hello World!", "B4X")
    End If
   
End Sub

 

[Erel]

I ran into another problem, how to check if left mouse button is clicked. This is what I tried.

This cannot work. There is no relation between the MouseEvent object that you created and the actual event.

It is currently impossible to distinguish between the buttons without modifying the library code.

 

[ThRuST]

To add this functionality would be most useful since it offers alot of flexibillity. With all respect, my request is posted here. Move it if you like. Thanks

Sub Trayicon_Click (EventData As MouseEvent)
    
    If EventData.PrimaryButtonDown = True Then
        Xui.MsgboxAsync("Hello World!", "B4X")
    End If
    
End Sub

 

[Erel]

JavaObject to the rescue:

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI 
    Private st As SystemTray
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    st.Initialize
    Dim icon As TrayIcon
    icon.Initialize("", xui.LoadBitmap(File.DirAssets, "logo.png"), Null)
    Dim jo As JavaObject = icon
    Dim event As Object = jo.CreateEventFromUI("java.awt.event.MouseListener", "MouseListener", Null)
    jo.RunMethod("addMouseListener", Array(event))
    st.AddTrayIcon(icon)
End Sub

Sub MouseListener_Event (MethodName As String, Args() As Object) As Object
    Log(MethodName)
    Dim MouseEvent As JavaObject = Args(0)
    Log(MouseEvent.RunMethod("getButton", Null))
    Return Null
End Sub

MouseEvent API: https://docs.oracle.com/javase/7/docs/api/java/awt/event/MouseEvent.html

 

[ThRuST]

@Erel Interesting workaround, but how do you bring up the popup menu? The event fires quickly and displays multiple messageboxes when used inside the sub.
Perhaps this can be prevented.

Another solution might be to use Roycefer's jAWTRobot library.

 

[Erel]

This code is an alternative to the built-in Click event. Any other behavior is exactly the same.

 

[Erel]

The event fires quickly and displays multiple messageboxes when used inside the sub.

Never use msgbox for debugging.