Exact(Index: Integer): GxHatchStyle;
Index. Индекс деления шкалы.
Свойство Exact определяет тип штриховки для значений, которые равны значению деления шкалы.
Для выполнения примера предполагается наличие на форме компонентов Button, MapBox, UiMap с наименованиями Button1, MapBox1 и UiMap1 соответственно. UiMap1 является источником данных для MapBox1. К компоненту UiMap1 должна быть подключена карта. Также должен быть реализован класс VisualDataAdapter, создающий динамический источник данных. Пример данного класса содержится в описании свойства IMapVisual.DataAdapter.
Пример является обработчиком события OnClick для компонента Button1.
Добавьте ссылки на системные сборки: Drawing, ExtCtrls, Forms, Map.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Map: IMap;
Layer: IMapLayer;
AreaVisual: IMapAreaVisual;
Fill: IMapVisualFillProperty;
Color: IMapVisualColorProperty;
Scale: IMapFillScale;
Begin
Map := UiMap1.Map;
Layer := Map.Layers.FindByName("Regions");
AreaVisual := Layer.Visuals.AddAreaVisual;
AreaVisual.DataAdapter := New VisualDataAdapter.Create As IMapDynamicDataAdapter;
Fill := AreaVisual.Fill;
Fill.DataAdapter := AreaVisual.DataAdapter;
Scale := Fill.Scale;
Scale.Count := 1;
Scale.AutoCalculable := True;
Scale.Greater(0) := GxHatchStyle.Cross;
Scale.Less(0) := GxHatchStyle.DarkUpwardDiagonal;
Scale.Exact(0) := GxHatchStyle.BackwardDiagonal;
Scale.NoData := GxHatchStyle.Divot;
Fill.Dependent := True;
Color := AreaVisual.FillColor;
Color.Values.Count := 1;
Color.Values.Item(0) := GxColor.FromName("Blue");
Map.Refresh;
End Sub Button1OnClick;
После выполнения примера на слой «Regions» будет добавлен картографический показатель, штриховка которого будет определяться шкалой:
См. также: