Code: Select all
CreateImage(123, 100, 100, 32) ; 32 bit, disabled is grayscale
StartDrawing(ImageOutput(123))
DrawingMode(#PB_2DDrawing_Gradient)
GradientColor(0.0, $0000FF)
GradientColor(0.4, $00FFFF)
GradientColor(0.6, $FFFF00)
GradientColor(1.0, $FF0000)
BoxedGradient(0, 0, 100, 100)
Box(0, 0, 100, 100)
StopDrawing()
CreateImage(124, 100, 100, 24) ; 24 bit, disabled is just gray
StartDrawing(ImageOutput(124))
DrawingMode(#PB_2DDrawing_Gradient)
GradientColor(0.0, $0000FF)
GradientColor(0.4, $00FFFF)
GradientColor(0.6, $FFFF00)
GradientColor(1.0, $FF0000)
BoxedGradient(0, 0, 100, 100)
Box(0, 0, 100, 100)
StopDrawing()
If OpenWindow(1, #PB_Ignore, #PB_Ignore, 230, 120, "ButtonImage", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonImageGadget(2, 10, 10, 100, 100, ImageID(123))
DisableGadget(2, #True)
ButtonImageGadget(3, 120, 10, 100, 100, ImageID(124))
DisableGadget(3, #True)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
