IMapLayer.VisualOffset

Синтаксис Fore

VisualOffset: Integer;

Синтаксис Fore.NET

VisualOffset: integer;

Описание

Свойство VisualOffset определяет расстояние между столбиковыми и круговыми показателями, расположенными на одной линии.

Комментарии

Для задания расстояния между столбиковыми и круговыми показателями необходимо, чтобы свойство IMapLayer.PlaceVisualsOneByOne принимало значение True.

Пример Fore

Для выполнения примера в репозитории необходимо наличие регламентного отчета с идентификатором «REPORT», содержащего карту. Карта содержит столбиковые и круговые показатели.

Добавьте ссылки на системные сборки: Map, Metabase, Report.

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Map: IMap;
    Layer: IMapLayer;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    Map := (Report.ActiveSheet As IPrxTable).TabSheet.Objects.Item(0).Extension As IMap;
    Layer := Map.Layers.Item(0);
    Layer.VisualOffset := 10;
    If Not Layer.PlaceVisualsOneByOne Then
        Layer.PlaceVisualsOneByOne := True;
    End If;
End Sub UserProc;

После выполнения примера изменится расстояние между столбиковыми и круговыми показателями.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    Map: IMap;
    Layer: IMapLayer;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REPORT"].Edit() As IPrxReport;
    Map := (Report.ActiveSheet As IPrxTable).TabSheet.Objects.Item[0].Extension As IMap;
    Layer := Map.Layers.Item[0];
    Layer.VisualOffset := 10;
    If Not Layer.PlaceVisualsOneByOne Then
        Layer.PlaceVisualsOneByOne := True;
    End If;
End Sub;

См. также:

IMapLayer