As in the subject, the FillPoly doesn't use the correct colour specification, for a demonstration you can try the example poly.pas (attached) before and after to apply the patch.
Regards, Marco.

The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any other MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance.

---- File information -----------
File: poly.diff
Date: 28 May 2009, 16:47
Size: 559 bytes.
Type: Unknown

The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any other MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance.

---- File information -----------
File: poly.pas
Date: 28 May 2009, 16:41
Size: 382 bytes.
Type: Program-source

As in the subject, the FillPoly doesn't use the correct colour specification, for a demonstration you can try the example poly.pas (attached) before and after to apply the patch.

Thanks, applied.

However, I wonder if the behaviour on pattern fills is correct ...

Florian Klaempfl wrote

Thanks, applied. However, I wonder if the behaviour on pattern fills is correct ...

I have investigated a little, but I don't be sure you refer in what follows. Actual the edges are not drawn like in TP, where their color is that of SetColor. There was also an overlap problem. The patch is in attachment. Marco.

The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any other MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance.

---- File information -----------
File: poly2.diff
Date: 29 May 2009, 16:10
Size: 885 bytes.
Type: Unknown

The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any other MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance.

---- File information -----------
File: poly.pas
Date: 29 May 2009, 15:54
Size: 380 bytes.
Type: Program-source

I have investigated a little, but I don't be sure you refer in what follows. Actual the edges are not drawn like in TP, where their color is that of SetColor. There was also an overlap problem. The patch is in attachment. Marco.

... I forgot, that behaviour is special useful when the pattern fill is EmptyFill. Marco.

What do you think about?

See the DirectPutpixel call in graph.inc line 848:

                            { x1 mod 8 }
                    if RevBitArray[x1 and 7] and TmpFillPattern  0 then
                       DirectPutpixel(x1,y)
                    else

Imo CurrentColor should be set to FillSettings.Color before doing the drawing.

What do you think about?

Applied, thanks.

You have right, I was taken in deceive by the LineFill mode was correct contrary to LtSlashFill and others. In attachment there's the test program and the (superflous) patch.
Marco.

The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any other MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance.

---- File information -----------
File: poly.pas
Date: 13 Jun 2009, 16:14
Size: 402 bytes.
Type: Program-source

The following section of this message contains a file attachment prepared for transmission using the Internet MIME message format. If you are using Pegasus Mail, or any other MIME-compliant system, you should be able to save it or view it from within your mailer. If you cannot, please ask your system administrator for assistance.

---- File information -----------
File: poly3.diff
Date: 13 Jun 2009, 16:29
Size: 878 bytes.
Type: Unknown

Applied.