diff -ur .\old\packages\graph/src/inc/graph.inc .\new\packages\graph/src/inc/graph.inc
--- .\old\packages\graph/src/inc/graph.inc	2008-02-02 16:48:10 +0000
+++ .\new\packages\graph/src/inc/graph.inc	2009-05-14 16:47:56 +0000
@@ -830,7 +830,10 @@
          end;
        $ff:
          begin
+           OldCurrentColor := CurrentColor;
+           CurrentColor := FillSettings.Color;
            HLine(x1-StartXViewPort,x2-StartXViewPort,y-StartYViewPort);
+           CurrentColor := OldCurrentColor;
          end;
        else
          begin