<< Click to display table of contents >> Example: Moving caret to the beginning of paragraph

This example shows how to move caret to the beginning of the ParagraphIndex-th paragraph

procedure GoToParagraph(rve: TCustomRichViewEdit;

  ParagraphIndex: Integer); 

var i: Integer; 

begin 

  for i := 0 to rve.ItemCount-1 do 

  begin 

    if rve.IsParaStart(i) then 

      dec(ParagraphIndex); 

    if ParagraphIndex<0 then begin 

      rve.SetSelectionBounds(i, rve.GetOffsBeforeItem(i),

        i, rve.GetOffsBeforeItem(i)); 

      rve.Invalidate; 

      exit; 

    end; 

  end; 

end; 

Call:

GoToParagraph(RichViewEdit1, 7); 

ParagraphIndex is zero-based.

 

See also:

▪TCustomRichViewEdit.MoveCaret