Za pomocą tego kodu:
procedure TForm1.Button3Click(Sender: TObject);
var
color : Tcolor;
color1: Tcolor;
i :integer;
j:integer;
begin
color1:=32768;
for i:=1 to 400 do
begin
for j:=1 to 400 do
begin
color:= Image1.Canvas.Pixels[i,j];
if color=color1 then
begin
poziom:=i;
pion:=j;
end;
end;
Jednak ten sposób jest dla mnie zbyt powolny.Wyczytałem na necie że szybsze do takich operacji bedzie scanline.
Tylko nie wiem jak się tym posługiwac.
Nieważne jest nawet żeby obrazek był wczytywany do Image1. Po prostu chce znaleźc pozycje piksela danego koloru w jak najkrótszym czasie.
Czy ktoś pomoże?