hojjatcroos
پنج شنبه 15 بهمن 1388, 07:52 صبح
ببخشید چرا در دلفی رنگ سفید به درستی شناسایی نمی شود من می خواهم وقتی به رنگ سفید در یک تصویر BMP رسید مقدار اون سطر رو برگشت بده برای سیاه عمل می کنه ولی برای سفید نه؟
function searchrow(color:TColor;image:TImage;height:Integer ;wide:Integer;top:Integer):Integer;
var
i,j:Integer;
p:PByteArray;
begin
for i:=top to height-1 do
begin
p:=image.Picture.Bitmap.ScanLine[i];
for j:=0 to wide-1 do
if p[j]=color then
begin
Result:=i;
Exit;
end;
end;
Result:=0;
Exit;
end;
function searchrow(color:TColor;image:TImage;height:Integer ;wide:Integer;top:Integer):Integer;
var
i,j:Integer;
p:PByteArray;
begin
for i:=top to height-1 do
begin
p:=image.Picture.Bitmap.ScanLine[i];
for j:=0 to wide-1 do
if p[j]=color then
begin
Result:=i;
Exit;
end;
end;
Result:=0;
Exit;
end;