[Module] Switch Gadget (all OS)

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
Thorsten1867
Beiträge: 1359
Registriert: 04.02.2005 15:40
Computerausstattung: [Windows 10 x64] [PB V5.7x]
Wohnort: Kaufbeuren
Kontaktdaten:

[Module] Switch Gadget (all OS)

Beitrag von Thorsten1867 »

SwitchGadget - Modul (all OS / DPI / 64Bit)

Bild

Code: Alles auswählen

;{ _____ Switch - Commands _____
; Switch::Gadget()             - similar to 'ButtonGadget()'
; Switch::GetData()            - similar to 'GetGadgetData()'
; Switch::GetID()              - similar to 'GetGadgetData()', but it uses a string
; Switch::GetState()           - similar to 'GetGadgetState()'
; Switch::Hide()               - similar to 'HideGadget()'
; Switch::SetAutoResizeFlags() - [#MoveX|#MoveY|#Width|#Height]
; Switch::SetAttribute()       - similar to 'SetGadgetAttribute()'
; Switch::SetColor()           - similar to 'SetGadgetColor()'
; Switch::SetData()            - similar to 'SetGadgetData()'
; Switch::SetFont()            - similar to 'SetGadgetFont()'
; Switch::SetID()              - similar to 'SetGadgetData()', but it uses a string
; Switch::SetState()           - similar to 'SetGadgetState()'
;}
Download: SwitchModule.pbi
Zuletzt geändert von Thorsten1867 am 20.12.2019 16:03, insgesamt 3-mal geändert.
Download of PureBasic - Module
Download of PureBasic - Programmes

[Windows 11 x64] [PB V6]

Bild
Benutzeravatar
Thorsten1867
Beiträge: 1359
Registriert: 04.02.2005 15:40
Computerausstattung: [Windows 10 x64] [PB V5.7x]
Wohnort: Kaufbeuren
Kontaktdaten:

Re: [Module] Switch Gadget (all OS)

Beitrag von Thorsten1867 »

Update: Unterstützung von Images
Download of PureBasic - Module
Download of PureBasic - Programmes

[Windows 11 x64] [PB V6]

Bild
matbal
Beiträge: 246
Registriert: 30.03.2011 20:53

Re: [Module] Switch Gadget (all OS)

Beitrag von matbal »

Dein Switch-Gadget löst im Eventloop keine Events aus.

Ich habe mal in deinem Beispiels-Code Debug-Anweisungen hinzugefügt, die mir anzeigen sollen, welches Gadget wie geschaltet wurde. Diese Debug-Texte werden beim bedienen der Gadgets aber nie angezeigt. Schaust du noch mal drüber?

Code: Alles auswählen

    Repeat
       Event = WaitWindowEvent()
       Select Event
       
        Case Switch::#Event_Gadget ;{ Module Events
          Select EventGadget()  
             Case #Switch1
                Debug "1 - " + Switch::GetState(#Switch1)
             Case #Switch2
                Debug "2 - " + Switch::GetState(#Switch2)
          EndSelect ;}
      EndSelect        
    Until Event = #PB_Event_CloseWindow

    CloseWindow(#Window)
Benutzeravatar
Thorsten1867
Beiträge: 1359
Registriert: 04.02.2005 15:40
Computerausstattung: [Windows 10 x64] [PB V5.7x]
Wohnort: Kaufbeuren
Kontaktdaten:

Re: [Module] Switch Gadget (all OS)

Beitrag von Thorsten1867 »

Update: Event #PB_EventType_Change

Code: Alles auswählen

Repeat
  Event = WaitWindowEvent()
  Select Event
    Case Switch::#Event_Gadget ;{ Module Events
      Select EventGadget()  
        Case #Switch1
          If EventType() = #PB_EventType_Change
            Debug "Switch 1: " + Str(EventData())
          EndIf  
        Case #Switch2
          Select EventData()
            Case 1  
              Debug "Switch 2: on"
            Case 0
              Debug "Switch 2: off"
          EndSelect    
        Case #Switch3
          Debug "Switch 2: " + Str(EventData())
      EndSelect ;}
  EndSelect        
Until Event = #PB_Event_CloseWindow
Download of PureBasic - Module
Download of PureBasic - Programmes

[Windows 11 x64] [PB V6]

Bild
Antworten