IMapTerritoryInfo.Font

Копировать пример

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Map: IMap;
    TerrI: IMapTerritoryInfo;
    Font: IGxFont;
    Color: IGxColor;
    Pen: IGxPen;
Begin
    // Определим карту
    Map := UiMap1.Map;
    TerrI := New DxMapTerritoryInfo.Create;
    Map.View.TerritoryInfo := TerrI;
    // Определим слой, по которому отображается расшифровка
    TerrI.Layer := Map.Layers.FindByName("Regions");
    // Зададим максимальное количество элементов в расшифровке
    TerrI.MaxItemCount := 5;
    // Зададим расстояние между идентификатором и наименованием элемента расшифровки
    TerrI.MarkerCellPadding := 5;
    // Зададим параметры границы расшифровки территорий
    Color := GxColor.FromName("Blue");
    Pen := New GxPen.CreateSolid(Color);
    TerrI.BorderPen := Pen;
    // Зададим шрифт расшифровки
    Font := New GxFont.Create("Arial", 10, 3 As GxFontStyle);
    // F := New GxFont.Create("Courier New", 10, 2 As GxFontStyle);
    TerrI.Font := Font;
    // Зададим цвет шрифта расшифровки
    Color := GxColor.FromName("Red");
    TerrI.FontColor := Color;
    // Узнаем, изменилась ли расшифрока территорий
    If TerrI.IsDirty Then
        Debug.WriteLine("Есть изменения в расшифровке территорий");
    Else
        Debug.WriteLine("Нет изменения в расшифровке территорий");
    End If;
End Sub Button1OnClick;