SortingMode: VisualizatorSortingMode;
SortingMode: Prognoz.Platform.Interop.Visualizators.VisualizatorSortingMode;
Свойство SortingMode определяет режим сортировки элементов в расшифровке территорий.
Для определения режима выбора элементов в расшифровке территорий используйте IVZTerritoryTranscript.SelectEvent.
Для выполнения примера в репозитории необходимо наличие экспресс-отчета с идентификатором «EXPRESS», содержащего карту.
Добавьте ссылки на системные сборки: Drawing, Express, Metabase, Visualizators.
Sub UserProc;
Var
MB: IMetabase;
Express: IEaxAnalyzer;
MC: IVZMapChart;
TT: IVZTerritoryTranscript;
Color: IGxColor;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим экспресс-отчет
Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
// Получим карту
MC := Express.MapChart.MapChart;
// Получим расшифровку территорий
TT := MC.TerritoryTranscript;
// Включим расшифровку территорий
TT.Visible := True;
// Установим количество столбцов
в расшифровке
TT.ColumnsCount := 2;
// Уменьшим масштаб карты
TT.IsOverlap := False;
// Установим максимальное количество элементов в расшифровке
TT.MaxItemsCount := 10;
// Изменим цвет шрифта элементов
Color := New GxColor.CreateRGB(120, 0, 120);
TT.ItemsStyle.FontColor := Color;
// Изменим режим сортировки - по возрастанию
TT.SortingMode := VisualizatorSortingMode.Asc;
// Изменим режим выбора элемента - по клику
TT.SelectEvent := VisualizatorTerritoryTranscriptSelectEvent.SelectOnClick;
// Выведем в окно консоли наименование родительского слоя расшифровки
Debug.WriteLine("Наименование родительского слоя расшифровки - " + TT.ParentLayer.Name);
// Сохраним изменения
(Express As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера будут применены изменения к расшифровке территорий. В окно консоли будет выведено наименование родительского слоя расшифровки.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Express: IEaxAnalyzer;
MC: IVZMapChart;
TT: IVZTerritoryTranscript;
Color: GxColorClass_2 = New GxColorClass_2();
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
Express := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
// Получим карту
MC := Express.MapChart.MapChart;
// Получим расшифровку территорий
TT := MC.TerritoryTranscript;
// Включим расшифровку территорий
TT.Visible := True;
// Установим количество столбцов
в расшифровке
TT.ColumnsCount := 2;
// Уменьшим масштаб карты
TT.IsOverlap := False;
// Установим максимальное количество элементов в расшифровке
TT.MaxItemsCount := 10;
// Изменим цвет шрифта элементов
Color.CreateRGB(120, 0, 120);
TT.ItemsStyle.FontColor := Color;
// Изменим режим сортировки - по возрастанию
TT.SortingMode := VisualizatorSortingMode.vsmAsc;
// Изменим режим выбора элемента - по клику
TT.SelectEvent := VisualizatorTerritoryTranscriptSelectEvent.vttseSelectOnClick;
// Выведем в окно консоли наименование родительского слоя расшифровки
System.Diagnostics.Debug.WriteLine("Наименование родительского слоя расшифровки - " + TT.ParentLayer.Name);
// Сохраним изменения
(Express As IMetabaseObject).Save();
End Sub;
См. также: