ColorAtScreenLoc Function

[J. Landman Gay]

Here's another way:

on getPixelColor pPt
   put the screenmouseloc into tOldLoc
   put (item 1 of pPt) + (the left of this stack) into tloc
   put (item 2 of pPt) + (the top of this stack) into item 2 of tloc
   set the screenmouseloc to tloc
   put the mousecolor into tColor
   set the screenmouseloc to tOldLoc
   return tColor
end getPixelColor

It happens so fast the mouse never moves. Based on a suggestion by Dr Raney.

-- 
Jacqueline Landman Gay         |     jacque at hyperactivesw.com
HyperActive Software           |     http://www.hyperactivesw.com