IMetabaseUpdateObjectNode.IncludeScreenshot

Синтаксис

IncludeScreenshot: Boolean;

IncludeScreenshot: Boolean;

Описание

Свойство IncludeScreenshot определяет, будет ли включено в обновление изображение предварительного просмотра объекта.

Комментарии

Изображение предварительного просмотра можно получить в свойстве IMetabaseObjectDescriptor.Screenshot.

Допустимые значения свойства IncludeScreenshot:

Пример

Для выполнения примера предполагается наличие в репозитории регламентного отчета с идентификатором «REPORT».

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

Sub UserProc;
Var
    Mb: IMetabase;
    Obj: IMetabaseObjectDescriptor;
    Upd: IMetabaseUpdate;
    Nd: IMetabaseUpdateObjectNode;
    RootFolder: IMetabaseUpdateFolderNode;
Begin
    Mb := MetabaseClass.Active;
    Upd := Mb.CreateUpdate;
    Obj := Mb.ItemById("REPORT").Bind;
    RootFolder := Upd.RootFolder;
    Nd := RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    Nd.Object := Obj;
    If Mb.IsScreenshotSupported Then
        Nd.IncludeScreenshot := True;
    End If;
    Upd.SaveToFileNF("C:\Update.pefx");
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Obj: IMetabaseObjectDescriptor;
    Upd: IMetabaseUpdate;
    Nd: IMetabaseUpdateObjectNode;
    RootFolder: IMetabaseUpdateFolderNode;
Begin
    Mb := Params.Metabase;
    Upd := Mb.CreateUpdate();
    Obj := Mb.ItemById["REPORT"].Bind();
    RootFolder := Upd.RootFolder;
    Nd := RootFolder.Add(MetabaseUpdateNodeType.untObject) As IMetabaseUpdateObjectNode;
    Nd.Object := Obj;
    If Mb.IsScreenshotSupported Then
        Nd.IncludeScreenshot := True;
    End If;
    Upd.SaveToFileNF("C:\\Update.pefx");
End Sub;

При выполнении примера будет создано новое обновление, в которое будет включён регламентный отчет. Если в репозитории разрешено отображать объекты в виде огромных значков, то в обновление также будет включено изображение предварительного просмотра регламентного отчёта.

См. также:

IMetabaseUpdateObjectNode