radio und stringgadget

[24dan]

Hallo ich habe zwei #Radio - button

wie kann ich dafür sorgen das bei angeklicktem #Radio_01 die zugeordneten
2 #StringGadget aktiv bleiben (default) und die 2#StringGadget Felder unter
#Radio_02 inaktiv werden????

Ich will versuchen es für den Anwender so sicher wie möglich zu gestalten und gestatte es daher nicht in die Textfelder etwas einzugeben deren #Radion-Button nicht gedrückt ist.

Code: Alles auswählen

Repeat 
    Event = WaitWindowEvent() 
    If Event = #PB_EventGadget 
      GadgetID = EventGadgetID()
      
      If GadgetID = #Button_Bst
        ...
      ElseIf GadgetID = #Radio_1  
        If GetGadgetState(#Radio_1) = 1 
          SetGadgetState(#String_ZWonly, #PB_String_ReadOnly)
        ElseIf GetGadgetState(#Radio_2) = 1 
          SetGadgetState(#String_ZW1, #PB_String_ReadOnly)
          SetGadgetState(#String_ZWonly,#PB_String_Numeric)
        EndIf
         ...

Das geht nicht!

[edel]

Versuch es mal mit DisableGadget .

[ts-soft]

Code: Alles auswählen

Enumeration 
  #Radio_1
  #Radio_2
  #String_ZW1
  #String_ZWonly
EndEnumeration

If OpenWindow(0, #CW_USEDEFAULT, #CW_USEDEFAULT, 200, 100, #PB_Window_SystemMenu, "Test")
  If CreateGadgetList(WindowID(0))
    OptionGadget(#Radio_1, 10, 10, 10, 25, "")
    OptionGadget(#Radio_2, 10, 50, 10, 25, "")
    StringGadget(#String_ZW1, 40, 10, 100, 25, "Test1")
    StringGadget(#String_ZWonly, 40, 50, 100, 25, "Test2")
    SetGadgetState(#Radio_1, #True)
    SendMessage_(GadgetID(#String_ZWonly), #EM_SETREADONLY,1,0)
  EndIf
Else
  End
EndIf
Repeat
  WindowID = WaitWindowEvent()
  GadgetID = EventGadgetID()
  Select GadgetID 
    Case #Radio_1
      SendMessage_(GadgetID(#String_ZWonly), #EM_SETREADONLY,1,0)
      SendMessage_(GadgetID(#String_ZW1), #EM_SETREADONLY,0,0)
      ActivateGadget(#String_ZW1)
    Case #Radio_2
      SendMessage_(GadgetID(#String_ZWonly), #EM_SETREADONLY,0,0)
      SendMessage_(GadgetID(#String_ZW1), #EM_SETREADONLY,1,0)
      ActivateGadget(#String_ZWonly)
  EndSelect
Until WindowID = #PB_Event_CloseWindow

Ich hoffe, so meintest Du es

[24dan]

Ohhhhhhhjaaaa.....

Genau das suche ich.
Danke das hat wunderbar geklappt.
mensch da werden ne menge leute froh sein!!!!

[nco2k]

oder einfach daneben setzen.

Code: Alles auswählen

If OpenWindow(0, 0, 0, 150, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "TEST")
  
  If CreateGadgetList(WindowID(0))
    OptionGadget(0, 5, 10, 15, 15, "")
    StringGadget(1, 25, 7, 65, 20, "aaa")
    OptionGadget(2, 5, 40, 15, 15, "")
    StringGadget(3, 25, 37, 65, 20, "bbb")
    DisableGadget(3, #True)
    ActivateGadget(1)
    SetGadgetState(0, #True)
    
    Repeat
      WinEvent.l = WaitWindowEvent()
      If WinEvent = #PB_Event_Gadget
        GadgetID.l = EventGadgetID()
        If GadgetID = 0
          SetGadgetState(2, #False)
          DisableGadget(1, #False)
          ActivateGadget(1)
          DisableGadget(3, #True)
        ElseIf GadgetID = 2
          SetGadgetState(0, #False)
          DisableGadget(3, #False)
          ActivateGadget(3)
          DisableGadget(1, #True)
        EndIf
      EndIf
    Until WinEvent = #PB_Event_CloseWindow
    
  EndIf
  
EndIf

End

bei mir sehen die radio buttons im beispiel von ts-soft irgendwie abgeschnitten aus.

c ya,
nco2k