Hallo,
ich möchte dass mein Programm automatisch erkennt ob ein Pixel im Kreis liegt oder nicht und diesen gegebenenfalls einfärbt.
(soll nicht per fill geschehen).
Leider funktioniert nur die manuelle Eingabe, aber nicht die komplette suche über das ganze Bild.
Wäre nett, wenn mir jemand helfen oder einen Tipp geben könnte damit ich es hinbekomme.
Code:
procedure TForm1.Button4Click(Sender: TObject);
var
i, j : Integer;
A : TPoint;
begin
try
A.X := i; //StrToInt (Edit3.Text) ; // i;
A.Y := j; //StrToInt (Edit4.Text) ; // j;
for i := 0 to Breit-1 do
for j := 0 to Hoch-1 do
begin
if sqrt(sqr(A.X - M.X) + sqr(A.Y - M.Y)) <= Radius1
then
Image1.Picture.Bitmap.Canvas.Pixels[A.X,A.Y] := clBlack ;
end;
except
ShowMessage ('Fuck my Life!');
end;
end;