IMapLegend.BeginUpdate

BeginUpdate;

BeginUpdate();

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Objects: ITabObjects;
    Map: IMap;
    Layer: IMapLayer;
    Legend: IMapLegend;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчёт
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Получим карту из регламентного отчета
    Sheet := Report.Activesheet;
    Table := Sheet As IPrxTable;
    Objects := Table.TabSheet.Objects;
    Map := Objects.Item(0).Extension As IMap;
    // Добавим легенду карты
    Legend := New DxMapLegend.Create As IMapLegend;
    Map.View.Legend := Legend;
    Legend.Visible := True;
    // Прекратим отрисовку карты
    Legend.BeginUpdate;
    // Отобразим в легенде элемент «Нет данных» первым
    Layer := Map.Layers.FindByName("Regions");
    Legend.Visual := Layer.Visuals.Item(0);
    Legend.NoDataElementFirst := True;
    Legend.NoDataElementVisible := True;
    // Возобновим отрисовку карты
    Legend.EndUpdate;
    //Сохраним изменения
    (Report As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Objects: ITabObjects;
    Map: IMap;
    Layer: IMapLayer;
    Legend: DxMapLegend = New DxMapLegendClass();
    
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим регламентный отчёт
    Report := MB.ItemById["REPORT"].Edit() As IPrxReport;
    // Получим карту из регламентного отчета
    Sheet := Report.Activesheet;
    Table := Sheet As IPrxTable;
    Objects := Table.TabSheet.Objects;
    Map := Objects.Item[0].Extension As IMap;
    // Добавим легенду карты
    Map.View.Legend := Legend As DxMapLegend;
    Legend.Visible := True;
    // Прекратим отрисовку карты
    Legend.BeginUpdate();
    // Отобразим в легенде элемент «Нет данных» первым
    Layer := Map.Layers.FindByName["Regions"];
    Legend.Visual := Layer.Visuals.Item[0];
    Legend.NoDataElementFirst := True;
    Legend.NoDataElementVisible := True;
    // Возобновим отрисовку карты
    Legend.EndUpdate();
    //Сохраним изменения
    (Report As IMetabaseObject).Save();
End Sub;