Помогите пожалуйста!

← →
Man-In-Red © (2002-07-23 20:22) [0]

Как можно программно проверить, есть ли на каком-то прямоугольном отрезке изображения загруженном в Image, точка определенного цвета, допустим красная?

← →
Man-In-Red © (2002-07-23 21:30) [1]

Мастераааааа, помогите пожалуйста мне, пожалуйста…

← →
TTCustomDelphiMaster © (2002-07-23 22:10) [2]

Canvas.Pixels

← →
Man-In-Red © (2002-07-23 22:43) [3]

Это я понимаю, но все никак не могу сделать быстренький алгоритм поиска красной точки в определенной прямоугольной области на картинке в Image…
Помогите пожалуйста, нужно очень

VCL Reference
ScanLine, Height example

procedure TForm1.Button1Click(Sender: TObject);

// This example shows drawing directly to the BitMap
var
x,y : Integer;
BitMap : TBitMap;
P : PByteArray;
begin
BitMap := TBitMap.create;
try
BitMap.LoadFromFile("C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp");
for y := 0 to BitMap.Height -1 do
begin
P := BitMap.ScanLine[y];
for x := 0 to BitMap.Width -1 do
P[x] := y;

end;
Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
end;
//...
Так вот. У TImage тоже есть битмап.

P := MyImage.Picture.Bitmap.ScanLine;
NeedColor := P[x];

Помогите пожалуйста! Найти похожие ветки