[fpc-devel] Fix to colour filling in the Poly procedure (Graph unit)

Florian Klaempfl florian at freepascal.org
Fri Jun 12 16:56:15 CEST 2009

borsa77 at libero.it schrieb:
> On 29 May 2009 at 0:29, 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. 

See the DirectPutpixel call in graph.inc line 848:

                            { x1 mod 8 }
                    if RevBitArray[x1 and 7] and TmpFillPattern <> 0 then

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

More information about the fpc-devel mailing list