[Gambas-user] New Systray

Benoît Minisini g4mba5 at gmail.com
Mon May 11 18:39:29 CEST 2020


Hi,

System tray now works with QT5 since commit 
https://gitlab.com/gambas/gambas/-/commit/4ffe07752918a3111f4d660636391b8e5a11cb5b.

Note that there is still a display problem.

Regards,

Le 26/04/2020 à 19:32, herberth guzman a écrit :
> Hi
> 
> I cannot solve the problem of the system tray with gambas3-gb-qt5
> but my temporary solution to my project is to work my OS in debian
> and not in ubuntu to continue with gambas3-gb-qt4 and in the future see 
> if I work with gambas3- gb-gtk3
> but at the moment it gives me errors with this component, my project 
> doesn't work.
> 
> Regards
> 
> 
> El jue., 23 abr. 2020 a las 10:59, herberth guzman 
> (<herberthguzman at gmail.com <mailto:herberthguzman at gmail.com>>) escribió:
> 
>     The code is:
> 
>     ' Gambas class file
> 
>     Private $hTrayIcons As New TrayIcon[]
>     Public Sub Form_Open()
>     Dim hTray As TrayIcon
> 
>        Dim i As Integer
>        Dim hDBusApplication As DBusApplication
>        Dim hConnection As DBusConnection
>        Dim hDBusProxy As DBusProxy
>        Dim sDBusName, sDBusObjectPath, sDBusInterface As String
>        Dim aChildren As New String[]
>        Dim aVal As Variant[]
>        Dim s As String
> 
> 
>        sDBusName = "org.freedesktop.NetworkManager"
>        hConnection = DBus.System
>        hDBusApplication = New DBusApplication(hConnection, sDBusName)
> 
>        sDBusObjectPath = "/org/freedesktop/NetworkManager"
>        sDBusInterface = "org.freedesktop.NetworkManager"
>        hDBusProxy = New DBusProxy(hDBusApplication, sDBusObjectPath,
>     sDBusInterface)
> 
>        aChildren = hDBusProxy.Children
> 
>        txaReport.Insert(gb.NewLine)
>        For i = 0 To aChildren.Max
>          txaReport.Insert(sDBusObjectPath &/ aChildren[i] & gb.NewLine)
>        Next
> 
>        s =
>     DBus["system://org.freedesktop.NetworkManager"]["/org/freedesktop/NetworkManager",
>     "org.freedesktop.NetworkManager"].GetAllDevices().Join("\n")
>       Print s
> 
>       If s Then
>          hTray = New TrayIcon
>          hTray.Name = s
>          $hTrayIcons.Add(hTray)
>          hTray.Icon = Picture["icon:/32/connect"]
>          Endif
>        'Next
> 
>         dwgSystemTray.Refresh
> 
>     End
> 
>     El mié., 22 abr. 2020 a las 21:44, herberth guzman
>     (<herberthguzman at gmail.com <mailto:herberthguzman at gmail.com>>) escribió:
> 
>         Hi Benoit
> 
>         I don't have the necessary knowledge for everything I want to
>         do, but I try.
> 
>         I want to make a system tray, could you check my code please.
> 
>         Could you help me as I managed to get the popup menu of
>         networkmanager (example list of wifi networks) by clicking on
>         the icon of the network menu and at the same time if you think I
>         am on the right path to continue or could you advise me please.
> 
>         i need my new system tray
> 
>         at the moment i need networkmanager
>         but in the future I need to show any app in the systray (example
>         vlc, audio, others)
> 
>         thank you very much
> 
> 
> 
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
> 


-- 
Benoît Minisini


More information about the User mailing list