anchor.diff:      FBufferBitmap.setsize(FDrawWindow.Width, FDrawWindow.Height);
       FBufferBitmap.BeginUpdate(True);
   
  -    Canvas.Brush.Color:= clBlack;
  -    Canvas.Brush.Style:= bsSolid;
  -    Canvas.FillRect(10,10,30,30);
   
       FColor           := lqColorToWin(clText1);
       FLineStyle       := lsSolid;
       FLineWidth       := 1;
       FBackgroundColor := lqColorToWin(clBoxColor);
  +    Canvas.Brush.Color:= FBackgroundColor;
  +    Canvas.Brush.Style:= bsSolid;
  +    Canvas.Clear;
  +    //Canvas.FillRect(10,10,30,30);
     end;
   
     FDrawing := True;
  
positive.code: end;
  
  procedure TlqLazCanvas.DoSetClipRect(const ARect: TlqRect);
  begin
    {FClipRectSet := True;
    FClipRect    := ARect;
    DeleteObject(FClipRegion);
    FClipRegion  := CreateRectRgn(ARect.Left, ARect.Top, ARect.Left+ARect.Width, ARect.Top+ARect.Height);
    SelectClipRgn(Fgc, FClipRegion);}
  
  end;
  
  procedure TlqLazCanvas.DoSetColor(cl: TlqColor);
  
negative.code: end;
  
  procedure TlqLazCanvas.DoClearClipRect;
  var R : TlqRect;
  begin
    //SelectClipRgn(Fgc, 0);
    //FClipRectSet := False;
    self.GetWinRect(R);
    self.DoSetClipRect(R);
  end;
  
  procedure TlqLazCanvas.DoDrawLine(x1, y1, x2, y2: TlqCoord);
  