Probleme mit FloodFill

[benst]

Hi ihr,
bei mir funktioniert FloodFill irgendwie nicht... :wall:
Ich habe ein Image in das ich male. Jetzt möchte ich Teile mit einer Farbe ausmalen. Doch der Befehl

Delphi-Quellcode:

Image.Canvas.FloodFill(10,10,clBlack,fsBorder);

zeigt keine Auswirkungen (auch mit anderen Farben und fsSurface anstatt fsBorder).
Woran kann das liegen.
Gruß
Ben

[xaromz]

Hallo,

aus Deinem Post schließe ich, dass Du auf ein TImage zeichnest. Ein TImage ist eigentlich nur ein Container für ein Bildobjekt. Veruche doch mal, auf das (vermutlich) verwendete Bitmap zu zeichnen:

Delphi-Quellcode:

Image.Picture.Bitmap.Canvas.FloodFill(10,10,clBlack,fsBorder);
Image.Update; // Damit die Änderungen auch angezeigt werden

Gruß
xaromz

[benst]

(Ja genau TImage.)
Danke,
aber der Zusatz "Picture.Bitmap." ändert leider nichts. Aber es hätte auch ohne gehen müssen (denke ich), da ich ja auch über Image.Canvas.LineTo(...) zeichnen kann.
Hat noch jemand eine Idee? :gruebel:
Gruß
Ben

[Matze]

Hallo,

das geht bei mir ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Brush.Color := clLime;
  Image1.Canvas.FloodFill(10, 10, clBlack, fsBorder);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Brush.Color := clNavy;
  Image1.Canvas.Pen.Color := clBlack;

  Image1.Canvas.Rectangle(5, 5, 100, 100);
end;

Der 3. Parameter gibt die Begranzungsfarbe an und zuvor musst du über Brush.Color die Füllfarbe festlegen.

[benst]

aaahhhh :coder2:
man sollte die Delphi-Hilfe etwas genauer lesen...
Dachte Color wäre die Füllfarbe, aber es ist die Begrenzungsfarbe:

Delphi-Quellcode:

procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);

Jetzt funktioniert es:

Delphi-Quellcode:

Image.Canvas.Brush.Color:=FuellFarbe;
Image.Canvas.FloodFill(x,y,Pixels[x,y],fsSurface);

Danke
Ben