anchor.diff:          cLineStateSaved: XColor.FromColor(Ed.Colors.StateSaved);
           else Continue;
         end;
  -      FMicromapBmp.FillRect(GetItemRect(0{column_0}, i, i, markColumn), XColor);
  +      RectMark:= GetItemRect(0{column_0}, i, i, markColumn);
  +      FMicromapBmp.FillRect(RectMark, XColor);
       end;
   
     //paint selections
  
positive.code:     case Marker.Tag of
        cTagSpellChecker:
          begin
            R1:= GetItemRect(1{column_1}, NLine1, NLine2, markColumn);
            FMicromapBmp.FillRect(R1, XColorSpell);
          end;
        cTagOccurrences:
          begin
            R1:= GetItemRect(1{column_1}, NLine1, NLine2, markColumn);
            FMicromapBmp.FillRect(R1, XColorOccur);
          end;
        else
          begin
  
negative.code:   LinePartObj: TATLinePartClass;
    XColor, XColorSelected, XColorOccur, XColorSpell: TBGRAPixel;
    NColor: TColor;
    RectMark, RectMap: TRect;
    NLine1, NLine2, NIndex, i: integer;
  begin
    St:= Ed.Strings;
  