anchor.diff:    LinePartObj: TATLinePartClass;
     XColor, XColorSelected, XColorOccur, XColorSpell: TBGRAPixel;
     NColor: TColor;
  -  R1, RectMap: TRect;
  +  RectMark, RectMap: TRect;
     NLine1, NLine2, NIndex, i: integer;
   begin
     St:= Ed.Strings;
  
positive.code:     if NColor<>clNone then
      begin
        XColor.FromColor(NColor);
        R1:= Ed.RectMicromapMark(i, -1, -1, RectMap, EditorOps.OpMicromapMinMarkHeight);
        FMicromapBmp.FillRect(R1, XColor);
      end;
    end;
  
  
negative.code:                 XColor.FromColor(LinePartObj.Data.ColorBG)
                else
                  XColor.FromColor(LinePartObj.Data.ColorBorder);
                RectMark:= GetItemRect(NIndex, NLine1, NLine2, markColumn);
                FMicromapBmp.FillRect(RectMark, XColor);
              end;
            end
            else
            if LinePartObj.ColumnTag=cTagColumnFullsized then
            begin
              RectMark:= GetItemRect(0, NLine1, NLine2, markFull);
              //todo: not tested with BGRABitmap - it must give inverted colors
              XColor.FromColor(LinePartObj.Data.ColorBG);
              FMicromapBmp.FillRect(RectMark, XColor, dmDrawWithTransparency, $8000);
            end;
          end;
        end;
  