PureBasic Forums - English

Posted: **Mon May 04, 2015 4:09 am**

Here is a color "eyedropper" for displaying the RGB values of any pixel on the screen. Feel free to add enhancements. Many thanks to Franco and anyone else who contributed.

Code: Select all

;Original loupe code by Franco
#WI = 1:#HE=1
    Procedure CaptureScreen(Left.l, Top.l)
      DC = GetDC_(0)
      MemDC = CreateCompatibleDC_(DC)
      BmpID = CreateImage(0, #WI, #HE)
      SelectObject_( MemDC, BmpID)
      StretchBlt_( MemDC, 0, 0,#WI,#HE, DC,Left, Top, #WI, #HE, #SRCCOPY)
      DeleteDC_( MemDC)
      ReleaseDC_(0,DC)
      ProcedureReturn BmpID
    EndProcedure
    
    If OpenWindow(0,0,0,200,200,"R G B",#PB_Window_SystemMenu)
    StickyWindow(0,#True)
    Else : End : EndIf
    
    CursorPosition.POINT
    StartDrawing(WindowOutput(0))

    Repeat
      EventID = WaitWindowEvent(10)
      GetCursorPos_(CursorPosition)
      hImage = CaptureScreen(CursorPosition\x,CursorPosition\y)
      DrawImage(hImage, 0, 0,#WI,#HE)
re = Red(Point(0,0)):DrawText(25,15,"Red:      "+Str(re)+"     "+LCase(Hex(re))+"       ",#White,$0000aa)
gr = Green(Point(0,0)):DrawText(25,35,"Green: "+Str(gr)+"     "+LCase(Hex(gr))+"       ",#White,$00aa00)
bl = Blue(Point(0,0)):DrawText(25,55,"Blue:     "+Str(bl)+"     "+LCase(Hex(bl))+"       ",#White,$ff0000)
Box(45,90,100,100,RGB(re,gr,bl))
    Until EventID=#PB_Event_CloseWindow   

    End

Posted: **Mon May 04, 2015 4:44 am**

Nice, compact, useful.

Thx for sharing.

Posted: **Mon May 04, 2015 2:57 pm**

...a bit complicated?

Try this (Windows only

) , spans all monitors

Code: Select all

Enumeration
#WinMain
EndEnumeration

Global igPt.point, igEvent.i, igColour.i, sgColour.s

       If OpenWindow(#WinMain, 0, 0, 200, 0,"RGB", #PB_Window_SystemMenu | #PB_Window_Tool)

             StickyWindow(#WinMain, #True)

             hDC = GetDC_(#WinMain)

             Repeat
                       igEvent = WaitWindowEvent(20)

                      GetCursorPos_(@igPt)

                      igColour = GetPixel_(hDC, igPt\x, igPt\y)
                      sgColour = "RGB(" + Str(Red(igColour)) + "," + Str(Green(igColour)) + "," + Str(Blue(igColour)) + ")"

                      If(GetAsyncKeyState_(#VK_SPACE) & 32768) ;Space Bar

                              SetClipboardText(sgColour)
                      EndIf

                      SetWindowTitle(#WinMain, sgColour)

             Until (igEvent = #PB_Event_CloseWindow)
       EndIf

End

Posted: **Mon May 04, 2015 3:58 pm**

Hi,

old, but with a bit more comfort:
http://www.purebasic.fr/english/viewtop ... 14&t=40098

Bernd

Posted: **Mon May 04, 2015 8:45 pm**

I think it's a nice touch for the user to see the actual color being measured, and the hex output is useful to me. I may add YUV output as well. I'm doing some critical color evaluation with this and it's worked quite well for that.

PureBasic Forums - English

Color Eyedropper

Color Eyedropper

Re: Color Eyedropper

Re: Color Eyedropper

Re: Color Eyedropper

Re: Color Eyedropper