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-06-13 16:17:52 +0000
@@ -842,7 +845,12 @@
                     Begin
                             { x1 mod 8 }
                     if RevBitArray[x1 and 7] and TmpFillPattern <> 0 then
-                       DirectPutpixel(x1,y)
+                      begin
+                        OldCurrentColor := CurrentColor;
+                        CurrentColor := FillSettings.Color;
+                        DirectPutpixel(x1,y);
+                        CurrentColor := OldCurrentColor;
+                      end
                     else
                       begin
                             { According to the TP graph manual, we overwrite everything }