FloodFill Rekursiv

[Tormentor32]

Delphi-Quellcode:

procedure FloodFill(ACanvas: TCanvas; x,y: Integer; AColor: TColor; Border: TColor);
begin
  if (ACanvas.Pixels[x,y] <> Border) then
  begin
    ACanvas.Pixels[x,y] := AColor;
    // Überprüfe vorm Aufruf erst, ob der Pixel die Bordercolor hat! Dann ruft er FloodFill nur auf, wenn nötig!
    FloodFill(ACanvas,x+1,y,AColor,Border);
    FloodFill(ACanvas,x-1,y,AColor,Border);
    FloodFill(ACanvas,x,y+1,AColor,Border);
    FloodFill(ACanvas,x,y-1,AColor,Border);
  end;
end;