IAdhocSlide.Duplicate

Синтаксис

Duplicate: IAdhocSlide;

Duplicate(): Prognoz.Platform.Interop.AdHoc.IAdhocSlide;

Описание

Метод Duplicate дублирует слайд.

Пример

Для выполнения примера предполагается наличие в репозитории аналитической панели с идентификатором DASHBOARD, в котором содержатся хотя бы три слайда.

Добавьте ссылки на системные сборки: Adhoc, Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dashboard: IAdhocReport;
    Slides: IAdhocSlides;
    Slide: IAdhocSlide;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим аналитическую панель
    MObj := MB.ItemById("DASHBOARD").Edit;
    Dashboard := MObj As IAdhocReport;
    // Получим коллекцию слайдов
    Slides := Dashboard.Slides;
    // Продублируем третий слайд
    Slide := Slides.Item(2);
    Slide.Duplicate;
    // Сохраним изменения
    MObj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.AdHoc;
Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dashboard: IAdhocReport;
    Slides: IAdhocSlides;
    Slide: IAdhocSlide;
Begin
    // Получим текущий репозиторий
    MB := Params.Metabase;
    // Получим аналитическую панель
    MObj := MB.ItemById["DASHBOARD"].Edit();
    Dashboard := MObj As IAdhocReport;
    // Получим коллекцию слайдов
    Slides := Dashboard.Slides;
    // Продублируем третий слайд
    Slide := Slides.Item[2];
    Slide.Duplicate();
    // Сохраним изменения
    MObj.Save();
End Sub;

После выполнения примера в аналитической панели будет добавлена копия третьего слайда.

См. также:

IAdhocSlide