Drawing Problem
Verfasst: 01.09.2006 18:42
Hi
ich hab ein kleines Problem.
Warum wird die "Box" nicht gezeichnet wenn ich auf den OK Button drücke?
Ich weiss es ist bestimmt voll offensichtlich und hätte auch von selber drauf kommen können aber ich find ihn einfach nicht.
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.
