anchor.diff:  {$i xpc.inc}{$mode delphi}
   unit uminneron;
   interface
  -uses xpc, classes, udb, udc, kvm, cli, num, sqldb, cw, math, ustr;
  +uses xpc, classes, udb, udc, kvm, cli, ugeom2d,
  +     num, sqldb, cw, math, ustr;
   
   type
  -  TView = class(TComponent)
  -    protected
  -      _x, _y, _w, _h : cardinal;
  +  TView = class(TComponent, IPoint2D, ISize2D, IBounds2D)
  +    protected
  +      _x, _y : integer;
  +      _w, _h : cardinal;
         _bg, _fg : byte;
  -      procedure SetX(value : cardinal);
  -      procedure SetY(value : cardinal);
  +      function GetX : integer;
  +      function GetY : integer;
  +      function GetW : cardinal;
  +      function GetH : cardinal;
  +      procedure SetX(value : integer);
  +      procedure SetY(value : integer);
         procedure SetW(value : cardinal);
         procedure SetH(value : cardinal);
       published
  
positive.code: procedure TDbTreeGrid.Render(term : ITerm);
    var
      sigil : char = ' ';
      i     : integer;
      count : cardinal =  0;
      rs    : TRecordSet;
  begin
  
negative.code:       procedure Redraw;
        procedure Render(term :  ITerm); virtual;
        procedure Resize(new_w, new_h : cardinal); virtual;
        property x : integer read _x write SetX;
        property y : integer read _y write SetY;
        property w : cardinal read _w write SetW;
        property h : cardinal read _h write SetH;
        constructor Create( aOwner : TComponent ); override;
  