Quickmarch
2009-05-15 18:59:13
I've seen in Overwrite.scar that there were some SCAR Divi 3.20 up functions so i thought it would be good to have this one.
{$IFNDEF SCAR320_UP}
function FindColors(var TPA: TPointArray; Color, x1, y1, x2, y2: Integer): Boolean;
begin
FindColorsTolerance(TPA, Color, x1, y1, x2, y2, 0);
Result := Length(TPA) > 0;
end;
{$ENDIF}