anchor.diff:      if obj_id < 0 then
       begin
         Continue; //no index property or invalid
  +    end;
  +
  +    idx := obj.IndexOfName('name');
  +
  +    if idx < 0 then
  +    begin
  +      obj.Strings['name'] := objects_names.Value[0, obj_id];
       end;
   
       if obj.IndexOfName('types')<0 then
  
positive.code: interface
  
  uses
    Classes, SysUtils, fgl, gvector, ghashmap, FileUtil, fpjson,
    editor_types,
    filesystem_base, base_info, editor_graphics, editor_classes, h3_txt, lists_manager ;
  
  type
  
  
negative.code: implementation
  
  uses
    LazLoggerBase, CsvDocument, editor_consts, editor_utils,
    root_manager, math;
  
  const
    OBJECT_LIST = 'DATA/OBJECTS';
    OBJECT_NAMES = 'DATA/OBJNAMES';
  
  { TMaskResource }
  
  