Hallo
ich möchte einen Bereich mit einer Farbe füllen. Delphi soll aber automatisch die
Grenzen erkennen.
d.h. ich muss nicht unbedingt image1.canvas oder image2.canvas eingeben
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with image1.Canvas do // Ich muss hier nicht unbedingt image1.canvas eingeben
begin
Pen.Color:=clBlue;
Brush.Color:=clRed;
FloodFill(4, 70, image1.Canvas.Pixels[50,50], fsBorder); // hier ist genauso
end;
end;
MSPaint z.B. erkennt automatisch die Umgrenzungen