auf Systrayicon geklickt,nix öffnet sich

Für allgemeine Fragen zur Programmierung mit PureBasic.
Antworten
Benutzeravatar
captain third
Beiträge: 194
Registriert: 12.12.2004 13:14
Kontaktdaten:
Kontaktdaten von captain third

auf Systrayicon geklickt,nix öffnet sich

Beitrag 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
Nach oben
Benutzeravatar
Franky
Beiträge: 1132
Registriert: 29.08.2004 16:31
Wohnort: Münsterland
Kontaktdaten:
Kontaktdaten von Franky

Beitrag 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 :)
Falsch zugeordnetes Zitat des Tages: "O'zapft is" - Edward Snowden :)
Nach oben
Benutzeravatar
captain third
Beiträge: 194
Registriert: 12.12.2004 13:14
Kontaktdaten:
Kontaktdaten von captain third

Beitrag von captain third »

upsi danke :mrgreen: war schon richtig verzweifelt :mrgreen: :mrgreen: :mrgreen:
Nach oben
Benutzeravatar
Franky
Beiträge: 1132
Registriert: 29.08.2004 16:31
Wohnort: Münsterland
Kontaktdaten:
Kontaktdaten von Franky

Beitrag von Franky »

Kann man mal haben, sollte nur nicht zur Regel werden :wink:
Falsch zugeordnetes Zitat des Tages: "O'zapft is" - Edward Snowden :)
Nach oben
Antworten

Zurück zu „Allgemein“