AUTODEFINE "off"

$INCLUDE "windowssdk.inc"
$INCLUDE "ctl.inc"

DEF n,nl[150]:STRING
DEF b,bl[150]:STRING
DEF c,cl[150]:UINT
DEF mc:UINT
DEF cntr,i,j,m,mx,my:INT
DEF red,blue,green:INT
DEF msg,clip:INT
DEF win:WINDOW
DEF ct,h,temp:STRING

OPENWINDOW win,0,0,1300,760,0x80C80080,0,"Colors",&handler_win

SETFONT win,"Arial",10,400,0

FOR i=0 TO 145
	GETDATA colors,n
	IF n="Z"
		m=i-1
		i=145
		GOTO done
	ENDIF
	GETDATA colors,c
	GETDATA colors,b
	nl[i]=n
	cl[i]=c
	bl[i]=b
	LABEL done
NEXT i

cntr=-1
FOR i=10 TO 1160 STEP 160
	FOR j=25 TO 710 STEP 40
		cntr++
		IF cntr<=m
			DecToRGB(cl[cntr])
			h=HEX$(cl[cntr])
			Legend(i,j,145,20,0,0,0,red,green,blue, _
				RTRIM$(bl[cntr])+":"+nl[cntr],h)
		ENDIF
	NEXT j
NEXT i

WAITUNTIL IsWindowClosed(win)
END

SUB handler_win(),int
SELECT @CLASS
	CASE @IDCREATE
		CENTERWINDOW win

	CASE @IDCLOSEWINDOW
	CASE& @IDDESTROY
		CLOSEWINDOW win

	CASE @IDLBUTTONDN
		mx=@MOUSEX
		my=@MOUSEY
		IF mx>7 AND mx<1286
			IF my>10 AND my<754
				mc=GETPIXEL(win,mx,my)
				FOR i=0 TO m
					IF mc=cl[i]
						ct=nl[i]
						i=m+1
					ENDIF
				NEXT i
				DecToRGB(mc)
				h=HEX$(mc)
				IF LEN(h)<6 THEN h=STRING$(6-LEN(h),"0")+HEX$(mc)
				temp="RGB("+USING("0###",red)+","+USING("0###",green)+","+USING("0###",blue)+")\n0x"+h+"\n"+ct
				msg=MESSAGEBOX win,temp,"Send to Clipboard",@MB_YESNO|@MB_ICONINFORMATION
				IF msg=@IDYES THEN clip=SendToClipBoard(win,temp)
			ENDIF
		ENDIF

ENDSELECT
RETURN 0
ENDSUB

SUB DecToRGB(decimal:UINT)
'----------------------------------------------------------------------------------------
' Returns RGB Triplet from integer
' Original idea: TexasPete
' Please note  : Red,Green and Blue Must be Global and declared outside of this function
'----------------------------------------------------------------------------------------
DEF GetRed,GetGreen,GetBlue:UINT
' GetRed
	blue=(decimal/(256*256))
	green=((decimal-blue*256*256)/256)
	GetRed=(decimal-blue*256*256-green*256)
' GetGreen
	blue=(decimal/(256*256))
	GetGreen=(decimal-blue*256*256)/256
' GetBlue
	GetBlue=(decimal/(256*256))
	red=GetRed
	green=GetGreen
	blue=GetBlue
RETURN
ENDSUB

SUB Legend(x:int,y:int,width:int,height:int,br:int,bg:int,bb:int,fr:int,fg:int,fb:int,msg:string,hex:STRING)
'---------------------------------
'| HOW TO USE:                   |
'|   x, y   = position           |
'|   width  = width in pixels    |
'|   height = height in pixels   |
'|   br, bg, bb = border color   |
'|   fr, fg, fb = fill color     |
'|   msg    = legend name        |
'---------------------------------
	IF msg="---" THEN RETURN
	RECT win,x,y,width,height,RGB(br,bg,bb),RGB(fr,fg,fb)
	MOVE win,x,y-18
	IF INSTR(msg,"**")
		FRONTPEN win,RGB(255,0,0)
		BACKPEN win,RGB(0,255,255)
	ELSE
		FRONTPEN win,0
		BACKPEN win,RGB(255,255,255)
	ENDIF
	PRINT win,msg
	FRONTPEN win,0
	BACKPEN win,RGB(255,255,255)
	MOVE win,x+2,y+2
	PRINT win,USING("0###",fr)+" "+USING("0###",fg)+" "+USING("0###",fb)
RETURN
ENDSUB

DATABEGIN colors

' Common color DATAants

'Red Colors

DATA "C_IndianRed"  , 0x5C5CCD , "Red"
DATA "C_LightCoral" , 0x8080F0 , "Red"
DATA "C_Salmon"     , 0x7280FA , "Red"
DATA "C_DarkSalmon" , 0x7A96E9 , "Red"
DATA "C_LightSalmon", 0x7AA0FF , "Red"
DATA "C_Crimson"    , 0x3C14DC , "Red"
DATA "C_Red"        , 0x0000FF , "Red"
DATA "C_FireBrick"  , 0x2222B2 , "Red"
DATA "C_DarkRed"    , 0x00008B , "Red"

