Seite 1 von 1

Systray unter Windows 10

Verfasst: 14.06.2018 11:34
von Thomas
Hallo,

irgendwie schaffe ich es nicht unter Windows 10 mein Programm im Systray anzuzeigen.
Habe ich irgendetwas verpasst, gibt's das da nicht mehr?

(Ich hatte natürlich schon allen Programmen die Berechtigung gegeben da was anzuzeigen, nur meines war nicht aufgelistet)

Grüße
Thomas

Re: Systray unter Windows 10

Verfasst: 14.06.2018 11:38
von RSBasic
Zeig mal deinen Code bzw. erstelle daraus einen kleinen Code zum Nachvollziehen.

In der PB-Hilfe gibt es einen Beispielcode, der einwandfrei funktioniert:
PureBasic - SysTray example file hat geschrieben:

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - SysTray example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;
; Note: on some Linux distributions (like Ubuntu), the systray icons can be hidden by default. For more information
; see this link: http://ubuntugenius.wordpress.com/2011/06/25/ubuntu-11-04-fix-show-all-iconsindicators-in-unity-panels-notification-area/
;


If OpenWindow(0, 100, 150, 300, 100, "PureBasic - SysTray Example", #PB_Window_SystemMenu)

  CompilerIf #PB_Compiler_OS = #PB_OS_Windows
    ; .ico format is available only on Windows
    IconName$ = #PB_Compiler_Home + "examples/sources/Data/CdPlayer.ico"
  CompilerElse
    IconName$ = #PB_Compiler_Home + "examples/sources/Data/Drive.bmp"
  CompilerEndIf
  
  AddSysTrayIcon(1, WindowID(0), LoadImage(0, IconName$))
  AddSysTrayIcon(2, WindowID(0), LoadImage(1, IconName$))
  SysTrayIconToolTip(1, "Icon 1")
  SysTrayIconToolTip(2, "Icon 2")
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_SysTray
      If EventType() = #PB_EventType_LeftDoubleClick
        MessageRequester("SysTray", "Left DoubleClick on SysTrayIcon "+Str(EventGadget()),0)
        
        ChangeSysTrayIcon (EventGadget(), LoadImage(0, IconName$))
        SysTrayIconToolTip(EventGadget(), "Changed !")
      EndIf
      
    EndIf
  Until Event = #PB_Event_CloseWindow
  
EndIf


Re: Systray unter Windows 10

Verfasst: 14.06.2018 12:20
von Thomas
Bei mir scheinbar nicht ... (hab alles aktiviert)

Bild

Re: Systray unter Windows 10

Verfasst: 14.06.2018 12:33
von RSBasic
Ist bei dir die Einstellung "Immer alle Symbole im Benachrchtigungsbereich anzeigen" in den Taskleistem-Einstellungen aktiviert?
Wenn ja, dann ist es komisch. Hast die neuste PB-Version frisch installiert oder bei einer bestehenden Version drüber installiert? Es gab damals mal so ein Problem. Versuche mal, PB 5.62 neu zu installieren.

Re: Systray unter Windows 10

Verfasst: 14.06.2018 12:51
von Thomas
RSBasic hat geschrieben:Ist bei dir die Einstellung "Immer alle Symbole im Benachrchtigungsbereich anzeigen" in den Taskleistem-Einstellungen aktiviert?
Wenn ja, dann ist es komisch. Hast die neuste PB-Version frisch installiert oder bei einer bestehenden Version drüber installiert? Es gab damals mal so ein Problem. Versuche mal, PB 5.62 neu zu installieren.
Ist aktiviert, ja.
Natürlich drüber installiert :|

Re: Systray unter Windows 10

Verfasst: 14.06.2018 13:40
von RSBasic
Wenn du PB neu installiert hast, kannst du ja gerne schreiben, ob das Problem immer noch besteht oder ob das die Lösung war.