Difference between revisions of "FindColorEx"

From SCAR Divi Manual
Jump to: navigation, search
(Created page with "right ==Definition== <source lang="scar" lines="false"> function FindColors(var Points: TPointArray; Color, xs, ys, xe, ye: Integer): Boolean; </source> ...")
 
(Example)
Line 21: Line 21:
 
   GetClientDimensions(w, h);
 
   GetClientDimensions(w, h);
 
   if FindColors(TPA, 0, 0, 0, w - 1, h - 1) then
 
   if FindColors(TPA, 0, 0, 0, w - 1, h - 1) then
 +
  begin
 
     WriteLn('Found color ' + IntToStr(Length(TPA)) + ' times');
 
     WriteLn('Found color ' + IntToStr(Length(TPA)) + ' times');
 +
    WriteLn('Coordinates: TPAToStr(TPA));
 +
  end;
 
end.
 
end.
 
</source>
 
</source>

Revision as of 13:23, 29 June 2011

FindColors.gif

Definition

function FindColors(var Points: TPointArray; Color, xs, ys, xe, ye: Integer): Boolean;

Availability

SCAR Divi 3.00 > Current

Description

This function searches for a given color specified by Color inside of a given search area specified by xs, ys, xe, ye 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. The function returns false if the color was not found, if it was it returns true and the coordinates of all found instances of the color in the TPointArray Points. The search will stop after the first color was found.

Example

var
  w, h: Integer;
  TPA: TPointArray;

begin
  GetClientDimensions(w, h);
  if FindColors(TPA, 0, 0, 0, w - 1, h - 1) then
  begin
    WriteLn('Found color ' + IntToStr(Length(TPA)) + ' times');
    WriteLn('Coordinates: TPAToStr(TPA));
  end;
end.

See Also