function CountColorTolerance(const Color, XS, YS, XE, YE, Tol: Integer): Integer;
SCAR Divi 3.00 > Current
This function searches for a given color specified by Color within a tolerance range specified by Tol 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.
The active tolerance algorithm can be changed using the ColorToleranceSpeed function.
var w, h: Integer; begin GetClientDimensions(w, h); WriteLn('Counted color ' + IntToStr(CountColorTolerance(4, 0, 0, w - 1, h - 1, 5)) + ' times'); end.