|
<< Нажмите, чтобы показать Содержание >> Пример: Перемещение каретки в начало абзаца |
Этот пример показывает, как переместить каретку в начала абзаца с номером ParagraphIndex.
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;
Вызов:
GoToParagraph(RichViewEdit1, 7);
ParagraphIndex отсчитывается от 0.
См. также: