[PB4.5]kein Event bei SetGadgetText in PB 4.5

[marl]

Hallo,

Bin neu hier und weiß auch nicht, ob ich hier richtig bin.

das Beispiel unten läuft unter PB 4.2 einwandfrei. Unter PB 4.5 erzeugt das Ändern [SetGadgetText(test,"1")] keinen Event beim Stringgadget(#test). Kann mir jemand sagen warum?

Wäre für jede Hilfe dankbar!

Code: Alles auswählen

Enumeration 
  #test:#B1:#B2:#text
EndEnumeration 

If OpenWindow(0, 100, 200, 300, 300, "2D Drawing Test")

  ButtonGadget(#B1, 10, 10, 50, 20, "1")
  ButtonGadget(#B2, 80, 10, 50, 20, "2")
  StringGadget(#test,10,40,40,20,"0",#PB_String_Numeric )  
  TextGadget(#text,10,80,200,20,"TEST")
  
  Repeat
    EventID = WaitWindowEvent() 
    
    Select EventID
         
       Case #PB_Event_Gadget
       Select EventGadget()
             
         Case #test
           If GetGadgetText(#test)="1"
              SetGadgetText(#text,"Button 1")
           ElseIf GetGadgetText(#test)="2"
              SetGadgetText(#text,"Button 2")
            EndIf
            

         Case #B1
           SetGadgetText(test,"1")
         Case #B2
           SetGadgetText(test,"2")
           
       EndSelect
     EndSelect
    
  Until EventID = #PB_Event_CloseWindow  
  
EndIf

End

__________________________________________________
Thread verschoben
Bugs>Anfänger
20.02.2011
RSBasic

[ts-soft]

Ja, da hat sich was geändert

Erstmal: Bitte Codetags verwenden:[ CODE ]Hier Dein Code[ /CODE ] (ohne die Spaces)
Zweitens: Willkommen
Drittens: Lösung:

Code: Alles auswählen

Enumeration
  #test:#B1:#B2:#text
EndEnumeration

If OpenWindow(0, 100, 200, 300, 300, "2D Drawing Test")
  
  ButtonGadget(#B1, 10, 10, 50, 20, "1")
  ButtonGadget(#B2, 80, 10, 50, 20, "2")
  StringGadget(#test,10,40,40,20,"0",#PB_String_Numeric )
  TextGadget(#text,10,80,200,20,"TEST")
  
  Repeat
    EventID = WaitWindowEvent()
    
    Select EventID
        
      Case #PB_Event_Gadget
        Select EventGadget()
            
          Case #test
            If GetGadgetText(#test)="1"
              SetGadgetText(#text,"Button 1")
            ElseIf GetGadgetText(#test)="2"
              SetGadgetText(#text,"Button 2")
            EndIf
            
            
          Case #B1
            SetActiveGadget(#test)
            SetGadgetText(test,"1")
          Case #B2
            SetActiveGadget(#test)
            SetGadgetText(test,"2")
            
        EndSelect
    EndSelect
    
  Until EventID = #PB_Event_CloseWindow
  
EndIf

End

Viertens: Einer der Mods, bitte nach Anfängerfragen verschieben, ist nicht wirklich ein Bug.

Gruß
Thomas

[marl]

Super, danke für die schnelle Antwort!
Das mit den Codetags werd ich mir für's nächste mal merken!