anchor.diff:        procedure ToMark;
         procedure Toggle;
         procedure SetMark(id : integer);
  +      procedure SetItem(key : string; value: variant);
  +      function  GetItem(key : string): variant;
      published
         property OnMarkChanged : TNotifyEvent read fMarkChanged write fMarkChanged;
         property RecordSet : TRecordSet read _rs write _rs;
  
positive.code:     _rs.Execute(sql);
      SetMark(_mk); // MarkChanged;
    end;
  {---------------------------------------------------------------}
  { TDbTreeGrid                                                   }
  {---------------------------------------------------------------}
  
negative.code:       property canHideRows : boolean  read _hr write _hr;
        property hideFlag : string  read _hf write _hf;
        property Mark : integer read _mk write SetMark;
        property Item[ key : string ] : variant
           read GetItem write SetItem; default;
      end;
  
    TDbTreeGrid = class (TView)
  