anchor.diff:      ClrScr;
     end;
   
  +procedure TView.Resize(new_w, new_h : cardinal);
  +  begin
  +    _w := new_w;
  +    _h := new_h;
  +  end;
  ++
  +constructor TTermView.Create( aOwner : TComponent );
  +  begin
  +    inherited Create( aOwner );
  +    _gridterm := TGridTerm.Create(0, 0);
  +  end;
  +
  +procedure TTermView.Resize(new_w, new_h : cardinal);
  +  begin
  +    inherited Resize(new_w, new_h);
  +    _gridterm.grid.Resize(new_w, new_h);
  +  end;
  +
  +procedure TTermView.Render(term : ITerm);
  +  var endy, endx, x, y : byte; old : TTextAttr; cell : TTermCell;
  +  begin
  +    endy := min(_h-1, term.maxY);
  +    endx := min(_w-1, term.maxX);
  +    for y := 0 to endy do
  +      begin
  +	term.gotoxy(_x, _y+y);
  +        for x := 0 to endx do
  +          begin
  +            cell := _gridterm.grid[x,y];
  +	    term.emit(cell.ch);
  +          end;
  +      end;
  +  end;
  + 
   {---------------------------------------------------------------}
   { TDbCursor                                                     }
  
positive.code:       property Item[ key : string ] : variant
           read GetItem write SetItem; default;
      end;
  
    TDbTreeGrid = class (TView)
      protected
  
negative.code: {$i xpc.inc}{$mode delphi}
  unit uminneron;
  interface
  uses classes, kvm, udboutln, xpc, kbd, cli, num, sqldb, custapp, cw, math;
  
  type
    TView = class(TComponent)
  