How can I make it work top to bottom?
Code: Select all
CreateImage(0,380,380)
StartDrawing(ImageOutput(0))
DrawingMode(#PB_2DDrawing_Gradient)
ResetGradientColors()
LinearGradient(0,380,380,380)
GradientColor(0.0,$FF0000)
GradientColor(0.5,$00FF00)
GradientColor(1.0,$0000FF)
Box(0,0,380,380,-1)
StopDrawing()
OpenWindow(0,0,0,400,400,"test",#PB_Window_ScreenCentered|#PB_Window_TitleBar|#PB_Window_SystemMenu)
ImageGadget(0,10,10,380,380,ImageID(0))
Repeat
EventID=WaitWindowEvent()
Select EventID
EndSelect
Until EventID=#PB_Event_CloseWindow 
