Janilabo | CountColor(s)TPA(Tol)

function CountColorTPA(Color: Integer; TPA: TPointArray): Integer;
var
  t: TPointArray;
begin
  if FindColorTPAEx(t, Color, TPA) then
  begin
    Result := Length(t);
    SetLength(t, 0);
  end;
end;

function CountColorsTPA(Colors: TIntArray; TPA: TPointArray): Integer;
var
  t: TPointArray;
begin
  if FindColorsTPAEx(t, Colors, TPA) then
  begin
    Result := Length(t);
    SetLength(t, 0);
  end;
end;

function CountColorTPATol(Color: Integer; TPA: TPointArray; Tol: Integer): Integer;
var
  t: TPointArray;
begin
  if FindColorTPATolEx(t, Color, TPA, Tol) then
  begin
    Result := Length(t);
    SetLength(t, 0);
  end;
end;

function CountColorsTPATol(Colors: TIntArray; TPA: TPointArray; Tol: Integer): Integer;
var
  t: TPointArray;
begin
  if FindColorsTPATolEx(t, Colors, TPA, Tol) then
  begin
    Result := Length(t);
    SetLength(t, 0);
  end;
end;