anchor.diff:    LinePartObj: TATLinePartClass;
     XColor, XColorSelected, XColorOccur, XColorSpell: TBGRAPixel;
     NColor: TColor;
  -  R1: TRect;
  +  R1, RectMap: TRect;
     NLine1, NLine2, NIndex, i: integer;
   begin
     St:= Ed.Strings;
  
positive.code:   if FMicromapBmp=nil then
      FMicromapBmp:= TBGRABitmap.Create;
    FMicromapBmp.SetSize(ARect.Width, ARect.Height);
  
    XColor.FromColor(GetAppColor(apclEdMicromapBg));
    FMicromapBmp.Fill(XColor);
  
negative.code:     if NColor<>clNone then
      begin
        XColor.FromColor(NColor);
        R1:= Ed.RectMicromapMark(i, -1, -1, RectMap, EditorOps.OpMicromapMinMarkHeight);
        FMicromapBmp.FillRect(R1, XColor);
      end;
    end;
  