PanelGadget: welche GadgetItem ist?

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
marcelx
Beiträge: 424
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

PanelGadget: welche GadgetItem ist?

Beitrag von marcelx »

Hallo,

ich möchte wissen (im repeat-loop) wissen welche panel aktive/angeklickt ist/wurde.

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget     (0, 8, 8, 306, 203)
    AddGadgetItem (0, -1, "Panel 1")
    AddGadgetItem (0, -1, "Panel 2")
      ButtonGadget(2, 10, 15, 80, 24,"Button 1")
      ButtonGadget(3, 95, 15, 80, 24,"Button 2")
  CloseGadgetList()
  Repeat
    ; welche panel aktive
    Event = WindowEvent() 
  Until Event = #PB_Event_CloseWindow
EndIf
Danke und Gruß
MarcelX
Win-10, PB 5.31 (Windows - x86)
Benutzeravatar
NicknameFJ
Beiträge: 324
Registriert: 03.06.2007 14:36
Wohnort: Von der Sonne aus gesehen der dritte Planet

Re: PanelGadget: welche GadgetItem ist?

Beitrag von NicknameFJ »

Hallo mercelx,

ich würde es so lösen:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget     (0, 8, 8, 306, 203)
  AddGadgetItem (0, -1, "Panel 1")
  AddGadgetItem (0, -1, "Panel 2")
  ButtonGadget(2, 10, 15, 80, 24,"Button 1")
  ButtonGadget(3, 95, 15, 80, 24,"Button 2")
  CloseGadgetList()
  Repeat
    ; welche panel aktive
    Event = WindowEvent()
    Gadget = EventGadget()
    Type   = EventType()
    
    Select Event
      Case #PB_Event_Gadget
        Select Gadget
          Case 0
            Select type
              Case #PB_EventType_Change
                Debug "Panel Nummer " + Str(GetGadgetState(0)+1) + " aktiviert"
                
            EndSelect
            
        EndSelect
        
    EndSelect
    
    
  Until Event = #PB_Event_CloseWindow
EndIf
Achtung: Die Panel Nummern fangen bei 0 an !

Grüße

NicknameFJ
PS: Alle im Text enthaltenen Schreibfehler sind beabsichtigt und dienen der Belustigung aller

Bild
Benutzeravatar
marcelx
Beiträge: 424
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: PanelGadget: welche GadgetItem ist?

Beitrag von marcelx »

Danke NicknameFJ,

so funktioniert.
Entscheidet war die Verwendung von #PB_EventType_Change und GetGadgetState()

Grüße
MarcelX
Win-10, PB 5.31 (Windows - x86)
Antworten