/*
IWBASIC example program
Shows a bitmap button
Compile as a WINDOWS target
*/

uint hrgn2[100]
DEF d1:DIALOG
CREATEDIALOG d1,0,0,500,400,@CAPTION|@SYSMENU|@SIZE,0,"Bitmap button test",&main
CONTROL d1,@BUTTON,"",0,0,100,100,@CTLBTNBITMAP,3
CONTROL d1,@RGNBUTTON,"",120,10,95,99,0,4

DOMODAL(d1)
END

SUB main
select @class
	case @IDINITDIALOG
		CENTERWINDOW d1
		SETCONTROLTEXT d1,3,GETSTARTPATH() + "r1.bmp"
		SETCONTROLCOLOR d1,3,RGB(0,255,0),RGB(255,0,0)

      hrgn2[3] = RGNFROMBITMAP(GETSTARTPATH() + "r1.bmp")
      SETBUTTONRGN d1,4,hrgn2[3]
      SETBUTTONBITMAPS d1,4,LOADIMAGE(GETSTARTPATH() + "r1.bmp",@IMGBITMAP),95,99
      SETHTCOLOR d1,4,RGB(80,80,80)

endselect
RETURN 0
ENDSUB