function CountColor(const Color, XS, YS, XE, YE: Integer): Integer;
SCAR Divi 3.00 > Current
This function searches for a given color specified by Color using a scan-line pattern. The search area is given as a set of upper-left (XS, YS) and lower-right (XE, YE) coordinates which are specified relative to the selected client window. If the given search area is invalid (XS > XE or YS > YE), an exception is thrown.
The function returns the number of pixels it found, as a result of this 0 is returned when the color was not found.
var w, h: Integer; begin GetClientDimensions(w, h); WriteLn('Counted color ' + IntToStr(CountColor(0, 0, 0, w - 1, h - 1)) + ' times'); end.