procedure TSelectTextMarkupHighlighter.AfterPaint(ACanvas: TCanvas; const AClip: TRect; AFirstRow, ALastRow: Integer);
      var
        AStoreFont: TFont;
        AStoreBrush: TBrush;
        ASelectText: string;
        ACurrPt: TPoint;
        ARect: TRect;
        AIndexRow: Integer;
        ACurrCoord: TBufferCoord;
        ASelectCoord: TBufferCoord;
        ASelectEndCoord: TBufferCoord;
        ASearchPos: integer;
        AOffset: integer;
        ASelectSize: integer;
        ARow: string;
        AOrgRow: string;
        AOrgText: string;
      begin
        inherited AfterPaint(ACanvas, AClip, AFirstRow, ALastRow);
        if (not Enabled) then exit;
        if (not Editor.SelAvail) then exit;
        if (Editor.SelectionMode <> smNormal) then exit;
        ASelectText := Editor.SelText;
        ASelectSize := Editor.SelLength;
        ASelectCoord := Editor.CharIndexToRowCol(Editor.SelStart);
        ASelectEndCoord := Editor.CharIndexToRowCol(Editor.SelEnd);
        if (ASelectCoord.Line <> ASelectEndCoord.Line) then exit;
// Выделение располагается в одной строке!!!
        ARow := Editor.Lines[ASelectCoord.Line - 1];
        if (WholeWordOnly and (not ASelectText.WordInRow(ASelectCoord.Char, ARow))) then exit;
// Выделение есть слово!!!
        AStoreFont := TFont.Create();
        try
          AStoreFont.Assign(ACanvas.Font);
          AStoreBrush := TBrush.Create();
          try
            AStoreBrush.Assign(ACanvas.Brush);
            if (Attribute.Background <> clNone) then
              begin
                ACanvas.Brush.Color := Attribute.Background;
                ACanvas.Brush.Style := bsSolid
              end
            else
              begin
                ACanvas.Brush.Style := bsClear;
              end;
// Внимание, очень важно: свойства ACanvas.Pen нельзя менять - иначе будут проб-
// лемы с отрисовкой CodeFolding!
            AFirstRow := Editor.TopLine;
            ALastRow := Editor.TopLine + Editor.LinesInWindow - 1;
            if (not CaseSensitivity) then
              ASelectText := ASelectText.UpperCase();
            for AIndexRow := AFirstRow to ALastRow do
              begin
                AOffset := 1;
                ARow := Editor.Lines[AIndexRow - 1];
                AOrgRow := ARow;
                if (not CaseSensitivity) then
                  begin
                    ARow := Editor.Lines[AIndexRow - 1].UpperCase();
                  end;
                while (true) do
                  begin
                    ASearchPos := System.Pos(ASelectText, ARow, AOffset);
                    if (ASearchPos <= 0) then break;
                    if ((ASearchPos = ASelectCoord.Char) and (AIndexRow = ASelectCoord.Line)) then
                      begin
                        AOffset := ASearchPos + ASelectSize;
                        continue;
                      end;
                    if (WholeWordOnly and (not ASelectText.WordInRow(ASearchPos, ARow))) then
                      begin
                        AOffset := ASearchPos + ASelectSize;
                        continue;
                      end;
                    AOrgText := System.Copy(AOrgRow, ASearchPos, ASelectSize);
                    ACurrCoord := BufferCoord(ASearchPos, AIndexRow);
                    ACurrPt := Editor.RowColumnToPixels(Editor.BufferToDisplayPos(ACurrCoord));
                    ARect := Rect(ACurrPt.X, ACurrPt.Y, ACurrPt.X + Editor.CharWidth * ASelectSize, ACurrPt.Y + Editor.LineHeight);
                    ACanvas.FillRect(ARect);
                    ACanvas.TextRect(ARect, ACurrPt.X, ACurrPt.Y, AOrgText);
                    AOffset := ASearchPos + ASelectSize;
                  end
              end;
            ACanvas.Brush.Assign(AStoreBrush);
          finally
            System.SysUtils.FreeAndNil(AStoreBrush);
          end;
          ACanvas.Font.Assign(AStoreFont);
        finally
          System.SysUtils.FreeAndNil(AStoreFont);
        end;
        Editor.InvalidateGutterLines(AFirstRow, ALastRow);
        Editor.InvalidateLines(AFirstRow, ALastRow);
      end;