#PB_EventGadged in PureBasic 4

[a14xerus]

ich habe einen code aus PB 3.9 bei PB 4 versucht zu starten...
ein paar änderungen musste ich machen.. und habs auc halleien geschafft, aber was ist in Purebasic 4 der ersatz für

Code: Alles auswählen

Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadged
  GadgetID = EventGadgetID()

Code: Alles auswählen

#PB_EventGadged

???

[ts-soft]

Code: Alles auswählen

EventGadgetID() = EventGadget()

[a14xerus]

ok, selbst gelöst

Code: Alles auswählen

#PB_Event_Gadget

//edit
mist ich war zu langsam.. trotzdem danke

[Slut-Hunter]

mein Gott ich schäme mich grade zu Grund und Boden, ich probier hier jetzt schon seit über na Stunde dran rum, aber packs ums verrecken nicht auch nur das Grundgerüst hinzukriegen.

Und das Case Beispiel und der Hilfe bringt mich nicht wirklich weiter.

Habs im Moment so.

Code: Alles auswählen

If OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  
  
  CreateGadgetList(WindowID(0))
   ButtonGadget(1,20,20,100,20,"Blablabla")

 
      Repeat

    Event = WaitWindowEvent()
    Event = #PB_Event_Gadget
  
    If Event = 1
    MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig",    #PB_MessageRequester_Ok)
     
      EndIf
   
  Until Event = #PB_Event_CloseWindow 
  
     EndIf 
  
    End

[Kiffi]

Code: Alles auswählen

If OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  
  CreateGadgetList(WindowID(0))
  ButtonGadget(1,20,20,100,20,"Blablabla")
  
  Repeat
    
    WaitWindowEvent = WaitWindowEvent()
    EventGadget     = EventGadget()
    
    Select WaitWindowEvent
      
      Case #PB_Event_Gadget
        
        Select EventGadget
          
          Case 1
            MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig",    #PB_MessageRequester_Ok)
            
        EndSelect
        
      Case #PB_Event_CloseWindow
        Quit = 1
        
    EndSelect
    
  Until Quit = 1
  
EndIf
 
End 

[Slut-Hunter]

Danke für die Hilfe, aber geht das nur noch mit Case ?

Weil ich kenn das nur mit dem If Kramm

[Kiffi]

> Danke für die Hilfe, aber geht das nur noch mit Case ?

nein, Du kannst auch den 'If-Kram' nehmen, wenn Du besser damit
zurechtkommst.

Grüße ... Kiffi

[Slut-Hunter]

Ok werde es probieren, danke nochmal.

Gruß Slut-Hunter

[bobobo]

nimm den mitgelieferten Visual-Designer ..
der macht Dir ein passendes Gerüst in korrekter PB4-Syntax
(wenn Du die EreignisSchleife in den Optionen anhakst)

[Slut-Hunter]

Ok werde es so machen, falls ich es die nächste Stunde nicht hinkrieg, hab extrem viel PB 3.94 Code mit mehreren Threats den ich portieren wollte, hab alles hingekriegt, nur das mit den Event Buttons krieg ich nicht gebacken.

d.H auch nur dieser kleine Test Schnipsel.

Es will einfach nicht aus der Repeat Schleife raus, hab schon alle möglichen kombinationen probiert mit bei openwindow mit if, dann ohne if.

dann ein paar Endif mehr, bei until mit WaitWindowEvent dann mit EventGadget usw

Code: Alles auswählen

OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 
CreateGadgetList(WindowID(0))
ButtonGadget(1,20,20,100,20,"Test1")
ButtonGadget(2,20,40,100,20,"Test2")
 


  Repeat
   
     EventGadget     = EventGadget()
     WaitWindowEvent = WaitWindowEvent(0)     
  
     If EventGadget = 1
     MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig",#PB_MessageRequester_Ok)
     EndIf
   
     If EventGadget = 2
     MessageRequester("Verdammt", "funz endlich richtig",#PB_MessageRequester_Ok)
     EndIf       
 
Until EventGadget = #PB_Event_CloseWindow

End