Ach ... Diagonal ...
Jaja, so schaut es doch schon besser aus ...
Aber dann muss doch P3 anders sein, oder???
P1 läuft von oben link. P3 Muss doch dann von unten links laufen, also:
Delphi-Quellcode:
P3.X := -1;
for y:=0 to image3.Height-1 do
begin
for x:= image3.width-1 Downto 0 do
begin
if (((image3.Canvas.pixels[x,y]) and 255) > 10) then
begin
P3.X := x;
p3.Y := y;
break;
end;
end;
if P3.X > 0 then Break;
end;