Fläche mit Farbe ausfüllen

[Progman]

hier komplette Unit, die Form.Canvas füllt:

Delphi-Quellcode:

unit testUnit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XiButton;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    //
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x, y: Integer;
begin
  Canvas.Brush.Color:=clYellow;
  X:=30; y:=30;
  Canvas.FloodFill(x,y,Canvas.Pixels[x,y],fsSurface);
end;

end.

Bei mir funzt das, und das müsste auf jedem Canvas gehen.