Code: Select all
Procedure rndCol()
Protected.i r, g ,b
Protected.i i, j
Static.i _r, _g, _b
j = _r + _g + _b
Repeat
r = Random(255, Random(80,48))
g = Random(255, Random(80,48))
b = Random(255, Random(80,48))
i = r + g + b
Until Abs(i - j) > 64
_r = r : _g = g : _b = b
ProcedureReturn RGB(r,g,b)
EndProcedure
tw = 100 : th = 40
If OpenWindow(0, 0, 0, 240, 60, "ButtonImageGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
image = CreateImage(#PB_Any, tw,th)
color = rndCol()
StartDrawing( ImageOutput( image ) )
Box( 0, 0, tw, th, color )
DrawingMode(#PB_2DDrawing_Default)
DrawText(2, 2,"( 1 / 1 )", #Black,#Yellow)
StopDrawing()
pressed = CreateImage(#PB_Any, tw,th)
StartDrawing( ImageOutput( pressed ) )
DrawAlphaImage(ImageID(image), 0, 0,220)
StopDrawing()
ButtonImageGadget(0, 10, 10, tw, th, ImageID(image))
ButtonImageGadget(1, 120, 10, tw, th, ImageID(pressed))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf