Desktop 2 RGB

[November]

Well, its nothing much, bur someone ask me to do that to capture some colors of some brands logo colors

So i made this really simple script, i hope you enjoy.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

        
HotKeySet("^!x" , "getcolor")
HotKeySet("{ESC}" , "fexit")

dim $vdif, $wdif, $r, $g, $b, $hex

$main = GUICreate("Get RGB Color", 105, 35, @DesktopWidth - 145, @DesktopHeight - 95, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$label = GUICtrlCreateLabel("", 15, 10, 80, 20, $SS_CENTER)
GUISetState()

while 1

$mouse = MouseGetPos()

Select
    case $mouse[0] > @DesktopWidth - 60 And $mouse[1] < @DesktopHeight - 60 
        $wdif = -150
    case $mouse[1] > @DesktopHeight - 60 And $mouse[0] < @DesktopWidth - 60
        $vdif = -50
    case $mouse[0] <= @DesktopWidth - 60
        $wdif = 10
    Case $mouse[1] <= @DesktopHeight - 60 
        $vdif = 40
    case $mouse[0] > @DesktopHeight - 150  AND $mouse[1] > @DesktopHeight - 150 
        $vdif = -50
        $wdif = -150
EndSelect

$var = PixelGetColor( $mouse[0] , $mouse[1])
$background = GUICtrlSetBkColor($main, $var)
GUISetBkColor($var, $main)
middle()
GUICtrlSetData($label, $R & ", " & $G & ", " & $B)
ToolTip("ALT+CTRL+X (Get Color)" & @CRLF & "ESC (Exit Program)", $mouse[0] + $wdif, $mouse[1] + $vdif, "", 0, 0)
$wdif = 5
$vdif = 0
Sleep(10)

WEnd

Func getcolor()
    $output = ""
    $hex = Hex ( $var , 6)
    $output = $output & "RGB Color : " & $R & ", " & $G & ", " & $B
    TrayTip("RGB Color", $output & @CRLF & "Copied to Clipboard", 1)
    ClipPut("R:"& $R & " G:" & $G & " B:" & $B)
EndFunc

func middle()
    $hex = Hex ( $var , 6)
    $HR = StringMid($hex, 1, 2)
    $HG = StringMid($hex, 3, 2)
    $HB = StringMid($hex, 5, 2)
    $R = Dec($HR)
    $G = Dec($HG)
    $B = Dec($HB)
    if $r <= 60 AND $g <= 60 AND $b <= 60 Then GUICtrlSetColor($label, 0xFFFFFF)
    if $r > 60 AND $g > 60 AND $b > 60 Then GUICtrlSetColor($label, 0x000000)
EndFunc

func fexit()
    Exit
EndFunc

Cheers

[billthecreator]

Thats pretty cool. Nice work.

[gseller]

Nice work November...

[A. Percy]

Gostei, foi um ótimo exemplo

[November]

Thats pretty cool. Nice work.

Thank m8, this was a request, and when ideas are given, we work better

Nice work November...

Thank Gesller, I always try do do something different

Gostei, foi um ótimo exemplo

Obrigado A. Percy, volte sempre (É bom ouvir um bocado de Portugues neste forum de vez em quando )

[A. Percy]

Obrigado A. Percy, volte sempre (É bom ouvir um bocado de Portugues neste forum de vez em quando )

Idem! Pode não ser o idioma mais usado no mundo, mas é um dos mais interessantes. Ou seja, somos privilegiados

[trancexx]

Yes, language is really great. Phonetically one of the most fascinating (to me anyway).

[SoftVoile]

nice work, useful script, thanx

[November]

Yes, language is really great. Phonetically one of the most fascinating (to me anyway).

Thanx Trancexx,

I always like to keep it simple... if i know how :)

Cheers

nice work, useful script, thanx

Yeah i think its a good script for marketing/webdesign... its was that departement

Thanx m8