![]() Expand collapse popup #include #NoTrayIcon GUICreate ( "Pixel Color", 200, 180 ,- 1 ,- 1 ,- 1, $WS_EX_TOPMOST ) GUICtrlCreateLabel ( "Mouse Coord.:", 10, 10 ) $MousePos = GUICtrlCreateInput ( "", 100, 10, 90, 20, $ES_READONLY ) GUICtrlCreateLabel ( "Decimal Code: ", 10, 40 ) $PixelColor = GUICtrlCreateInput ( "", 100, 40, 90, 20, $ES_READONLY ) GUICtrlCreateLabel ( "Hex Code:", 10, 70 ) $hexColor = GUICtrlCreateInput ( "", 100, 70, 90, 20, $ES_READONLY ) GUICtrlCreateLabel ( "Color:", 10, 100 ) $MostrarColor = GUICtrlCreateLabel ( "", 100, 100, 90, 20, $ES_READONLY ) GUICtrlCreateLabel ( "Press F to freeze info", 50, 135 ) GUICtrlSetColor ( - 1, 0x00808080 ) GUICtrlCreateLabel ( "Press R to resume", 57, 150 ) GUICtrlSetColor ( - 1, 0x00808080 ) HotKeySet ( "f", "freeze" ) HotKeySet ( "r", "continue" ) GUISetState ( ) $loop = 1 While 1 $msg = GUIGetMsg ( )ĭata ( ) Select Case $msg = $GUI_EVENT_CLOSE $loop = 0 Exit EndSelect WEnd Func freeze ( ) $loop = 0 EndFunc Func continue ( ) $loop = 1ĭata ( ) EndFunc Func data ( ) While $loop = 1 $msg = GUIGetMsg ( ) Select Case $msg = $GUI_EVENT_CLOSE $loop = 0 Exit EndSelect Sleep ( 25 ) $pos = MouseGetPos ( ) $color = PixelGetColor ( $pos, $pos ) GUICtrlSetData ( $MousePos, "X=" & $pos & " Y=" & $pos ) GUICtrlSetData ( $PixelColor, $color ) $HEX6 = StringRight ( Hex ( $color ), 6 ) GUICtrlSetData ( $hexColor, "#" & $HEX6 ) GUICtrlSetBkColor ( $MostrarColor, "0x" & Hex ( $color ) ) WEndĮndFuncoÝ÷ Úå )u« ^v÷«² * 'o&ñÂ)íz¼oûºÚ"µÍÚLÉÝÂÓÕ^RXÛÛÛØÙYÝÙ^TÙ]
0 Comments
Leave a Reply. |