paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug ID #25675

Browse Source 
git-svn-id: trunk@26723 -
This commit is contained in:
michael 2014-02-08 11:45:56 +00:00
parent 576eadf6c9
commit c0ea463b7f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpcanvas.inc
View File

@ -609,7 +609,7 @@ begin
nb:= Brush.style <> bsClear; // Need brush ?
dp:=(pen is TFPCustomDrawPen); // Pen draws ?
db:=(brush is TFPCustomDrawBrush); // Brush draws ?
if (np and nb) and not (db or db) then
if (np and nb) and not (db or dp) then
DoRectangleAndFill (bounds)
else
begin