anchor.diff:  end;
   
   procedure TlqLazCanvas.DoSetClipRect(const ARect: TlqRect);
  -begin
  -  {FClipRectSet := True;
  +var R : TRect;
  +begin
  +//FClipRectSet := True;
     FClipRect    := ARect;
  -  DeleteObject(FClipRegion);
  +  {DeleteObject(FClipRegion);
     FClipRegion  := CreateRectRgn(ARect.Left, ARect.Top, ARect.Left+ARect.Width, ARect.Top+ARect.Height);
     SelectClipRgn(Fgc, FClipRegion);}
  -
  +  R := Rect(ARect.Left, ARect.Top,
  +    ARect.Left+ARect.Width -1, ARect.Top+ARect.Height -1);
  +  Canvas.ClipRect := R;
   end;
   
   procedure TlqLazCanvas.DoSetColor(cl: TlqColor);
  
positive.code: end;
  
  procedure TlqLazCanvas.DoClearClipRect;
  begin
    //SelectClipRgn(Fgc, 0);
    //FClipRectSet := False;
  end;
  
  procedure TlqLazCanvas.DoDrawLine(x1, y1, x2, y2: TlqCoord);
  
negative.code:     FBufferBitmap.setsize(FDrawWindow.Width, FDrawWindow.Height);
      FBufferBitmap.BeginUpdate(True);
  
  
      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;
  