delphi之找色和色块

最新推荐文章于 2021-09-10 11:13:08 发布

weixin_33851429

最新推荐文章于 2021-09-10 11:13:08 发布

阅读量206

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/devlyn/archive/2010/08/27/1809821.html

找色和色块，是模拟的重要基础。

有时候，需要确定某点是否出现某种颜色，有时候需要判断色块是否出现在某位置

有时候，需要看范围内是否出现色块。

function IsColor(bmp:TBitmap; x,y:integer; c:TColor):boolean;
var
row:pRGBTripArray;
p:TRGBTriple;
begin
row:=bmp.ScanLine[y];
p:=row[x];
result:=(p.rgbtBlue=GetBValue(c)) and (p.rgbtGreen=GetGValue(c))
and (p.rgbtRed=GetRValue(c));
end;

function IsColorBlock(bmp:TBitmap; x,y,n:integer; c:TColor):boolean;
var
i,j:integer;
begin
result:=false;
for j:=y to y+n-1 do
begin
    for i:=x to x+n-1 do
    begin
      if not IsColor(bmp, i, j, c) then // 颜色不对就不是色块了
        exit;
     end;
end;
result:=true; // 能到这里，该位置就是色块
end;

function FindColorBlock(bmp:TBitmap; x1,y1,x2,y2,n:integer;c:TColor):TPoint;
var
i,j:integer;
begin
for j:=y1 to y2 do
begin
    for i:=x1 to x2 do
    begin
      if IsColor(bmp, i, j, c) then // 先找色点
      begin
        if IsColorBlock(bmp,i,j,3,c) then // 再判色块
        begin
          result.x:=i;
          result.y:=j;
          exit; // 找到返回
        end;
      end;
    end;
end;
result.x:=-1;
result.y:=-1;
end;