anchor.diff:        property Item[ key : string ] : variant
            read GetItem write SetItem; default;
       end;
  + 
     TDbTreeGrid = class (TView)
       protected
  
positive.code: {$i xpc.inc}{$mode delphi}
  unit uminneron;
  interface
  uses classes, kvm, udboutln, xpc, kbd, cli, num, sqldb, custapp, cw;
  
  type
    TView = class(TComponent)
  
negative.code:       property crt[ ch : widechar ] : TCrtKeyEvent  write SetKeyCrt;
        procedure HandleKeys;
    end;
  
    TDbCursor = class (TComponent) // TODO : ICursor
      protected
  