Find pixel color on screen?

[roachofdeath]

Hi, I was wondering how I would go about finding the pixel color of a pixel on the screen, and not just the window?

I know about GetPixel_, but I am unsure on the parameters for it.

[PB]

This is something I cut down from other examples in these forums... it shows
the color of the pixel under the mouse pointer when you run it. Maybe you
should stick it in a loop or something?

Code: Select all

dc=CreateDC_("DISPLAY",0,0,0) : GetCursorPos_(mouse.POINT)
p=GetPixel_(dc,mouse\x,mouse\y) : DeleteDC_(dc)
Debug "R="+Str(Red(p))+", G="+Str(Green(p))+", B="+Str(Blue(p))

[akj]

There is also PB's Point() function.

[roachofdeath]

on the screen, and not just the window

[Dare2]

Hi roachofdeath,

Would a simplistic way work for you? Eg, do a screencapture (various code snippets in codearchive on www.purearea.net - windows-system and screenshots directory) and then get the point of the captured image?

[roachofdeath]

Seems logical, but a lot easier (and probably easier for the computer too) to just use the API call

[PB]

> just use the API call

Yep -- no need to create a screenshot or use the 2D graphics library.

[PHP]

Has anyone now a working solution for the whole screen and not only the window?

[Henrik]

Hi PHP
But PB's example works
Here in a Repeat - ForEver Loop
With a 500 millisc. delay
Remember to kill the program from the editor as it run's forever

Code: Select all

Repeat
dc=CreateDC_("DISPLAY",0,0,0) : GetCursorPos_(mouse.POINT)
p=GetPixel_(dc,mouse\x,mouse\y) : DeleteDC_(dc)
Debug "R="+Str(Red(p))+", G="+Str(Green(p))+", B="+Str(Blue(p)) 
Delay (500)
ForEver

Best regrads
Henrik

[Droopy]

Code: Select all

; Return the RGB color of the pixel at the specified coordinates
; or #CLR_INVALID (-1) if coordinates is outside the screen

ProcedureDLL GetPixelColor(x,y)
  sysviewDC = GetDC_( hwndSysview ) 
  ProcedureReturn GetPixel_( sysviewDC,x, y ) 
EndProcedure

In the Droopy Lib ...

[PB]

> Has anyone now a working solution for the whole screen and not only the window?

Obviously you didn't try my tip.