anchor.diff:        Caret:= Ed.Carets[i];
         Caret.GetSelLines(NLine1, NLine2, false);
         if NLine1<0 then Continue;
  -      R1:= GetItemRect(0, NLine1, NLine2, markRight);
  -      FMicromapBmp.FillRect(R1, XColorSelected);
  +      RectMark:= GetItemRect(0, NLine1, NLine2, markRight);
  +      FMicromapBmp.FillRect(RectMark, XColorSelected);
       end;
   
     //paint background of columns added from Py API
  
positive.code:     FMicromapBmp:= TBGRABitmap.Create;
    FMicromapBmp.SetSize(ARect.Width, ARect.Height);
  
    RectMap:= Rect(0, 0, ARect.Width, ARect.Height);
  
    XColor.FromColor(GetAppColor(apclEdMicromapBg));
    FMicromapBmp.Fill(XColor);
  
    //paint full-width area of current view
    R1:= GetItemRect(0, Ed.LineTop, Ed.LineBottom, markFull);
  
    XColor.FromColor(GetAppColor(apclEdMicromapViewBg));
    FMicromapBmp.FillRect(R1, XColor);
  
    XColorSelected.FromColor(Ed.Colors.TextSelBG);
    XColorOccur.FromColor(GetAppColor(apclEdMicromapOccur));
  
negative.code:   LinePartObj: TATLinePartClass;
    XColor, XColorSelected, XColorOccur, XColorSpell: TBGRAPixel;
    NColor: TColor;
    RectMark, RectMap: TRect;
    NLine1, NLine2, NIndex, i: integer;
  begin
    St:= Ed.Strings;
  