PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

auf Systrayicon geklickt,nix öffnet sich

https://www.purebasic.fr/german/viewtopic.php?t=1277

Seite 1 von 1

auf Systrayicon geklickt,nix öffnet sich

Verfasst: 18.12.2004 13:11
von captain third
ich hab ein problem,und zwar,wenn ich auf den systray button klicke,dann ist das alles unten als systray,das is ja schöm,aber wenn ich doppelklick auf das systray mache,gehts nimma auf auf!

hier der code

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;

NewList Client.l() 
InitNetwork() 
CreateNetworkServer(600) 

Enumeration
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Button_5
  #Text_0
  #Button_6
  #Button_7
  #Button_8
  #Text_1
  #Panel_0
  #Button_9
  #Button_10
  #Button_11
  #Image_1
  #Button_12
  #Panel_1
  #Panel_2
  #Button_22
  #Button_17
  #Button_13
  #Button_14
  #Button_15
  #Button_16
  #Button_18
  #Button_19
  #Button_20
  #Button_21
  #Hyperlink_1
  #Hyperlink_2
  #Hyperlink_3
  #Hyperlink_4
  #Hyperlink_5
  #Hyperlink_6
  #Hyperlink_7
  #Hyperlink_8
  #Hyperlink_9
  #Hyperlink_10
  #Hyperlink_11
  #Hyperlink_12
  #Senden
  #Incoming2
  #Incoming
  #Sendenbutton
  #Hidebutton
EndEnumeration

