Как считать Point из BMP?

[mks]

Как можно считать цвет поинта из графического файла, например из .BMP?
Допустим имеем графический файл на диске, нужно считать цвет поинта с определенными координатами.
Как это можно организовать в пакет хакке?

[mks]

Как можно считать цвет поинта из графического файла, например из .BMP?
Допустим имеем графический файл на диске, нужно считать цвет поинта с определенными координатами.
Как это можно организовать в пакет хакке?

[QaK]

procedure init;
begin
............
image1:=TImage.Create;
image1.paremt:=frm;
image1.width:=...
image1.picture.loadfromfile('sdf.bmp');
......................
end;

begin
...........
image1.Canvas.Pixels[X,Y]:=clRed;
............
end.

[QaK]

procedure init;
begin
............
image1:=TImage.Create;
image1.paremt:=frm;
image1.width:=...
image1.picture.loadfromfile('sdf.bmp');
......................
end;

begin
...........
image1.Canvas.Pixels[X,Y]:=clRed;
............
end.

[xkor]

как вариант, создать компонент TImage затем загрузить в него изображение и там уже цвет пиксела легко узнать...

хех, пока писал, квак уже ответил, тока он написал как задать цвет а не как его считать)
image1.Canvas.Pixels[X,Y]:=clRed; надо заменить на color:=image1.Canvas.Pixels[X,Y];

[xkor]

как вариант, создать компонент TImage затем загрузить в него изображение и там уже цвет пиксела легко узнать...

хех, пока писал, квак уже ответил, тока он написал как задать цвет а не как его считать)
image1.Canvas.Pixels[X,Y]:=clRed; надо заменить на color:=image1.Canvas.Pixels[X,Y];

[mks]

хех, пока писал, квак уже ответил, тока он написал как задать цвет а не как его считать)
image1.Canvas.Pixels[X,Y]:=clRed; надо заменить на color:=image1.Canvas.Pixels[X,Y];

ну до этого я и сам допер))
пасиб

[mks]

хех, пока писал, квак уже ответил, тока он написал как задать цвет а не как его считать)
image1.Canvas.Pixels[X,Y]:=clRed; надо заменить на color:=image1.Canvas.Pixels[X,Y];

ну до этого я и сам допер))
пасиб