; www.purearea.net (Sourcecode collection by cnesm)
; Author: Unknown (updated for PB4.00 by blbltheworm)
; Date: 22. November 2003
; OS: Windows
; Demo: Yes

Procedure.l MyImage(ImageNumber.l, Width.l, Height.l, Color.l) 
  ImageID.l = CreateImage(ImageNumber, Width, Height) 
  StartDrawing(ImageOutput(ImageNumber)) 
    Box(0, 0, Width, Height, Color) 
  StopDrawing() 
  ProcedureReturn ImageID 
EndProcedure 

; 
; Main starts here 
; 
If OpenWindow(0, 200, 200, 150, 100, "zZzzzZzZzZzzzZzzz", #PB_Window_SystemMenu) 

  If CreateGadgetList(WindowID(0)) 
    ButtonImageGadget(105, 10, 10, 40, 20, MyImage(1,40,20,$0000FF)) 
    ButtonImageGadget(106, 60, 10, 40, 20, MyImage(2,40,20,$FF00BB)) 
  EndIf 

  Repeat 
    Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow : End 
      Case #PB_Event_Gadget 
        Select EventGadget() 
          Case 105 ; Button 1 
            SetGadgetState(106,MyImage(2,40,20,Random($FFFFFF))) 
          Case 106 ; Button 2 
        EndSelect 
    EndSelect 
  ForEver 

EndIf 

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; EnableXP