IStyledEntity.PredefinedStyle

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    Report: IEaxAnalyzer;
    Entity: IStyledEntity;
    Index: Integer;
    Img: IGxImage;
    Style: IXMLDOMElement;
    Doc: FreeThreadedDOMDocument60;
Begin
    // Получаем текущий репозиторий
    Mb := MetabaseClass.Active;
    // Получаем экспресс-отчёт
    Report := Mb.ItemById("EAX_STYLE").Edit As IEaxAnalyzer;
    // Получаем стиль таблицы
    Entity := report.Grid.Style.InternalStyle As IStyledEntity;
    // Выводим количество стандартных стилей в окно консоли
    Debug.WriteLine("Количество стандартных стилей: " + entity.PredefinedStyleCount.ToString);
    // Определяем индекс стандартного стиля
    Index := 4;
    Entity.PredefinedStyleIndex := Index;
    // Получаем изображение, используемое для предварительного просмотра стандартного стиля
    Img := Entity.PredefinedStylePreview(Index);
    // Сохраняем изображение, используемое для предварительного просмотра стандартного стиля, в файл формата EMF
    Img.SaveToFile("C:\Style.emf");
    // Получаем стандартный стиль в формате XML
    Style := Entity.PredefinedStyle(Index);
    // Создаем XML-документ
    Doc := New FreeThreadedDOMDocument60.Create;
    // Добавляем стандартный стиль в формате XML в XML-документ
    Doc.appendChild(Style);
    // Сохраняем XML-документ
    Doc.save("C:\Style.xml");
End Sub