<< Нажмите, чтобы показать Содержание >> TCustomRichView.GetNextCheckpoint

Возвращает следующую после CheckpointData закладку, или nil если CheckpointData – последняя закладка в документе.

function GetNextCheckpoint(

  CheckpointData: TCheckpointData): TCheckpointData;

GetFirstCheckpoint + GetNextCheckpoint позволяют перебрать все закладки в документе.

Закладки в поддокументах (ячейках таблиц) не включаются в список закладок основного документа.

 

Пример:

var Tag: TRVTag;

    Name: String;

    CheckpointData: TCheckpointData;

    RaiseEvent: Boolean;

    s: TRVUnicodeString;

begin

  MyListBox.Items.Clear;

  CheckpointData := MyRichView.GetFirstCheckpoint;

  while CheckpointData<>nil do 

  begin

    MyRichView.GetCheckpointInfo(CheckpointData, Tag, Name,

      RaiseEvent);

    s := Format('Имя:"%s" Тег:"%s"', [Name, Tag]);

    MyListBox.Items.Add(s);

    CheckpointData := MyRichView.GetNextCheckpoint(CheckpointData);

  end;

end;

Этот код заполняет MyListBox: TListBox информацией о закладках в MyRichView.

 

См. также методы:

▪GetFirstCheckpoint;

▪GetLastCheckpoint;

▪GetPrevCheckpoint;

 

▪GetCheckpointInfo;

▪GetCheckpointXY.

См. также:

▪Закладки.