Code archives/Graphics/BevelRect

;BevelRect(x,y,width,height,radius,fill)
;
;	x - x position
;	y - y position
;	width - width in pixels from x
;	height - height in pixels from y
;	radius - radius of circles at corners (defaults to 15)
;	fill - fill the center (defaults to true)

Function BevelRect(x,y,w,h,r=15,f=1)
	Local ro,go,bo,img,buf,xo,yo
	If Not f
		ro=ColorRed()
		go=ColorGreen()
		bo=ColorBlue()
		img=CreateImage(w,h)
		buf=GraphicsBuffer()
		SetBuffer ImageBuffer(img)
		xo=x
		yo=y
		x=0
		y=0
	EndIf
	Oval x,y,r,r,1
	Oval x+w-r,y,r,r,1
	Oval x,y+h-r,r,r,1
	Oval x+w-r,y+h-r,r,r,1
	Rect x+(r/2),y,w-r,h,1
	Rect x,y+(r/2),w,h-r,1
	If Not f
		Color 0,0,0
		x=x+1
		y=y+1
		w=w-2
		h=h-2
		Oval x,y,r,r,1
		Oval x+w-r,y,r,r,1
		Oval x,y+h-r,r,r,1
		Oval x+w-r,y+h-r,r,r,1
		Rect x+(r/2),y,w-r,h,1
		Rect x,y+(r/2),w,h-r,1
		Color ro,go,bo
		SetBuffer buf
		DrawImage img,xo,yo
		FreeImage img
	EndIf
End Function