Seite 1 von 1
[Module] Switch Gadget (all OS)
Verfasst: 14.12.2019 14:21
von Thorsten1867
SwitchGadget - Modul (all OS / DPI / 64Bit)
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()'
;}
Re: [Module] Switch Gadget (all OS)
Verfasst: 14.12.2019 17:36
von Thorsten1867
Update: Unterstützung von Images
Re: [Module] Switch Gadget (all OS)
Verfasst: 26.12.2019 00:16
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)
Re: [Module] Switch Gadget (all OS)
Verfasst: 27.12.2019 11:12
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