ich hab ein kleines Problem.
Code: Alles auswählen
;PB 4.00
InitSprite()
;-Variablen
#window = 0
#end = 1
#dreieck_text = 2
#dreieck_a = 3
#dreieck_b = 4
#dreieck_c = 5
#dreieck_button = 6
OpenWindow(#window,0,0,400,500,"Testphase",#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ende = ButtonGadget(#end,200,10,70,30,"Beenden" )
dreieck_text = TextGadget (#dreieck_text,30,5,250,20,"Dreieck" )
dreieck_a = StringGadget(#dreieck_a,25,25,50,20,"",#PB_String_Numeric)
dreieck_b = StringGadget(#dreieck_b,25,50,50,20,"",#PB_String_Numeric)
dreieck_c = StringGadget(#dreieck_c,25,75,50,20,"",#PB_String_Numeric)
dreieck_button = ButtonGadget(#dreieck_button,25,103,50,20,"OK" )
OpenWindowedScreen(WindowID(0),0,130,1,1,1,0,0)
Repeat
Repeat
Eventid = WaitWindowEvent()
If Eventid = #PB_Event_Gadget
Select EventGadget()
Case #dreieck_button
ClearScreen(RGB(0,0,0))
StartDrawing(ScreenOutput())
Box(10,100,100,5,RGB(255,255,255))
StopDrawing()
FlipBuffers()
Case #end
End
EndSelect
EndIf
Until EventID = 0
FlipBuffers()
ClearScreen(RGB(0,0,0))
Delay(1)
ForEver
Ich weiss es ist bestimmt voll offensichtlich und hätte auch von selber drauf kommen können aber ich find ihn einfach nicht.
