autodefine "off"

DECLARE IMPORT,GetSysColor(nIndex:INT),INT

WINDOW win
INT sColor,stepper

OPENWINDOW win,0,0,474,640,@MINBOX|@MAXBOX|@SIZE|@NOAUTODRAW,0,"GetSysColors",&main
	SETWINDOWCOLOR win,GetSysColor(15)
BEGINMENU win
	MENUTITLE "&File"
	MENUITEM "&Quit",0,1
ENDMENU

SETFONT win,"Verdana",10,400
	BACKPEN win,GetSysColor(15)

'Draw GetSysColor sColores
	stepper=20
FOR sColor=0 TO 14
	RECT win,20,stepper,200,30,RGB(0,0,0),GetSysColor(sColor)
	MOVE win,70,stepper+8
	PRINT win,"GetSysColor("+LTRIM$(STR$(sColor))+")"
	stepper+=34
NEXT sColor

	stepper=20
FOR sColor=15 TO 29
	RECT win,240,stepper,200,30,RGB(0,0,0),GetSysColor(sColor)
	MOVE win,290,stepper+8
	PRINT win,"GetSysColor("+LTRIM$(STR$(sColor))+")"
	stepper+=34
NEXT sColor

stepper=stepper+4
	RECT win,140,stepper,200,30,RGB(0,0,0),GetSysColor(30)
	MOVE win,190,stepper+8
	PRINT win,"GetSysColor(30)"

WAITUNTIL IsWindowClosed(win)
	END

SUB main(),INT
	SELECT @MESSAGE
CASE @IDCREATE
	CENTERWINDOW win
CASE @IDCLOSEWINDOW
	CLOSEWINDOW win
CASE @IDMENUPICK
	SELECT @MENUNUM
CASE 1 'Quit
	CLOSEWINDOW win
ENDSELECT
ENDSELECT
RETURN 0
ENDSUB