anchor.diff:        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 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;
  
positive.code: {$i xpc.inc}{$mode delphi}
  unit uminneron;
  interface
  uses xpc, classes, udb, udc, kvm, cli, num, sqldb, cw, math, ustr;
  
  type
    TView = class(TComponent)
      protected
        _x, _y, _w, _h : cardinal;
        _bg, _fg : byte;
        procedure SetX(value : cardinal);
        procedure SetY(value : cardinal);
        procedure SetW(value : cardinal);
        procedure SetH(value : cardinal);
      published
  
negative.code: procedure TDbTreeGrid.Render(term : ITerm);
    var
      sigil : char = ' ';
      count : cardinal =  0;
      rs    : TRecordSet;
  begin
  