* patch to fix fillpoly, by borsa77

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13208 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 4 deletions

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 }