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

[Florian Klaempfl]

borsa77 at libero.it schrieb:
> On 12 Jun 2009 at 16:56, Florian Klaempfl wrote:
> 
>> 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.
> 
> 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.

Applied.