anchor.diff:    ed.OptUnprintedVisible:= EditorOps.OpUnprintedShow;
     ed.OptRulerVisible:= EditorOps.OpRulerShow;
     ed.OptScrollbarsNew:= true;
  +  ed.OptMicromapCustomColumns:= '40'; //for marks from Spell Checker, Highlight Occur
   
     ed.OnClick:= @EditorOnClick;
     ed.OnClickDouble:= @EditorOnClickDouble;
  
positive.code:     Caret:= Ed.Carets[i];
      Caret.GetSelLines(NLine1, NLine2, false);
      if NLine1<0 then Continue;
      R1:= GetItemRect(NLine1, NLine2, false);
      C.FillRect(R1);
    end;
  
  
negative.code:       cTagSpellChecker:
          begin
            C.Brush.Color:= NColorSpell;
            R1:= GetItemRect(cMarkColumn, Mark.PosY, Mark.PosY, markFull);
            C.FillRect(R1);
          end;
        cTagOccurrences:
          begin
            C.Brush.Color:= NColorOccur;
            R1:= GetItemRect(cMarkColumn, Mark.PosY, Mark.PosY, markFull);
            C.FillRect(R1);
          end;
        else
          begin
            if Obj.ShowOnMap then
            begin
              C.Brush.Color:= Obj.Data.ColorBG;
              R1:= GetItemRect(cMarkColumn, Mark.PosY, Mark.PosY, markFull);
              C.FillRect(R1);
            end;
          end;
        end;
  