<div dir="auto">Benoit thank you very much for the system tray already installed and it is functional.</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El lun., 11 may. 2020 10:40 a. m., Benoît Minisini <<a href="mailto:g4mba5@gmail.com">g4mba5@gmail.com</a>> escribió:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
System tray now works with QT5 since commit <br>
<a href="https://gitlab.com/gambas/gambas/-/commit/4ffe07752918a3111f4d660636391b8e5a11cb5b" rel="noreferrer noreferrer" target="_blank">https://gitlab.com/gambas/gambas/-/commit/4ffe07752918a3111f4d660636391b8e5a11cb5b</a>.<br>
<br>
Note that there is still a display problem.<br>
<br>
Regards,<br>
<br>
Le 26/04/2020 à 19:32, herberth guzman a écrit :<br>
> Hi<br>
> <br>
> I cannot solve the problem of the system tray with gambas3-gb-qt5<br>
> but my temporary solution to my project is to work my OS in debian<br>
> and not in ubuntu to continue with gambas3-gb-qt4 and in the future see <br>
> if I work with gambas3- gb-gtk3<br>
> but at the moment it gives me errors with this component, my project <br>
> doesn't work.<br>
> <br>
> Regards<br>
> <br>
> <br>
> El jue., 23 abr. 2020 a las 10:59, herberth guzman <br>
> (<<a href="mailto:herberthguzman@gmail.com" target="_blank" rel="noreferrer">herberthguzman@gmail.com</a> <mailto:<a href="mailto:herberthguzman@gmail.com" target="_blank" rel="noreferrer">herberthguzman@gmail.com</a>>>) escribió:<br>
> <br>
> The code is:<br>
> <br>
> ' Gambas class file<br>
> <br>
> Private $hTrayIcons As New TrayIcon[]<br>
> Public Sub Form_Open()<br>
> Dim hTray As TrayIcon<br>
> <br>
> Dim i As Integer<br>
> Dim hDBusApplication As DBusApplication<br>
> Dim hConnection As DBusConnection<br>
> Dim hDBusProxy As DBusProxy<br>
> Dim sDBusName, sDBusObjectPath, sDBusInterface As String<br>
> Dim aChildren As New String[]<br>
> Dim aVal As Variant[]<br>
> Dim s As String<br>
> <br>
> <br>
> sDBusName = "org.freedesktop.NetworkManager"<br>
> hConnection = DBus.System<br>
> hDBusApplication = New DBusApplication(hConnection, sDBusName)<br>
> <br>
> sDBusObjectPath = "/org/freedesktop/NetworkManager"<br>
> sDBusInterface = "org.freedesktop.NetworkManager"<br>
> hDBusProxy = New DBusProxy(hDBusApplication, sDBusObjectPath,<br>
> sDBusInterface)<br>
> <br>
> aChildren = hDBusProxy.Children<br>
> <br>
> txaReport.Insert(gb.NewLine)<br>
> For i = 0 To aChildren.Max<br>
> txaReport.Insert(sDBusObjectPath &/ aChildren[i] & gb.NewLine)<br>
> Next<br>
> <br>
> s =<br>
> DBus["system://org.freedesktop.NetworkManager"]["/org/freedesktop/NetworkManager",<br>
> "org.freedesktop.NetworkManager"].GetAllDevices().Join("\n")<br>
> Print s<br>
> <br>
> If s Then<br>
> hTray = New TrayIcon<br>
> hTray.Name = s<br>
> $hTrayIcons.Add(hTray)<br>
> hTray.Icon = Picture["icon:/32/connect"]<br>
> Endif<br>
> 'Next<br>
> <br>
> dwgSystemTray.Refresh<br>
> <br>
> End<br>
> <br>
> El mié., 22 abr. 2020 a las 21:44, herberth guzman<br>
> (<<a href="mailto:herberthguzman@gmail.com" target="_blank" rel="noreferrer">herberthguzman@gmail.com</a> <mailto:<a href="mailto:herberthguzman@gmail.com" target="_blank" rel="noreferrer">herberthguzman@gmail.com</a>>>) escribió:<br>
> <br>
> Hi Benoit<br>
> <br>
> I don't have the necessary knowledge for everything I want to<br>
> do, but I try.<br>
> <br>
> I want to make a system tray, could you check my code please.<br>
> <br>
> Could you help me as I managed to get the popup menu of<br>
> networkmanager (example list of wifi networks) by clicking on<br>
> the icon of the network menu and at the same time if you think I<br>
> am on the right path to continue or could you advise me please.<br>
> <br>
> i need my new system tray<br>
> <br>
> at the moment i need networkmanager<br>
> but in the future I need to show any app in the systray (example<br>
> vlc, audio, others)<br>
> <br>
> thank you very much<br>
> <br>
> <br>
> <br>
> ----[ <a href="http://gambaswiki.org/wiki/doc/netiquette" rel="noreferrer noreferrer" target="_blank">http://gambaswiki.org/wiki/doc/netiquette</a> ]----<br>
> <br>
<br>
<br>
-- <br>
Benoît Minisini<br>
<br>
----[ <a href="http://gambaswiki.org/wiki/doc/netiquette" rel="noreferrer noreferrer" target="_blank">http://gambaswiki.org/wiki/doc/netiquette</a> ]----<br>
</blockquote></div>