TWPPDFPrinter.Canvas.FloodFill does not work

Hello,

I tried to fill a Rectangle with the Floodfill-Method, but it fails.

Some Code:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   iRes: Integer;
Begin
   iRes := Screen.PixelsPerInch;
   PDF.BeginDoc;
   PDF.StartPage(Round(21 / 2.54 * iRes), Round(29.7 / 2.54 * iRes), iRes, iRes, 0);


   //Creating the Rectangle
   PDF.Canvas.Rectangle(10, 10, 500, 500);


   //Fill it red
   PDF.Canvas.Brush.Color := clRed;
   PDF.Canvas.FloodFill(12, 12, PDF.Canvas.Pixels[20, 20], fsSurface);


   PDF.EndPage;
   PDF.EndDoc;
End;

Hope anybody could help - thx in advance!

(I need the Floodfill method because I have to fill several Regions within this Rectangle later with different colors)

(We work with wPDF Version 2)

No ideas? Does my code work for anyone as expected?

Hello Julian,

thanks for the Information.

Hello Richard,

Zitat

Sascha, have you tried FillRect instead of FloodFill?

unfortunately this does not seem to be a solution for my special case because I have to fill a RoundRect, too

Although thx for your efforts - for a standard rectangle it would work!

Regards
Sascha :(

Hello Julian,

Zitat

BeginPath
.... DrawingCode ....
EndPath
FillPath

I got a RoundRect, filled blue. Only the lower right corner should be filled in red.
If I work with path's I'd have to repaint the corner myself, to get the path :(
-> The RoundRect-method would be needless.