From 2fa5bd3ef27ca5b9014fde27f17e4aa9951ef3a5 Mon Sep 17 00:00:00 2001
From: florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 28 May 2009 22:28:58 +0000
Subject: * patch to fix fillpoly, by borsa77

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13208 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/graph/src/inc/graph.inc | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'packages/graph')

diff --git a/packages/graph/src/inc/graph.inc b/packages/graph/src/inc/graph.inc
index 3a19435b8a..8efb7f26db 100644
--- a/packages/graph/src/inc/graph.inc
+++ b/packages/graph/src/inc/graph.inc
@@ -828,10 +828,13 @@ var
            HLine(x1-StartXViewPort,x2-StartXViewPort,y-StartYViewPort);
            CurrentColor := OldCurrentColor;
          end;
-       $ff:
-         begin
-           HLine(x1-StartXViewPort,x2-StartXViewPort,y-StartYViewPort);
-         end;
+      $ff:
+        begin
+          OldCurrentColor := CurrentColor;
+          CurrentColor := FillSettings.Color;
+          HLine(x1-StartXViewPort,x2-StartXViewPort,y-StartYViewPort);
+          CurrentColor := OldCurrentColor;
+        end;
        else
          begin
            { number of times to go throuh the 8x8 pattern }
-- 
cgit v1.2.1