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.