Code: Alles auswählen
window = OpenWindow(#PB_Any,200,100,400,200,"Test",#PB_Window_SystemMenu)
testGad = TrackBarGadget(#PB_Any, 0, 0, 150, 30, 0,100)
image = CreateImage(#PB_Any,400,200)
imageGad = ImageGadget(#PB_Any,0,0,400,200,ImageID(image))
Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
If EventGadget() = testGad
SetGadgetState(testGad,GetGadgetState(testGad))
ElseIf EventGadget() = imageGad
StartDrawing(ImageOutput(image))
Circle(WindowMouseX(window),WindowMouseY(window),10,Random($ffffff))
StopDrawing()
SetGadgetState(imageGad,ImageID(image))
EndIf
EndIf
Until event = #PB_Event_CloseWindow
Zum anderen verschwindet es, wenn mit einem Mausklick irgendwo auf dem Bild ein Kreis gezeichnet und das Bild dann aktualisert wird. Klickt man dann auf die Stelle des TrackBarGadgets, erscheint es zwar wieder teilweise oder manchmal auch ganz, aber das ist ja wohl kaum die Lösung.
Wie erreiche ich, daß bei übereinandergeltegent Gadgets und der Änderung des einen weiterhin alle angezeigt werden?