Здравствуйте
Добавляю к типу новый режим
Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.AddItem Trim(txtTip.Text), eStyle
Добавлениее происходит без проблем
В добавленном типе пытаюсь изменить цвет patcolor и не только
Пробую и так
Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.Item(Trim(txtTip.Text)).ElemStyle = eStyle
или так
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.Item(Trim(txtTip.Text)).ElemStyle.PatColor = RegionBackColorа у меня все время закрышивается в черный цвет, что касается изменения других параметров
eStyle.BorderColor
eStyle.BorderWidth
eStyle.BorderStyle
то тут проблем не возникает
Что это может быть
С уважением
Добавляю к типу новый режим
Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.AddItem Trim(txtTip.Text), eStyle
Добавлениее происходит без проблем
В добавленном типе пытаюсь изменить цвет patcolor и не только
Пробую и так
Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.Item(Trim(txtTip.Text)).ElemStyle = eStyle
или так
Map1.Map.Layers.Active.ObjectTypes.Item(1).Modes.Item(Trim(txtTip.Text)).ElemStyle.PatColor = RegionBackColorа у меня все время закрышивается в черный цвет, что касается изменения других параметров
eStyle.BorderColor
eStyle.BorderWidth
eStyle.BorderStyle
то тут проблем не возникает
Что это может быть
С уважением