Id: String;
Свойство Id определяет идентификатор контейнера стиля.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
StyleSheet: IStyleSheet;
Style: IStyleContainer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Global_Style").Edit;
StyleSheet := MObj As IStyleSheet;
Style := StyleSheet.Item(StyleSheet.Count - 1);
Style.Id := Style.Id + "_Last_Stele";
MObj.Save;
End Sub Main;
После выполнения примера будет изменен идентификатор последнего контейнера стиля таблицы стилей с идентификатором «Global_Style».
См. также: