IVZTimeLine.CurrentIndex

Свойство CurrentIndex определяет индекс текущего шага временной шкалы.

Пример

Для выполнения примера предполагается наличие в репозитории экспресс-отчёта с идентификатором EXP. Модуль, в котором размещается пример, должен иметь ссылки на системные сборки Express, Metabase и Visualizators. Указанная процедура должна вызываться из точки входа Main.

До выполнения примера временная шкала пузырькового дерева выглядит так, как показано на странице описания интерфейса IVZTimeLine. Увеличим длительность воспроизведения анимации дерева при переходе от одного шага шкалы к другому и задержку анимации на каждом шаге. Запретим возврат шкалы в начальное состояние, определим индекс текущего шага временной шкалы и его наименование:

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    TimeLine: IVZTimeLine;
    Index: Integer;
    StepName: String;
Begin
    // Получим текущий репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    EaxAnalyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Получим временную шкалу
    TimeLine := BubbleTree.TimeLine;
    { Установим длительность воспроизведения анимации визуализатора
    при переходе от одного шага шкалы к другому }
    TimeLine.StepDuration := 5;
    // Установим длительность задержки анимации визуализатора
    TimeLine.DelayDuration := 3;
    // Информация о размещении шкалы в рабочей области визуализатора
    Debug.WriteLine("Шкаланакладывается на рабочую область (true): " +  TimeLine.IsOverlap.ToString);
    // Запретим возврат временной шкалы в начальное состояние
    TimeLine.ReturnToInitialState := False;
    // Определим индекс текущего шага шкалы
    Index := TimeLine.CurrentIndex;
    Debug.WriteLine("Индекс текущего шага временной шкалы: " +
        Index.ToString);
    // Определим наименование текущего шага шкалы
    StepName := TimeLine.StepsNames.Item(Index);
    Debug.WriteLine("Наименование текущего шага шкалы: " + StepName);
    // Сохраним сделанные изменения в экспресс-отчёте
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;

В результате выполнения примера были изменены настройки для временной шкалы, в консоль среды разработки была выведена следующая информация:

Шкала накладывается на рабочую область (true): False

Запустим воспроизведение анимации пузырькового дерева при переключении шагов временной шкалы. Длительность перехода будет теперь равна 5 секундам, а задержки переключения шагов - 3 секундам. По окончании воспроизведения временная шкала не будет возвращена в начальное состояние:

IVZTimeLine.CurrentIndex

Синтаксис

Описание

Пример