IStyleSheet.Add

Синтаксис

Add([Key: Integer = 0]; [Id: String = ""]): IStyleContainer;

Параметры

Key - необязательный параметр, определяет ключ добавляемого контейнера стиля. По умолчанию - 0, при добавлении контейнера без указания ключа, будет генерироваться следующий по порядку ключ, в зависимости от уже имеющихся.

Name - необязательный параметр, определяющий идентификатор добавляемого контейнера стиля. По умолчанию - "", при добавлении контейнера без указания идентификатор, будет генерироваться новый идентификатор, содержащий "I" + ключ нового контейнера стиля.

Описание

Метод Add осуществляет добавление контейнера стиля в таблицу стилей.

Пример

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

StyleSheet: IStyleSheet;

Style: IStyleContainer;

TabSty: ITabCellStyle;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemById("Global_Style").Edit;

StyleSheet := MObj As IStyleSheet;

StyleSheet.Clear;

Style := StyleSheet.Add(10);

TabSty := New TabCellStyle.Create;

TabSty.Font.Name := "Times New Roman";

TabSty.Font.Size := 16;

TabSty.Font.Color := GxColor.FromName("Red");

TabSty.SaveToContainer(Style);

MObj.Save;

End Sub Main;

После выполнения примера в таблицу стилей с идентификатором "Global_Style" будет добавлен новый контейнер стиля. Наименование и ключ для данного контейнера будут сгенерированы автоматически, после этого будет изменено оформление шрифта стиля, хранящегося в этом контейнере.

См. также:

IStyleSheet