Systray unter Windows 10

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Thomas
Beiträge: 893
Registriert: 06.07.2006 19:24
Wohnort: Regensburg
Kontaktdaten:

Systray unter Windows 10

Beitrag 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
v6.00
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Systray unter Windows 10

Beitrag 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

Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
Thomas
Beiträge: 893
Registriert: 06.07.2006 19:24
Wohnort: Regensburg
Kontaktdaten:

Re: Systray unter Windows 10

Beitrag von Thomas »

Bei mir scheinbar nicht ... (hab alles aktiviert)

Bild
v6.00
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Systray unter Windows 10

Beitrag 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.
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
Thomas
Beiträge: 893
Registriert: 06.07.2006 19:24
Wohnort: Regensburg
Kontaktdaten:

Re: Systray unter Windows 10

Beitrag 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 :|
v6.00
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Systray unter Windows 10

Beitrag 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.
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Antworten