'Pink Colors

DATA "C_Pink"           , 0xCBC0FF , "Pink"
DATA "C_LightPink"      , 0xC1B6FF , "Pink"
DATA "C_HotPink"        , 0xB469FF , "Pink"
DATA "C_DeepPink"       , 0x9314FF , "Pink"
DATA "C_MediumVioletRed", 0x8515C7 , "Pink"
DATA "C_PaleVioletRed"  , 0x9370DB , "Pink"

'Orange Colors

DATA "C_LightSalmon", 0x7AA0FF , "Orange"
DATA "C_Coral"      , 0x507FFF , "Orange"
DATA "C_Tomato"     , 0x4763FF , "Orange"
DATA "C_OrangeRed"  , 0x0045FF , "Orange"
DATA "C_DarkOrange" , 0x008CFF , "Orange"
DATA "C_Orange"     , 0x00A5FF , "Orange"

'Yellow Colors

DATA "C_Gold"                , 0x00D7FF , "Yellow"
DATA "C_Yellow"              , 0x00FFFF , "Yellow"
DATA "C_LightYellow"         , 0xE0FFFF , "Yellow"
DATA "C_LemonChiffon"        , 0xCDFAFF , "Yellow"
DATA "C_LightGoldenrodYellow", 0xD2FAFA , "Yellow"
DATA "C_PapayaWhip"          , 0xD5EFFF , "Yellow"
DATA "C_Moccasin"            , 0xB5E4FF , "Yellow"
DATA "C_PeachPuff"           , 0xB9DAFF , "Yellow"
DATA "C_PaleGoldenrod"       , 0xAAE8EE , "Yellow"
DATA "C_Khaki"               , 0x8CE6F0 , "Yellow"
DATA "C_DarkKhaki"           , 0x6BB7BD , "Yellow"

'Purple Colors

DATA "C_Lavender"       , 0xFAE6E6 , "Purple"
DATA "C_Thistle"        , 0xD8BFD8 , "Purple"
DATA "C_Plum"           , 0xDDA0DD , "Purple"
DATA "C_Violet"         , 0xEE82EE , "Purple"
DATA "C_Orchid"         , 0xD670DA , "Purple"
DATA "C_Fuchsia"        , 0xFF00FF , "Purple"
DATA "C_Magenta"        , 0xFF00FF , "Purple"
DATA "C_MediumOrchid"   , 0xD355BA , "Purple"
DATA "C_MediumPurple"   , 0xDB7093 , "Purple"
DATA "C_BlueViolet"     , 0xE22B8A , "Purple"
DATA "C_DarkViolet"     , 0xD30094 , "Purple"
DATA "C_DarkOrchid"     , 0xCC3299 , "Purple"
DATA "C_DarkMagenta"    , 0x8B008B , "Purple"
DATA "C_Purple"         , 0x800080 , "Purple"
DATA "C_Indigo"         , 0x82004B , "Purple"
DATA "C_SlateBlue"      , 0xCD5A6A , "Purple"
DATA "C_DarkSlateBlue"  , 0x8B3D48 , "Purple"
DATA "C_MediumSlateBlue", 0xEE687B , "Purple"

'Green Colors

DATA "C_GreenYellow"      , 0x2FFFAD , "Green"
DATA "C_Chartreuse"       , 0x00FF7F , "Green"
DATA "C_LawnGreen"        , 0x00FC7C , "Green"
DATA "C_Lime"             , 0x00FF00 , "Green"
DATA "C_LimeGreen"        , 0x32CD32 , "Green"
DATA "C_PaleGreen"        , 0x98FB98 , "Green"
DATA "C_LightGreen"       , 0x90EE90 , "Green"
DATA "C_MediumSpringGreen", 0x9AFA00 , "Green"
DATA "C_SpringGreen"      , 0x7FFF00 , "Green"
DATA "C_MediumSeaGreen"   , 0x71B33C , "Green"
DATA "C_SeaGreen"         , 0x578B2E , "Green"
DATA "C_ForestGreen"      , 0x228B22 , "Green"
DATA "C_Green"            , 0x008000 , "Green"
DATA "C_DarkGreen"        , 0x006400 , "Green"
DATA "C_YellowGreen"      , 0x32CD9A , "Green"
DATA "C_OliveDrab"        , 0x238E6B , "Green"
DATA "C_Olive"            , 0x008080 , "Green"
DATA "C_DarkOliveGreen"   , 0x2F6B55 , "Green"
DATA "C_MediumAquamarine" , 0xAACD66 , "Green"
DATA "C_DarkSeaGreen"     , 0x8FBC8F , "Green"
DATA "C_LightSeaGreen"    , 0xAAB220 , "Green"
DATA "C_DarkCyan"         , 0x8B8B00 , "Green"
DATA "C_Teal"             , 0x808000 , "Green"

'Blue Colors

DATA "C_Aqua"           , 0xFFFF00 , "Blue"
DATA "C_Cyan"           , 0xFFFF00 , "Blue"
DATA "C_LightCyan"      , 0xFFFFE0 , "Blue"
DATA "C_PaleTurquoise"  , 0xEEEEAF , "Blue"
DATA "C_Aquamarine"     , 0xD4FF7F , "Blue"
DATA "C_Turquoise"      , 0xD0E040 , "Blue"
DATA "C_MediumTurquoise", 0xCCD148 , "Blue"
DATA "C_DarkTurquoise"  , 0xD1CE00 , "Blue"
DATA "C_CadetBlue"      , 0xA09E5F , "Blue"
DATA "C_SteelBlue"      , 0xB48246 , "Blue"
DATA "C_LightSteelBlue" , 0xDEC4B0 , "Blue"
DATA "C_PowderBlue"     , 0xE6E0B0 , "Blue"
DATA "C_LightBlue"      , 0xE6D8AD , "Blue"
DATA "C_SkyBlue"        , 0xEBCE87 , "Blue"
DATA "C_LightSkyBlue"   , 0xFACE87 , "Blue"
DATA "C_DeepSkyBlue"    , 0xFFBF00 , "Blue"
DATA "C_DodgerBlue"     , 0xFF901E , "Blue"
DATA "C_CornflowerBlue" , 0xED9564 , "Blue"
DATA "C_MediumSlateBlue", 0xEE687B , "Blue"
DATA "C_RoyalBlue"      , 0xE16941 , "Blue"
DATA "C_Blue"           , 0xFF0000 , "Blue"
DATA "C_MediumBlue"     , 0xCD0000 , "Blue"
DATA "C_DarkBlue"       , 0x8B0000 , "Blue"
DATA "C_Navy"           , 0x800000 , "Blue"
DATA "C_MidnightBlue"   , 0x701919 , "Blue"

'Brown Colors

DATA "C_Cornsilk"      , 0xDCF8FF , "Brown"
DATA "C_BlanchedAlmond", 0xCDEBFF , "Brown"
DATA "C_Bisque"        , 0xC4E4FF , "Brown"
DATA "C_NavajoWhite"   , 0xADDEFF , "Brown"
DATA "C_Wheat"         , 0xB3DEF5 , "Brown"
DATA "C_BurlyWood"     , 0x87B8DE , "Brown"
DATA "C_Tan"           , 0x8CB4D2 , "Brown"
DATA "C_RosyBrown"     , 0x8F8FBC , "Brown"
DATA "C_SandyBrown"    , 0x60A4F4 , "Brown"
DATA "C_Goldenrod"     , 0x20A5DA , "Brown"
DATA "C_DarkGoldenrod" , 0x0B86B8 , "Brown"
DATA "C_Peru"          , 0x3F85CD , "Brown"
DATA "C_Chocolate"     , 0x1E69D2 , "Brown"
DATA "C_SaddleBrown"   , 0x13458B , "Brown"
DATA "C_Sienna"        , 0x2D52A0 , "Brown"
DATA "C_Brown"         , 0x2A2AA5 , "Brown"
DATA "C_Maroon"        , 0x000080 , "Brown"

'White Colors

DATA "C_White"        , 0xFFFFFF , "White"
DATA "C_Snow"         , 0xFAFAFF , "White"
DATA "C_Honeydew"     , 0xF0FFF0 , "White"
DATA "C_MintCream"    , 0xFAFFF5 , "White"
DATA "C_Azure"        , 0xFFFFF0 , "White"
DATA "C_AliceBlue"    , 0xFFF8F0 , "White"
DATA "C_GhostWhite"   , 0xFFF8F8 , "White"
DATA "C_WhiteSmoke"   , 0xF5F5F5 , "White"
DATA "C_Seashell"     , 0xEEF5FF , "White"
DATA "C_Beige"        , 0xDCF5F5 , "White"
DATA "C_OldLace"      , 0xE6F5FD , "White"
DATA "C_FloralWhite"  , 0xF0FAFF , "White"
DATA "C_Ivory"        , 0xF0FFFF , "White"
DATA "C_AntiqueWhite" , 0xD7EBFA , "White"
DATA "C_Linen"        , 0xE6F0FA , "White"
DATA "C_LavenderBlush", 0xF5F0FF , "White"
DATA "C_MistyRose"    , 0xE1E4FF , "White"

'Gray Colors

DATA "C_Gainsboro"     , 0xDCDCDC , "Gray"
DATA "C_LightGray"     , 0xD3D3D3 , "Gray"
DATA "C_Silver"        , 0xC0C0C0 , "Gray"
DATA "C_DarkGray"      , 0xA9A9A9 , "Gray"
DATA "C_Gray"          , 0x808080 , "Gray"
DATA "C_DimGray"       , 0x696969 , "Gray"
DATA "C_LightSlateGray", 0x998877 , "Gray"
DATA "C_SlateGray"     , 0x908070 , "Gray"
DATA "C_DarkSlateGray" , 0x4F4F2F , "Gray"
DATA "C_Black"         , 0x000000 , "Gray"

DATA "Z"                , 0x000000 , "Z"

DATAEND