Hatte gerade mal Lust verspürt, wieder ein wenig Basic zu programmieren (das letzte Mal noch mit meinen Texas Instr. TI99-4a, die Oldtimer unter Euch werden den kennen).
Folgendes Problem hat mich sofort gefunden:
Habe 4 Buttons in einer Grafik, und keiner funktioniert. Ohne Grafik klappt das, DEBUG gibt brav Meldungen von sich. Aber sobald Catchimage usw. eingebaut werden, sind die Buttons ohne Funktion.
Hier der Code:
Code: Alles auswählen
UseJPEGImageDecoder()
Enumeration
#FENSTER_HAUPT
#BILD_SPEICHER
#BILD_ANZEIGE
#KNOPF_001
#KNOPF_002
#KNOPF_003
#KNOPF_004
EndEnumeration
Global Ende.i = #False
If OpenWindow(#FENSTER_HAUPT, 0, 0, 470, 363, "Schnickschnack", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CatchImage(#BILD_SPEICHER, ?Bild)
ImageGadget(#BILD_ANZEIGE, 10, 10, 280, 150, ImageID(#BILD_SPEICHER))
ButtonGadget(#KNOPF_001, 20, 160, 120, 25, "Neues Projekt", #PB_Button_Left)
ButtonGadget(#KNOPF_002, 20, 200, 120, 25, "Projekt öffnen", #PB_Button_Left)
ButtonGadget(#KNOPF_003, 20, 240, 120, 25, "Einstellungen", #PB_Button_Left)
ButtonGadget(#KNOPF_004, 20, 280, 120, 25, "Beenden", #PB_Button_Left)
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
Case #KNOPF_001
Debug "001"
Case #KNOPF_002
Debug "002"
Case #KNOPF_003
Debug "003"
Case #KNOPF_004
Debug "004"
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
EndIf
End
DataSection
Bild:
IncludeBinary "bild.jpg"
EndDataSection