#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ColorGet", 151, 198, 192, 124)
$Red = GUICtrlCreateSlider(0, 0, 150, 30)
GUICtrlSetLimit(-1, 10, 0)
$Blue = GUICtrlCreateSlider(0, 45, 150, 30)
GUICtrlSetLimit(-1, 10, 0)
$Yel = GUICtrlCreateSlider(0, 90, 150, 30)
GUICtrlSetLimit(-1, 10, 0)
$C = GUICtrlCreateGraphic(0, 120, 150, 52)
$R = GUICtrlCreateInput("Input1", 0, 176, 150, 21)
$Ref = GUICtrlCreateCheckbox("RFIB",0,120)
$Ref2 = GUICtrlCreateCheckbox("RFSL",100,120)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Hotkeyset("{F1}","Help")
While 1
   If GUICtrlread($Red) = 10 then
	   $RE = "F"
	Else
	   $RE = GUICtrlread($Red)
   Endif
     If GUICtrlread($Blue) = 10 then
	   $BL = "F"
	Else
	   $BL = GUICtrlread($Blue)
   Endif
     If GUICtrlread($Yel) = 10 then
	   $YE = "F"
	Else
	   $YE = GUICtrlread($Yel)
   Endif
   GUICtrlSetState($Ref,$GUI_ONTOP)
      GUICtrlSetState($Ref2,$GUI_ONTOP)
   IF GUICtrlread($Ref) = 1 Then
   GUICtrlsetbkcolor($C,GUICtrlread($R))
   Endif
   If GUICtrlread($Ref2) = 1 Then
	GUICtrlsetdata($R,"0x"&$RE&$RE&$BL&$BL&$YE&$YE)
   Endif

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit



	EndSwitch
 WEnd

 Func Help ()
	MsgBox (0, "Help / ColorGet","Slider 1: Red color"&@CRLF&"Slider 2: Green color"&@CRLF&"Slider 3: Blue color"&@CRLF&"RFIB: Autorefresh from InputBox"&@CRLF&"RFSL: Autorefresh from Sliders")
	Endfunc