Id: String;
Свойство Id определяет идентификатор стиля оформления.
По умолчанию стилям присваиваются идентификаторы «Style N», где N - номер стиля.
Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «IWSTYLE», содержащего несколько фигур.
Добавьте ссылки на системные сборки: Andy, Metabase, Drawing.
Sub UserProc;
Var
mb: IMetabase;
wsp: IWxWorkspace;
style: IWxStyle;
Begin
// Получаем рабочее пространство для редактирования
mb := MetabaseClass.Active;
wsp := mb.ItemById("IWSTYLE").Edit As IWxWorkspace;
style := wsp.CreateStyle;
style.Id := "New_Style";
style.IsPrivate := False;
style.BackgroundBrushForeColor := GxColor.FromName("Red");
style.ShadowBrushForeColor := GxColor.FromName("Yellow");
style.TextAlignmentHorizontal := GxAlignment.Far;
(wsp As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера добавленный стиль будет отображен в коллекции стилей.
См. также: