anchor.diff:  procedure TDbTreeGrid.Render(term : ITerm);
     var
       sigil : char = ' ';
  -    i     : integer;
       count : cardinal =  0;
       rs    : TRecordSet;
   begin
  
positive.code:       procedure Redraw;
        procedure Render(term :  ITerm); virtual;
        procedure Resize(new_w, new_h : cardinal); virtual;
        property x : cardinal read _x write SetX;
        property y : cardinal read _y write SetY;
        property w : cardinal read _w write SetW;
        property h : cardinal read _h write SetH;
        constructor Create( aOwner : TComponent ); override;
  
negative.code:     _bg := $FC; _fg := $0;
    end;
  
  procedure TView.SetX(value : integer); begin _x := value; end;
  procedure TView.SetY(value : integer); begin _y := value; end;
  procedure TView.SetW(value : cardinal); begin _w := value; end;
  procedure TView.SetH(value : cardinal); begin _h := value; end;
  
  function TView.GetX : integer; begin result := _x end;
  function TView.GetY : integer; begin result := _y end;
  function TView.GetW : cardinal; begin result := _w end;
  function TView.GetH : cardinal; begin result := _h end;
  
  procedure TView.Nudge(dx, dy : integer);
    begin
  