anchor.diff:          Copy(Ed.Strings.LinesUTF8[NLine], 1, cMaxLen)+
           #9+
           Frame.TabCaption+': '+
  -        SKind+IntToStr(NLine+1);;
  +        NiceBookmarkKind(Mark.Data.Kind)+
  +        IntToStr(NLine+1);
   
         ListItems.AddObject(Prop.MenuCaption, Prop);
       end;
  
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: 
        NLine:= Mark.Data.LineNum;
        if not Ed.Strings.IsIndexValid(NLine) then Continue;
  
        Prop:= TAppBookmarkProp.Create;
        Prop.Frame:= Frame;
  