autodefine "off"

CONST BUTTON_2 = 2

DIALOG w1

CREATEDIALOG w1,0,0,300,202,0x80C80080,0,"Caption",&w1_handler
	CONTROL w1,@RGNBUTTON,"",10,20,22,22,0x50000000,BUTTON_2

DOMODAL w1

SUB w1_handler(),INT
	SELECT @MESSAGE
		CASE @IDINITDIALOG
			CENTERWINDOW w1
			uint hrgn = RGNFROMBITMAP(GETSTARTPATH+"clocktest.bmp")
			SETBUTTONRGN w1,BUTTON_2,hrgn
			SETBUTTONBITMAPS w1,BUTTON_2,LOADIMAGE(GETSTARTPATH+"clocktest.bmp",@IMGBITMAP),0,0
			SETHTCOLOR w1,BUTTON_2,RGB(80,80,80)
		CASE @IDCLOSEWINDOW
			CLOSEDIALOG w1,@IDOK
		CASE @IDCONTROL
			SELECT @CONTROLID
				CASE BUTTON_2
					IF @NOTIFYCODE = 0
						/*button clicked*/
					ENDIF
			ENDSELECT
	ENDSELECT
RETURN 0
ENDSUB