Hello,

I'm writing a form with a TrayIcon that should change according periodically using a timer:


The first time the timer is invoked the icon is displayed correctly, but after that the icon picture remain the same, even when the returned status changed (the tooltip is updated correctly). Please advise.

TIA

ForeverNoob said

…even when the returned status changed (the tooltip is updated correctly). Please advise.

TIA

Hi TIA and welcome to Gambas One.

I can't immediately see a problem with your code, but I suggest you put a break point at the line starting: "If "

Then run the code and when it stops use F8 to step it on one line at a time while checking variables.

If I get a chance later today I may try to reproduce your problem.

A couple of other tips; paste code on these pages using the gb button, as this preserves Gambas formatting…



…I also suggest that you enable line numbers in the editor, as they can be very handy!

I hope this helps.

Steve

OK, I've knocked up a simple program and single-stepped my way through it.

(Click to enlarge)

The only thing I notice is that while the TrayIcon object is updated as expected, the tray icon only gets updated on the screen when the code exits my timer, which calls the Sub, which changes the TrayIcon icon/picture. Adding Wait statements didn't help (no real reason why they should, its not the form that needs to update its the system panel...but worth a try).

Can you humour me and just temporarily increase your timer delay from 1 second to 10 seconds and retest?

I have run into one part of this problem which is the 'Comment' not changing. This can be solved by 'Hiding' then 'Showing' the icon which will change the 'Comment'. However, I can't get this to work with the 'Picture'.

Run this code in a Graphical program with 'gb.gui.trayicon' selected.

cogier said

I have run into one part of this problem which is the 'Comment' not changing. This can be solved by 'Hiding' then 'Showing' the icon which will change the 'Comment'. However, I can't get this to work with the 'Picture'….

By 'comment' do you mean ToolTip Charlie?

If I remove the breakpoints and just run my code with TimerDelay of 5 seconds its works fine, including the ToolTips.
(Actually, If I run with TimerDelay set to 1ms is still runs fine, but no tool tips.)

I didn't find .Show/.Hide/.Delete of any help with Icon/Picture.

I wonder if this problem is related to the Linux desktop in use, because there is some old chat in TrayIcon Help about DBus and Ubuntu implementations…

(Click to enlarge)

…or there could still be a problem with TIA's code. Maybe you could upload the project so we can take a look?

stevedee said

OK, I've knocked up a simple program and single-stepped my way through it.

TrayIcon.png

The only thing I notice is that while the TrayIcon object is updated as expected, the tray icon only gets updated on the screen when the code exits my timer, which calls the Sub, which changes the TrayIcon icon/picture. Adding Wait statements didn't help (no real reason why they should, its not the form that needs to update its the system panel...but worth a try).

Can you humour me and just temporarily increase your timer delay from 1 second to 10 seconds and retest?

Hi stevedee,

Thanks for answering. I tried increasing the initial timer delay, but that didn't work. In fact, over the value of 50(ms) or so the TrayIcon didn't updated even on the first iteration and just displayed the default gambas icon.

cogier said

I have run into one part of this problem which is the 'Comment' not changing. This can be solved by 'Hiding' then 'Showing' the icon which will change the 'Comment'. However, I can't get this to work with the 'Picture'.

Run this code in a Graphical program with 'gb.gui.trayicon' selected.

Code (gambas)

1. bSwitch As Boolean
2. Timer1 As Timer
3. TrayIcon1 As Trayicon
4. Label1 As Label
5.  
6. Public Sub Form_Open()
7.  
8.   With Me
9.     .Height = 300
10.     .Width = 650
11.     .Arrangement = Arrange.Vertical
12.     .Padding = 5
13.   End With
14.  
15.   With Label1 = New Label(Me) As "Label1"
16.     .Expand = True
17.     .Height = 28
18.     .Font.Size = 60
19.     .Font.Bold = True
20.     .Alignment = Align.Center
21.   End With
22.  
23.   With TrayIcon1 = New TrayIcon As "TrayIcon1"
24.     TrayIcon1.Tooltip = "Connected"
25.   End With
26.  
27.   With Timer1 = New Timer As "Timer1"
28.     .Delay = 3000
29.     .Trigger
30.     .Start
31.   End With
32.  
33. End
34.  
35. Public Sub Timer1_Timer()
36.  
37.   TrayIcon1.Hide                                    'This is an important part
38.  
39.   If bSwitch = False Then
40.     TrayIcon1.Tooltip = "Connected"
41.     Label1.Text = "Connected"
42.   Else
43.     TrayIcon1.Tooltip = "Not Connected"
44.     Label1.Text = "Not connected"
45.   End If
46.  
47.   TrayIcon1.Show                                    'This is an important part
48.   bSwitch = Not bSwitch
49.  
50. End
51.  
52. Public Sub Form_Close()
53.  
54.   TrayIcon1.Delete                                  'This stops the program from continuing to run
55.  
56. End
57.  

