SystemTrayIcon

[Oliver1994]

Beitrag gelöscht

[cxAlex]

Code: Alles auswählen

Enumeration
  #Window
  #Image
  #Menu
EndEnumeration
Text$ = "TEST"
DateiName$ = "C:\fotos\ava\planet.ico"
#SysTrayIcon = #PB_Any
Ergebnis.l = OpenWindow(#Window, 1, 1, 1, 1, "", #PB_Window_Invisible)
WindowID.l = WindowID(#Window)
Ergebnis2.l = LoadImage(#Image, DateiName$)
ImageID.l = ImageID(#Image)
Ergebnis3.l = AddSysTrayIcon(#SysTrayIcon, WindowID, ImageID)
Ergebnis4.l = IsSysTrayIcon(#SysTrayIcon)
SysTrayIconToolTip(Ergebnis3, Text$) 

CreatePopupMenu(#Menu)
  MenuItem(1,"Test")
  MenuItem(2,"Test2")
  MenuItem(3,"Test3")
Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_SysTray 
      Select EventType()
        Case #PB_EventType_RightClick
          DisplayPopupMenu(#Menu,WindowID)
        Case #PB_EventType_LeftClick
          End
      EndSelect
  EndSelect
ForEver

[Oliver1994]

Beitrag gelöscht

[RSBasic]

Code: Alles auswählen

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    ;Gadgets...
  EndIf
  
  AddSysTrayIcon(1,WindowID(0),3)
  SysTrayIconToolTip(1,"Programm")
  
  If CreatePopupImageMenu(1,#PB_Menu_ModernLook)
    MenuItem(1,"Menuitem 1",0)
    MenuItem(2,"Menuitem 2",0)
    MenuItem(3,"Menuitem 3",0)
  EndIf
  
Repeat
EventID=WaitWindowEvent()
If EventID = #PB_Event_SysTray
  Select EventType()
    Case #PB_EventType_RightClick
      DisplayPopupMenu(1, WindowID(0))
  EndSelect
EndIf
If EventID = #PB_Event_Menu
  Select EventMenu()
    Case 1
      MessageRequester("","Menuitem 1 wurde angeklickt",0)
    Case 2
      MessageRequester("","Menuitem 2 wurde angeklickt",0)
    Case 3
      MessageRequester("","Menuitem 3 wurde angeklickt",0)
  EndSelect
EndIf
If EventID=#PB_Event_CloseWindow
  Quit=1
EndIf
Until Quit=1
EndIf

[ts-soft]

@RSBasic
Hätteste auch gleich ins Anfängerforum verschieben sollen

[RSBasic]

@ts-soft
Schon erledigt

[Oliver1994]

Beitrag gelöscht

[RSBasic]

Code: Alles auswählen

Enumeration
  #Window
  #Image
  #Menu
EndEnumeration
Text$ = "TEST"
DateiName$ = "C:\Dokumente und Einstellungen\Jens\Desktop\Web Server\icon.ico"
#SysTrayIcon = #PB_Any
Ergebnis.l = OpenWindow(#Window, 1, 1, 1, 1, "", #PB_Window_Invisible)
WindowID.l = WindowID(#Window)
Ergebnis2.l = LoadImage(#Image, DateiName$)
ImageID.l = ImageID(#Image)
Ergebnis3.l = AddSysTrayIcon(#SysTrayIcon, WindowID, ImageID)
Ergebnis4.l = IsSysTrayIcon(#SysTrayIcon)
SysTrayIconToolTip(Ergebnis3, Text$)

CreatePopupMenu(#Menu)
  MenuItem(1,"Test")
  MenuItem(2,"Test2")
  MenuItem(3,"Test3")
Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_SysTray
    Select EventType()
      Case #PB_EventType_RightClick
        DisplayPopupMenu(#Menu,WindowID)
    EndSelect
  EndIf
  If Event = #PB_Event_Menu
    Select EventMenu()
      Case 1
        MessageRequester("","Menuitem 1 wurde angeklickt",0)
      Case 2
        MessageRequester("","Menuitem 2 wurde angeklickt",0)
      Case 3
        MessageRequester("","Menuitem 3 wurde angeklickt",0)
    EndSelect
  EndIf
ForEver