Logikproblem Schleife
Verfasst: 30.06.2006 12:03
Hallo zusammen - ich mal wieder - ich experimentiere gerade ein wenig herum mit einer Statusbar - da hab ich folgendes Problem: wenn ich das Fenster mit einem Rechtsklick öffne schaff ich es entweder dass A) die Uhrzeit in der STatusbar nicht weiterläuft oder b) die Uhrzeit weiter läuft - jedoch kein Button mehr geht - ich klemm quasi - vielleicht hat mir hier jeamdn n guten Tipp - bzw. gleich nen richtigen Code 

Code: Alles auswählen
LoadFont(0, "Tahoma", 8)
SetGadgetFont(#PB_Default, FontID(0))
If OpenWindow(0001, 100, 150, 300, 100, "(H)iveworx (C)lient", #PB_Window_Invisible|#PB_Window_SystemMenu)
CreateGadgetList(WindowID(0001))
AddSysTrayIcon(1, WindowID(0001), LoadImage(0, "bin\icons\cherry.ico"))
SysTrayIconToolTip(1, "(H)iveworx (E)ngine (C)lient")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_SysTray
If EventType() = #PB_EventType_RightClick
OpenWindow(0002,1,1,640,480,"(H)iveworx (E)ngine (C)lient",#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0002))
ContainerGadget(0003, 0, 420, 640, 40,#PB_Container_Single)
SetGadgetColor(0003, #PB_Gadget_BackColor ,RGB(255, 255, 255))
ButtonGadget(0004,534,20,100,16,"Minimieren")
ButtonGadget(0007,534,3,100,16,"Beenden")
TextGadget(0005,4,2,400,30,"Created 2006 by Hiveworx - Engine V.1.24 (Earthlink)")
SetGadgetColor(0005, #PB_Gadget_BackColor ,RGB(0, 0, 0))
SetGadgetColor(0003, #PB_Gadget_BackColor ,RGB(0, 0, 0))
SetGadgetColor(0005,#PB_Gadget_FrontColor,RGB(128, 128, 128))
CloseGadgetList()
CreateStatusBar(0009, WindowID(0002))
AddStatusBarField(100)
AddStatusBarField(540)
PanelGadget (0, 2, 2, 636, 414)
AddGadgetItem (0, -1, "Status")
Frame3DGadget(0010, 4, 4, 624, 380, "Status")
AddGadgetItem (0, -1, "Account")
Frame3DGadget(0011, 4, 4, 624, 380, "Account")
AddGadgetItem (0, -1, "Einstellungen")
Frame3DGadget(0012, 4, 4, 624, 380, "Einstelungen")
AddGadgetItem (0, -1, "Update")
Frame3DGadget(0013, 4, 4, 624, 380, "Update")
AddGadgetItem (0, -1, "Log")
Frame3DGadget(0014, 4, 4, 624, 380, "Log")
AddGadgetItem (0, -1, "Neuigkeiten")
Frame3DGadget(0008, 4, 4, 624, 380, "Neuigkeiten")
WebGadget(0006, 8, 18, 616, 360, "hiveworx.dyndns.org", #PB_Web_Mozilla)
Repeat
Event =WindowEvent()
If Event = #PB_Event_Gadget
;Debug EventGadget()
Select EventGadget()
Case 0004:
CloseWindow(0002)
Case 0007:
End
EndSelect
EndIf
StatusBarText(0009, 0, FormatDate("%hh:%ii:%ss", Date()))
Until Quit = 1
EndIf
EndIf
If Event = #PB_Event_Gadget
;Debug EventGadget()
Select EventGadget()
Case 0004:
CloseWindow(0002)
Case 0007:
End
EndSelect
EndIf
Until Quit=1
EndIf