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

[Florian Klaempfl]

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
                       DirectPutpixel(x1,y)
                    else

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