anchor.diff:            inc(count);
           end;
         rs.Next;
  +    end;
  +  bg('k');
  +  for i := count to kvm.maxy do
  +    begin
  +      gotoxy(0,i);
  +      clreol;
       end;
   end;
   
  
positive.code:       property canHideRows : boolean  read _hr write _hr;
        property hideFlag : string  read _hf write _hf;
        property Mark : integer read _mk write SetMark;
      end;
  
    TDbTreeGrid = class (TView)
  
negative.code:     _rs.Execute(sql);
      SetMark(_mk); // MarkChanged;
    end;
  
  procedure TDbCursor.SetItem(key : string; value: variant);
    begin
      ToMark; _rs.Edit; _rs[key] := value; _rs.Post;
    end;
  
  function TDbCursor.GetItem(key : string): variant;
    begin
      ToMark; result := _rs[key];
    end;
  
  {---------------------------------------------------------------}
  { TDbTreeGrid                                                   }
  {---------------------------------------------------------------}
  