anchor.diff:  
         NLine:= Mark.Data.LineNum;
         if not Ed.Strings.IsIndexValid(NLine) then Continue;
  -
  -      //paint prefix [N] for numbered bookmarks (kind=2..10)
  -      NKind:= Mark.Data.Kind;
  -      if (NKind>=2) and (NKind<=10) then
  -        SKind:= '['+IntToStr(NKind-1)+'] '
  -      else
  -        SKind:= '';
   
         Prop:= TAppBookmarkProp.Create;
         Prop.Frame:= Frame;
  
positive.code: var
    ListItems: TStringList;
    //
    procedure AddItemsOfFrame(Frame: TEditorFrame);
    var
      Ed: TATSynEdit;
      Prop: TAppBookmarkProp;
      Mark: TATBookmarkItem;
      SKind: string;
      NLine, NKind, i: integer;
    const
      cMaxLen = 150;
    begin
  
negative.code:         Copy(Ed.Strings.LinesUTF8[NLine], 1, cMaxLen)+
          #9+
          Frame.TabCaption+': '+
          NiceBookmarkKind(Mark.Data.Kind)+
          IntToStr(NLine+1);
  
        ListItems.AddObject(Prop.MenuCaption, Prop);
      end;
  