Hi cogier,

Thanks for answering. I've copied the above code to a new form and eidted the relevant part to look like this:


The label is periodically updated, but not the icon.

 OK, this is what I'm going to do: I'll create 2 TrayIcons, each with it's own icon, and just hide or show the relevant one as needed. No use fighting what looks like a bug somewhere.

Thank you all for the time and effort.

ForeverNoob said

…The label is periodically updated, but not the icon.

Could you post the details of your system?
including:-

• Linux Distro
• Linux kernel
• Gambas version

…and maybe go to menu Project > Properties and post a screen-shot like this;

(Click to enlarge)

stevedee said

ForeverNoob said

…The label is periodically updated, but not the icon.

Could you post the details of your system?
including:-

• Linux Distro
• Linux kernel
• Gambas version

…and maybe go to menu Project > Properties and post a screen-shot like this;


TrayIconProperties.png

Mint 20.1 cinnamon
Kernel 5.4.0-62-generic
Gambas 3.14.3

(Click to enlarge)

ForeverNoob said

Hi cogier,

Thanks for answering. I've copied the above code to a new form and edited the relevant part to look like this:

Code (gambas)

1.   If bSwitch = False Then
2.     TrayIcon1.Tooltip = "Connected"
3.     TrayIcon1.Picture = Picture["icon1.png"]
4.     Label1.Text = "Connected"
5.   Else
6.     TrayIcon1.Tooltip = "Not Connected"
7.     TrayIcon1.Picture = Picture["icon2.png"]
8.     Label1.Text = "Not connected"
9.   End If
10.  

The label is periodically updated, but not the icon.

You need the Hide and Show in your code, or it won't work properly. I did mark it as 'Important'

ForeverNoob said

OK, this is what I'm going to do: I'll create 2 TrayIcons, each with it's own icon, and just hide or show the relevant one as needed. No use fighting what looks like a bug somewhere.

Thank you all for the time and effort.

You're a genius, and it works. Here my modified code.

cogier said

ForeverNoob said

OK, this is what I'm going to do: I'll create 2 TrayIcons, each with it's own icon, and just hide or show the relevant one as needed. No use fighting what looks like a bug somewhere.

Thank you all for the time and effort.

You're a genius, and it works. Here's my modified code.

Code (gambas)

1. ' Gambas class file
2.  
3. bSwitch As Boolean
4. Timer1 As Timer
5. TrayIcon1 As Trayicon
6. TrayIcon2 As Trayicon
7. Label1 As Label
8.  
9. Public Sub Form_Open()
10.  
11.   With Me
12.     .Height = 300
13.     .Width = 650
14.     .Arrangement = Arrange.Vertical
15.     .Padding = 5
16.   End With
17.  
18.   With Label1 = New Label(Me) As "Label1"
19.     .Expand = True
20.     .Height = 28
21.     .Font.Size = 60
22.     .Font.Bold = True
23.     .Alignment = Align.Center
24.   End With
25.  
26.   With TrayIcon1 = New TrayIcon As "TrayIcon1"
27.     .Tooltip = "Connected"
28.     .Picture = Picture["icon:/22/connect"]
29.   End With
30.  
31.   With TrayIcon2 = New TrayIcon As "TrayIcon2"
32.     .Tooltip = "Not Connected"
33.     .Picture = Picture["icon:/22/close"]
34.   End With
35.  
36.   With Timer1 = New Timer As "Timer1"
37.     .Delay = 3000
38.     .Trigger
39.     .Start
40.   End With
41.  
42. End
43.  
44. Public Sub Timer1_Timer()
45.  
46.   If bSwitch = False Then
47.     TrayIcon1.Show
48.     TrayIcon2.Hide
49.     TrayIcon1.Tooltip = "Connected"
50.     Label1.Text = "Connected"
51.   Else
52.     TrayIcon1.Hide
53.     TrayIcon2.Show
54.     TrayIcon1.Tooltip = "Not connected"
55.     Label1.Text = "Not connected"
56.   End If
57.  
58.   bSwitch = Not bSwitch
59.  
60. End
61.  
62. Public Sub Form_Close()
63.  
64.   TrayIcon1.Delete                                  'This stops the program from continuing to run
65.  
66. End

  Thanks a lot!