anchor.diff:      _bg := $FC; _fg := $0;
     end;
   
  -procedure TView.SetX(value : cardinal);
  -  begin
  -    _x := value;
  -  end;
  -
  -procedure TView.SetY(value : cardinal);
  -  begin
  -    _y := value;
  -  end;
  -
  -procedure TView.SetW(value : cardinal);
  -  begin
  -    _w := value;
  -  end;
  -
  -procedure TView.SetH(value : cardinal);
  -  begin
  -    _h := value;
  -  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
  
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: procedure TDbTreeGrid.Render(term : ITerm);
    var
      sigil : char = ' ';
      count : cardinal =  0;
      rs    : TRecordSet;
  begin
  