Здравствуйте, подскажите пожалуйста, как программно задать автоматический цвет линии для LineStyleElement, чтобы цвет линии применялся по цвету темы.
Код |
---|
var lsd:LineStyleDef; lse:ILineStyleElement;
.....
lsd:= CoLineStyleDef.Create;
lse:= CoLineStyleElement.Create;
lse.SetLineType(0);
lse.SetLineWidth(Border);
lse.SetLineShiftVer(Radius);
lse.SetLineColor({???});
lsd.AddLineElement(lse);
lse:= CoLineStyleElement.Create;
lse.SetLineColor({???});
lse.SetLineType(0);
lse.SetLineWidth(Border);
lse.SetLineShiftVer(-Radius);
lsd.AddLineElement(lse);
Ind:= LaySubstation.LineStyles.AddItem(lsd,-1);
st := CoElemStyle.Create;
st.SymbolID := Symbol_id_line_2;
st.LineStyle:= Ind;
LaySubstation.ObjectTypes.Item[Symbol_id_line_2].Modes.RemoveItem(1);
LaySubstation.ObjectTypes.Item[Symbol_id_line_2].Modes.AddItem('line2', st);
....
|