Meine Buttons sind nicht mehr klickbar ?!

Anfängerfragen zum Programmieren mit PureBasic.
Glow
Beiträge: 45
Registriert: 31.01.2005 01:36

Meine Buttons sind nicht mehr klickbar ?!

Beitrag von Glow »

Hi

Also ich habe gerade etwas seltsames festgestellt: In meinem Prgramm welches ich gerade zum testen mache, gehen meine Buttons plötzlich nicht mehr ? Ich hab eigentlich nur an einem Hintergrundbild gebastelt, und vorher ging es auch noch. Das ganze ist ein jpg und ich hab das jetzt einfach mal ein bissel grösser gemacht, weil es vorher nur ein logo war, und jetzt mehr vom Screen ausfüllen soll. Mein Code sieht folgendermassen aus:

Code: Alles auswählen

Enumeration
  #Window_0
  #bild
  #button1
  #button2
  #button3
  #text1
EndEnumeration

UseJPEGImageDecoder()

CatchImage(0,?storlogo)

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 395, 284, 302, 142,  #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar , "Test")
    If CreateGadgetList(WindowID())
      ImageGadget(#bild, 0,0,302,142,UseImage(0))
      ButtonGadget(#button1, 10, 115, 70, 20, "Test1")
      ButtonGadget(#button2, 90, 115, 70, 20, "Test2")
      ButtonGadget(#button3, 250, 85, 40, 20, "Test3")
      StringGadget(#text1, 10, 85, 230, 20, "",#PB_String_ReadOnly)
     EndIf
  EndIf
EndProcedure

Open_window_0()

Repeat
 
Event = WaitWindowEvent() 

Select Event
  
 Case #PB_EventGadget
 
  Select EventGadgetID()
    Case (#button1)
    MessageRequester("Test1","Test1",#PB_MessageRequester_Ok)
    Case (#button2)
    MessageRequester("Test2","Test2",#PB_MessageRequester_Ok)
    Case (#button3)
    MessageRequester("Test3","Test3",#PB_MessageRequester_Ok)
  EndSelect
  
EndSelect

Until Event= #PB_EventCloseWindow

End

DataSection
  storlogo:
  IncludeBinary "my_logo.jpg"
  storlogoend:
EndDataSection 
Ich kann das Fenster zwar verschieben und auch mit dem kleinen "x" oben rechts schliessen, aber die Buttons sind alle nicht mehr klickbar :(
wenn ich die Zeile, welches das Imagedarstellt auskommentiere, gehen die Buttons wieder. Wenn ich die Zeile ans Ende der Gadget liste packe, geht es auch, aber die Buttons verschwinden plötzlich :/
Kann mir jemand sagen woran das liegt ? Ist das ein Bug, oder ein Feature ?

Edit: *grübel* Kann es sein, daß man keine anderen Gadgets über ein image gadget legen, und vor allem benutzen kann ? Oo
Benutzeravatar
Hroudtwolf
Beiträge: 1416
Registriert: 30.10.2004 23:33
Kontaktdaten:

Beitrag von Hroudtwolf »

Mach mal die Klammern hinter den Cases weg. :wink:
Glow
Beiträge: 45
Registriert: 31.01.2005 01:36

Beitrag von Glow »

Hallo

Du meinst also, anstatt:

Case (#button1)

soll man schreiben:

Case #button1

?

Das hab ich grad probiert, geht aber trotzdem nicht :(

Edit: Ok, ich hab mein altes logo nochmal reingeklatscht, welches nur eine Höhe von 80 Pixels hat, also die Gadgets nicht überschneidet - nun gehen die Buttons wieder :/ Dies würde meine Theorie, daß ein Gaget nicht über einem Image-Gadet funktioniert bestätigen...was aber natürlich etwas...hmm...doof wäre :|
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

Versuche es mal mit DisableGadget(#bild,#true) .
Als bessere Alternative :
http://forums.purebasic.com/german/viewtopic.php?t=2454
Glow
Beiträge: 45
Registriert: 31.01.2005 01:36

Beitrag von Glow »

OMG nun funktionierts :D Vielen Dank, der Tip war Gold wert *knutsch*.
Sollte man vieleicht in die Hilfe mit reinschreiben, daß man image gadgets deaktivieren muss um andere Gagdets drüberlegen und vor allem drauf zugreifen zu können :)
Benutzeravatar
Andre
PureBasic Team
Beiträge: 1765
Registriert: 11.09.2004 16:35
Computerausstattung: MacBook Core2Duo mit MacOS 10.6.8
Lenovo Y50 i7 mit Windows 10
Wohnort: Saxony / Deutscheinsiedel
Kontaktdaten:

Beitrag von Andre »

Glow hat geschrieben:Sollte man vieleicht in die Hilfe mit reinschreiben, daß man image gadgets deaktivieren muss um andere Gagdets drüberlegen und vor allem drauf zugreifen zu können :)
Schon vorgemerkt. :wink:
Bye,
...André
(PureBasicTeam::Docs - PureArea.net | Bestellen:: PureBasic | PureVisionXP)
Antworten