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

[borsa77 at libero.it]

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.
-------------- next part --------------
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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: poly.pas
Type: application/octet-stream
Size: 402 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20090613/ed6caffe/attachment.obj>
-------------- next part --------------
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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: poly3.diff
Type: application/octet-stream
Size: 878 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20090613/ed6caffe/attachment-0001.obj>