Browse Source

* SetBkColor like BP by changing Palette entry zero

pierre 26 years ago
parent
commit
54874916af
1 changed files with 10 additions and 2 deletions
  1. 10 2
      rtl/inc/graph/graph.pp

+ 10 - 2
rtl/inc/graph/graph.pp

@@ -2613,7 +2613,12 @@ end;
      GetViewSettings(Viewport);
      GetViewSettings(Viewport);
      SetViewPort(0,0,MaxX,MaxY,FALSE);
      SetViewPort(0,0,MaxX,MaxY,FALSE);
      CurrentBkColor := ColorNum;
      CurrentBkColor := ColorNum;
-     ClearViewPort;
+     {ClearViewPort;}
+     if not DirectColor and (ColorNum<256) then
+      SetRGBPalette(0,
+          DefaultColors[ColorNum].Red,
+          DefaultColors[ColorNum].Green,
+          DefaultColors[ColorNum].Blue);
      SetViewport(ViewPort.X1,Viewport.Y1,Viewport.X2,Viewport.Y2,Viewport.Clip);
      SetViewport(ViewPort.X1,Viewport.Y1,Viewport.X2,Viewport.Y2,Viewport.Clip);
    end;
    end;
 
 
@@ -3003,7 +3008,10 @@ SetGraphBufSize
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.44  1999-11-30 08:57:46  michael
+  Revision 1.45  1999-12-10 12:47:41  pierre
+   * SetBkColor like BP by changing Palette entry zero
+
+  Revision 1.44  1999/11/30 08:57:46  michael
   + Removed charmessagehandler declaration, it is in graphh.inc
   + Removed charmessagehandler declaration, it is in graphh.inc
 
 
   Revision 1.43  1999/11/28 16:13:55  jonas
   Revision 1.43  1999/11/28 16:13:55  jonas