Key: Integer;
Свойство Key возвращает ключ контейнера стиля.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
StyleSheet: IStyleSheet;
Style: IStyleContainer;
i: Integer;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Global_Style").Edit;
StyleSheet := MObj As IStyleSheet;
Style := StyleSheet.Add;
i := Style.Key;
MObj.Save;
End Sub Main;
После выполнения примера в таблицу стилей будет добавлен новый контейнер стиля, и в переменной «i» будет содержаться его ключ.
См. также: