if Image.Canvas.Pixels[I,II]= clWhite then这是把图片导入到TImage中
GetRValue(Image1.Canvas.Pixels[x,y])= 0)and(GetGValue(Image1.Canvas.Pixels[x,y])= 0) and (GetBValue(Image1.Canvas.Pixels[x,y])= 0 么?
Tc:= Image1.Canvas.Pixels[i,j]; CRed:= GetRvalue(Tc); CGreen:= GetGvalue(Tc); CBlue:= GetBvalue(Tc); if (CRed=0)and(CGreen=0)and(CBlue=0) then begin // 黑色 end;
CRed:= GetRvalue(Tc);
CGreen:= GetGvalue(Tc);
CBlue:= GetBvalue(Tc);
if (CRed=0)and(CGreen=0)and(CBlue=0) then
begin
// 黑色
end;