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.
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
poly.pas
Description: Binary data
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
poly3.diff
Description: Binary data
_______________________________________________ fpc-devel maillist - [email protected] http://lists.freepascal.org/mailman/listinfo/fpc-devel
