<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>