How to make a particular line to topmost?

[Jim Knopf]

How can I make the line where the cursor is, to the topmost of a TRichViewEdit?

[Sergey Tkachenko]

Do you want to scroll to show the caret on top?

The simplest code is:

Code: Select all

var
  R: TRect;
  ItemPart: Integer;

...
 with RichViewEdit1.TopLevelEditor do
  begin
    ItemPart := RVData.GetItemPart(CurItemNo, OffsetInCurItem,
      IsCaretAtTheBeginningOfLine);
    RichViewEdit1.GetItemCoordsEx(RVData, CurItemNo, ItemPart, False, R);
  end;
  RichViewEdit1.ScrollTo(R.Top);

[Jim Knopf]

Perfect, that's it. Thank you!