Уважаемые! Обьясните пожалуйста, каким образом можно изменить палитру у активного слоя программным способом при условии что легенда сохранена в *. lyr -файле? Вручную с использованием диалога Layer Propperties это получается, но хотелось бы это осуществлять программным способом. В Av3 это делалось довольно просто :
MyLegend = Legend.Make(#SYMBOL_FILL)
MyLegend.SetLegendType (#LEGEND_TYPE_UNIQUE) CheckLoad =MyLegend.Load("c:\mylegend.avl".AsFileName, #LEGEND_LOADTYPE_ALL)
newTheme.SetLegend (MyLegend)
newTheme.SetLegendVisible (TRUE)
newTheme.UpdateLegend
TheView.GetWin.Activate