;- Fonts
;
Global FontID1
FontID1 = LoadFont(1, "Modern", 16, #PB_Font_Bold)
Global FontID2
FontID2 = LoadFont(2, "Modern", 10, #PB_Font_Bold)
;- Image Plugins

;- Image Globals
Global Image0

;- Catch Images
Image0 = CatchImage(0, ?Image0)

;- Images
DataSection
Image0:
  IncludeBinary "C:\Eigene Dateien\Eigene Bilder\Welcome Third.bmp"
EndDataSection

  If OpenWindow(#Window_0, 229, 25, 600, 300,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "AdminTool Powerd and © by Third")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_1, 10, 20, 140, 40, "Server", #PB_Button_Default)
      GadgetToolTip(#Button_1, "Chat Server v.0.5")
      SetGadgetFont(#Button_1, FontID1)
      ButtonGadget(#Button_2, 10, 70, 140, 40, "Client", #PB_Button_Default)
      GadgetToolTip(#Button_2, "Chat Client v.1.9.0.9")
      SetGadgetFont(#Button_2, FontID1)
      ButtonGadget(#Button_3, 10, 120, 140, 40, "HomePlanet", #PB_Button_Default)
      GadgetToolTip(#Button_3, "HomePlanet")
      SetGadgetFont(#Button_3, FontID1)
      ButtonGadget(#Button_4, 10, 170, 140, 40, "Pure basic", #PB_Button_Default)
      GadgetToolTip(#Button_4, "Pure Basic Compiler")
      SetGadgetFont(#Button_4, FontID1)
      ButtonGadget(#Button_5, 10, 220, 140, 40, "PB-Designer", #PB_Button_Default)
      GadgetToolTip(#Button_5, "Pure Basic Visual Designer")
      SetGadgetFont(#Button_5, FontID1)
      TextGadget(#Text_0, 30, 0, 100, 20, "Anwendungen", #PB_Text_Center)
      ButtonGadget(#Button_6, 440, 20, 140, 40, "Server", #PB_Button_Default)
      GadgetToolTip(#Button_6, "Script für den Server 0.5")
      SetGadgetFont(#Button_6, FontID1)
      ButtonGadget(#Button_7, 440, 70, 140, 40, "Client", #PB_Button_Default)
      GadgetToolTip(#Button_7, "Script für den Client 1.9.0.9")
      SetGadgetFont(#Button_7, FontID1)
      ButtonGadget(#Button_8, 440, 120, 140, 40, "Admintool", #PB_Button_Default)
      GadgetToolTip(#Button_8, "Script für das AdminTool")
      SetGadgetFont(#Button_8, FontID1)
      TextGadget(#Text_1, 460, 0, 100, 20, "Scripts", #PB_Text_Center)
      ImageGadget(#Image_1, 160, 20, 270, 90, Image0)
      ButtonGadget(#Button_12, 440, 170, 140, 40, "Eddy's Admintool", #PB_Button_Default)
      SetGadgetFont(#Button_12, FontID1)
      EditorGadget(#Incoming2, 440, 220, 150, 70)
      ButtonGadget(#Hidebutton, 10, 270, 140, 20, "Systray", #PB_Button_Default)
      SetGadgetFont(#Hidebutton, FontID2)

      ;- Panel0
      PanelGadget(#Panel_0, 160, 120, 270, 180)
      AddGadgetItem(#Panel_0, -1, "Ordner")
      ButtonGadget(#Button_9, 8, 18, 100, 20, "Eigene Dateien", #PB_Button_Default)
      ButtonGadget(#Button_10, 8, 38, 100, 20, "Pure Basic", #PB_Button_Default)
      ButtonGadget(#Button_11, 8, 58, 100, 20, "Clonk Planet", #PB_Button_Default)
      AddGadgetItem(#Panel_0, -1, "InternetLinks")
      
      ;- Parts
      PanelGadget(#Panel_1, 8, 8, 250, 140)
      AddGadgetItem(#Panel_1, -1, "#1")
      HyperLinkGadget(#Hyperlink_1, 8, 8, 100, 20, "CCAN", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_2, 8, 28, 100, 20, "Clonk", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_3, 8, 48, 100, 20, "Pure Board", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_4, 8, 68, 100, 20, "PureArea", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_5, 8, 88, 100, 20, "Robsite", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_6, 138, 8, 100, 20, "Knuddels", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_7, 138, 28, 100, 20, "Eigene Homepage", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_8, 138, 48, 100, 20, "Neopets", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_9, 138, 68, 100, 20, "Marilyn Manson", RGB(0, 0, 0))
      GadgetToolTip(#Hyperlink_9, "Internationale Seite")
      HyperLinkGadget(#Hyperlink_10, 138, 88, 100, 20, "Marilyn Manson", RGB(0, 0, 0))
      GadgetToolTip(#Hyperlink_10, "Deutsche Seite")
      AddGadgetItem(#Panel_1, -1, "#2")
      HyperLinkGadget(#Hyperlink_11, 8, 8, 100, 20, "Passi-Forum", RGB(0, 0, 0))
      HyperLinkGadget(#Hyperlink_12, 8, 28, 100, 20, "Eddy's Clanpage", RGB(0, 0, 0))
      GadgetToolTip(#Hyperlink_12, "www.vss-striker.de.vu")
      CloseGadgetList()
      AddGadgetItem(#Panel_0, -1, "Weitere Anwendungen")
      
      ;- Panel13
      PanelGadget(#Panel_2, 8, 8, 250, 140)
      AddGadgetItem(#Panel_2, -1, "#1")
      ButtonGadget(#Button_22, 8, 8, 100, 20, "Trillian", #PB_Button_Default)
      ButtonGadget(#Button_17, 138, 8, 100, 20, "Wecker", #PB_Button_Default)
      ButtonGadget(#Button_13, 8, 28, 100, 20, "Sygate-Firewall", #PB_Button_Default)
      ButtonGadget(#Button_14, 8, 48, 100, 20, "Clonk Planet", #PB_Button_Default)
      ButtonGadget(#Button_15, 8, 68, 100, 20, "Soldat", #PB_Button_Default)
      ButtonGadget(#Button_16, 8, 88, 100, 20, "Emule", #PB_Button_Default)
      ButtonGadget(#Button_18, 138, 28, 100, 20, "T-Online", #PB_Button_Default)
      ButtonGadget(#Button_19, 138, 48, 100, 20, "RegCleaner", #PB_Button_Default)
      ButtonGadget(#Button_20, 138, 68, 100, 20, "Winamp", #PB_Button_Default)
      ButtonGadget(#Button_21, 138, 88, 100, 20, "Knuddels Chatbot", #PB_Button_Default)
      CloseGadgetList()
      AddGadgetItem(#Panel_0, -1, "Server")
      StringGadget(#Senden, 8, 128, 170, 20, "")
      EditorGadget(#Incoming, 8, 8, 250, 110)
      ButtonGadget(#Sendenbutton, 188, 128, 70, 20, "Senden", #PB_Button_Default)
      SetGadgetFont(#Sendenbutton, FontID2)
      CloseGadgetList()
      GadgetToolTip(#Panel_0, "Schnellordner")
;-------------------------------------------------------------------------------
;--------------------Systray----------------------------------------------------
AddSysTrayIcon(1, WindowID(), LoadImage(1, "C:\Programme\PureBasic\Examples\Sources\Data\CdPlayer.ico"))
SysTrayIconToolTip(1, "Test")      
;------------------------------------------------------------------------------- 
 
 
 
 
     Repeat 
;Server

Buffer = AllocateMemory(1024) 
        If EventID = #PB_Event_Gadget 
         If EventGadgetID()=#Sendenbutton 
          Text$ = GetGadgetText(#Senden) 
          ForEach Client() 
          SendNetworkString(Client(), "Third : " +Text$) 
          AddGadgetItem(#Incoming, -1,"Third : " +Text$) 
          Next 
          SetGadgetText(#Senden, "") 
         EndIf 
        EndIf 
       If EventID = 0 
        Delay(100) 
      
       EndIf 
        ;Server 
  SEvent.l = NetworkServerEvent() 
  
  ;If SEvent 
  
  ClientID = NetworkClientID() 
  
  Select SEvent 
    
    Case 1 
      AddGadgetItem(#Incoming2, -1,"Ein neuer Client ist online") 
      AddElement(Client()) 
      Client() = ClientID 
                
    Case 2 
      AddGadgetItem(#Incoming2,-1,"New Message")
      ReceiveNetworkData(ClientID, Buffer, 1000) 
      AddGadgetItem(#Incoming, -1, PeekS(Buffer)) 
      ForEach Client() 
        If Client() <> ClientID 
          SendNetworkString(Client(), PeekS(Buffer)) 
        EndIf 
      Next 
      
      Case 3 
      ;noch nix 
      
      Case 4 
      AddGadgetItem(#Incoming2, -1,"Ein Client hat den Server verlassen") 
      EndSelect 
  
      FreeMemory(Buffer) 
      
     EventID = WaitWindowEvent() 
     If EventID = #PB_Event_CloseWindow 
       Quit = 1 
     EndIf 
     If EventID = #PB_Event_Gadget 
      If EventGadgetID()=#Button_1 
        RunProgram("C:\WINDOWS\Desktop\Chat-Server1.0.exe") 
      EndIf 
      If EventGadgetID()=#Button_2 
       RunProgram("C:\WINDOWS\Desktop\Chat-Client v.1.9.0.9.exe") 
      EndIf 
      If EventGadgetID()=#Button_3 
       RunProgram("C:\Programme\Homeplanet\HPLANET.EXE") 
      EndIf 
      If EventGadgetID()=#Button_4 
       RunProgram("C:\Programme\PureBasic\PureBasic.exe") 
      EndIf 
      If EventGadgetID()=#Button_5 
       RunProgram("C:\Programme\PureBasic\Visual Designer.exe") 
      EndIf 
      If EventGadgetID()=#Button_6 
       RunProgram("C:\Programme\PureBasic\eigene Dateien\Test-conoleSERVER.pb") 
      EndIf 
      If EventGadgetID()=#Button_7 
       RunProgram("C:\Programme\PureBasic\eigene Dateien\Testclient1.9.0.8.pb") 
      EndIf 
      If EventGadgetID()=#Button_8 
       RunProgram("C:\Programme\PureBasic\eigene Dateien\Admintool full.pb") 
      EndIf 
      If EventGadgetID()=#Button_12
       RunProgram("C:\Programme\PureBasic\eigene Dateien\Eddy AdminTool\Admintool 0.1.pb")
      EndIf
      If EventGadgetID()=#Hyperlink_1
       RunProgram("www.ccan.de")
      EndIf
      If EventGadgetID()=#Hyperlink_2
       RunProgram("www.Clonk.de")
      EndIf
      If EventGadgetID()=#Hyperlink_3
       RunProgram("www.pure-board.de")
      EndIf
      If EventGadgetID()=#Hyperlink_4
       RunProgram("www.purearea.net")
      EndIf
      If EventGadgetID()=#Hyperlink_5
       RunProgram("www.robsite.de")
      EndIf
      If EventGadgetID()=#Hyperlink_6
       RunProgram("www.Knuddelz.de")
      EndIf
      If EventGadgetID()=#Hyperlink_7
       RunProgram("www.mm.co9.de")
      EndIf
      If EventGadgetID()=#Hyperlink_8
       RunProgram("www.neopets.de")
      EndIf
      If EventGadgetID()=#Hyperlink_9
       RunProgram("www.marilynmanson.com")
      EndIf
      If EventGadgetID()=#Hyperlink_10
       RunProgram("www.marilynmanson.de")
      EndIf
      If EventGadgetID()=#Hyperlink_11
       RunProgram("www.passi-umfrage.dl.ag")
      EndIf
      If EventGadgetID()=#Hyperlink_12
       RunProgram("www.vss-striker.de.vu")
      EndIf
      If EventGadgetID()=#Button_22
       RunProgram("C:\Programme\Trillian\trillian.exe") 
      EndIf
      If EventGadgetID()=#Button_17
       RunProgram("C:\Programme\Wecker 2.2\wecker220.exe")
      EndIf
      If EventGadgetID()=#Button_13
       RunProgram("C:\Programme\Sygate\SPF\Smc.exe") 
      EndIf
      If EventGadgetID()=#Button_14
       RunProgram("C:\Programme\ClonkPlanet\Planet.exe") 
      EndIf
      If EventGadgetID()=#Button_15
       RunProgram("C:\Soldat\Soldat.exe") 
      EndIf
      If EventGadgetID()=#Button_16
       RunProgram("C:\Programme\eMule.de\emule.exe") 
      EndIf
      If EventGadgetID()=#Button_18
       RunProgram("C:\T-Online\BSW4\ONLINE.EXE")
      EndIf
      If EventGadgetID()=#Button_19
       RunProgram("C:\Prevent\RegCleaner\RegCleanr.exe")
      EndIf
      If EventGadgetID()=#Button_20
       RunProgram("C:\Programme\Winamp\winamp.exe")
      EndIf
      If EventGadgetID()=#Button_21
       RunProgram("C:\Eigene Dateien\Knuddels Chatbot Sendtext.exe")
      EndIf
      If EventGadgetID()=#Hidebutton
       HideWindow(#Window_0,1)  
      EndIf    
;-------------------------------Systray icon--------------------------------
      If EventID = #PB_Event_SysTray 
       If EventType() = #PB_EventType_LeftDoubleClick
        HideWindow(#Window_0,0)
       EndIf
      EndIf
;-----------------------------------------------------------------------------
     
     EndIf 
    Until Quit = 1 
  EndIf 
 End 
EndIf

Verfasst: 18.12.2004 13:50
von Franky
Ganz einfach, du hast die Systrayabfrage aus versehen in die Eventgadgetabfrage eingebaut.
Mach mal das eine Endif über das if eventid=#pb_event_sytray :)

Verfasst: 18.12.2004 14:23
von captain third
upsi danke :mrgreen: war schon richtig verzweifelt :mrgreen: :mrgreen: :mrgreen:

Verfasst: 18.12.2004 15:33
von Franky
Kann man mal haben, sollte nur nicht zur Regel werden :wink:
Alle Zeiten sind UTC+02:00
Seite 1 von 1

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de