TRichView.com

Code: Select all

procedure TSRichViewEdit.UpdateCaret(LockRepaint: Boolean; PaintRect : TRect);
.....
      // paint rectangle
      if (FActiveEditor.TopLevelEditor.Focused) or (ScrollBarH.Focused) or
        (ScrollBarV.Focused) then
        if not (FViewProperty.FShowScrollHint and fHintScroll) then
        begin

//Repaint;
//Refresh;
Invalidate; // <<<------------ Repaint OR Refresh OR Invalidate helps

          Canvas.MoveTo(p.X, p.y);
          Canvas.LineTo(p.X, p.y + dY);

//Repaint; // <<<------------ In this psoition it does NOT help
//Refresh;

        end;
.....
end;

Code: Select all

...
  if not(ReadOnly and (rvoHideReadOnlyCaret in RVEditorOptions)) and FCaretVisible then
    if IntersectRect(tmp, Bounds(p.x, p.y, CaretBitmap.Width, FCaretHeight), PaintRect) and
       fShowCaret and ShowCaret then
    begin
      Canvas.Brush.Color := FPageProperty.FCaretPen.Color;
      // remember old background
      CaretRect := Rect(p.X - FPageProperty.FCaretPen.Width, p.y,
        p.X + FPageProperty.FCaretPen.Width,
        p.y + dY + FPageProperty.FCaretPen.Width);
      CaretBitmap.Canvas.CopyRect(Rect(0, 0,
        FPageProperty.FCaretPen.Width shl 1,
        dY + FPageProperty.FCaretPen.Width),
        Canvas, CaretRect);
      // paint new background
      Canvas.Brush.Color := FPageProperty.FCaretPen.Color;
      Canvas.Pen.Assign(FPageProperty.FCaretPen);
      // paint rectangle
      if (FActiveEditor.TopLevelEditor.Focused) or (ScrollBarH.Focused) or
        (ScrollBarV.Focused) then
        if not (FViewProperty.FShowScrollHint and fHintScroll) then
        begin

// Position A:
//Invalidate;
//Update;
//Refresh;
//Repaint;  

          Canvas.MoveTo(p.X, p.y);
          Canvas.LineTo(p.X, p.y + dY);

// Position B:
//Invalidate;
//Update;
//Refresh;
//Repaint;

        end;
    end
    else
      // restore background

// Position C:
//Invalidate;
//Update;
//Refresh;
//Repaint;

      Canvas.CopyRect(CaretRect, CaretBitmap.Canvas,
        Rect(0, 0,
        CaretRect.Right - CaretRect.Left,
        CaretRect.Bottom - CaretRect.Top));

// Position D:
//Invalidate;
//Update;
//Refresh;
//Repaint;

  fBusyCaret := FALSE;