Global gOpen:TImage = LoadImage("incbin::images/StringOpen.png",MASKEDIMAGE|MIPMAPPEDIMAGE) Global gWin:TGadget=CreateWindow("Recorder", 50,50,800,600, Null, WINDOW_TITLEBAR | WINDOW_STATUS | WINDOW_CLIENTCOORDS) Local canvas_Buttons:TGadget = CreateCanvas(0,0,496,430,pnl_Canvas) Local tmr_Paint:TTimer = CreateTimer(60) SetGraphics CanvasGraphics(canvas_Buttons) SetBlend ALPHABLEND SetClsColor 0,0,0 SetMaskColor 255, 0, 255 Repeat WaitEvent() '---[ Process Event ]--- Select EventID() '---[ Timer ]--- Case EVENT_TIMERTICK RedrawGadget(canvas_Buttons) '---[ Paint Gadgets ]--- Case EVENT_GADGETPAINT '---[ Button Canvas ]--- If EventSource () = canvas_Buttons '---[ Display Button GFX ]--- Cls SetColor 0,255,0 DrawImage gOpen,15,15 Flip EndIf End Select Forever