code


SUBMITTED BY: Guest

DATE: Oct. 20, 2012, 6:06 a.m.

FORMAT: Text only

SIZE: 353 Bytes

HITS: 1675

  1. unction ContinueButton: boolean;
  2. var
  3. bTxt, wTxt, searchtpa: TPointArray;
  4. begin
  5. FindColorsTolerance(bTxt, 8388608, MCX1, MCY1, MCX2, MCY2, 10);
  6. FindColorsTolerance(wTxt, 16777215, MCX1, MCY1, MCX2, MCY2, 10);
  7. SearchTPA := CombineTPA(bTxt, wTxt);
  8. Result := Length(SearchTPA)>50;
  9. end;

comments powered by Disqus