From a72309bec9c9cc0411b6007eaadd8ba669d8bd45 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 22 Oct 1998 09:44:57 +0000
Subject: [PATCH]  * PatternBuffer was not set on entry !!

---
 rtl/dos/graph.pp | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/rtl/dos/graph.pp b/rtl/dos/graph.pp
index 4b61767bf2..da3f009770 100644
--- a/rtl/dos/graph.pp
+++ b/rtl/dos/graph.pp
@@ -351,14 +351,17 @@ procedure graphdefaults;
          aktlineinfo.linestyle:=solidln;
          aktlineinfo.thickness:=normwidth;
 
-         { Fllmuster }
-         aktfillsettings.color:=white;
-         aktfillsettings.pattern:=solidfill;
 
          { Zeichenfarbe }
          aktcolor:=(white shl 24)+(white shl 16)+(white shl 8)+white;
          aktbackcolor:=black;
 
+         { Fllmuster }
+         setfillstyle(solidfill,white);
+         { necessary to load patternbuffer !! (PM)
+         aktfillsettings.color:=white;
+         aktfillsettings.pattern:=solidfill;      }
+
          { Viewport setzen }
          aktviewport.clip:=true;
          aktviewport.x1:=0;
@@ -533,11 +536,11 @@ begin
   aktlineinfo.linestyle:=solidln;
   aktlineinfo.thickness:=normwidth;
   case aktfillsettings.pattern of
-     0 : begin
+     emptyfill : begin
            aktcolor:=aktbackcolor;
            for y:=y1 to y2 do line(x1,y,x2,y);
          end;
-     1 : begin
+     solidfill : begin
            aktcolor:=aktfillsettings.color;
            for y:=y1 to y2 do line(x1,y,x2,y);
          end;
@@ -831,7 +834,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  1998-09-16 16:47:25  peter
+  Revision 1.6  1998-10-22 09:44:57  pierre
+   * PatternBuffer was not set on entry !!
+
+  Revision 1.5  1998/09/16 16:47:25  peter
     * merged fixes
 
   Revision 1.4.2.1  1998/09/16 16:15:41  peter