IMapBarVisual.LeastHeightPart

Синтаксис

LeastHeightPart: Double;

Описание

Свойство LeastHeightPart определяет долю минимальной высоты столбиков показателя. Возможные значения ограничены диапазоном [0..1]. По умолчанию свойство имеет значение «0.2».    

Пример Fore

Для выполнения примера предполагается наличие регламентного отчёта с идентификатором «REGULAR_REPORT», на листе которого расположена таблица с данными по каким-либо регионам и карта (.tbs) со слоем «Regions», где добавлен столбиковый показатель. В модуле подключите системные сборки: Metabase, Report, Tab, Drawing, Map.

Sub UserProc;
Var
    Metabase: IMetabase;
    MetabaseObject: IMetabaseObject;
    Report: IPrxReport;
    Map: IMap;
    MapBar: IMapBarVisual;
Begin
    Metabase := MetabaseClass.Active;
    Report := Metabase.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    // Определим карту на листе регламентного отчета
    Map := Report.ActiveSheet.Table.Objects.Item(0).Extension As IMap;
    // Определим столбиковый показатель
    MapBar := Map.Layers.FindByName("Regions").Visuals.Item(0) As IMapBarVisual;
    // Зададим долю минимальной высоты и ширины столбиков показателя
    MapBar.LeastHeightPart := 0.4;
    MapBar.LeastWidthPart := 0.5;
    // Зададим максимальное количество столбиков
    MapBar.BarsCount := 2;
    // Определим параметры заливки столбиков показателя
    MapBar.Color.Values.Count := 2;
    MapBar.Color.Values.Item(0) := GxColor.FromName("Red");
    MapBar.Color.Values.Item(1) := GxColor.FromName("Blue");
    // Зададим цвет штриховки для столбиков показателя
    MapBar.Fill.Value := GxHatchStyle.Cross;
    MapBar.FillColor.Values.Item(0) := GxColor.FromName("Green");
    // Определим высоту частей показателя и расстояние между ними
    MapBar.Height.Value := 12;
    MapBar.InterBarDistance := 2;
    // Включим использование процентной шкалы для столбикового показателя
    MapBar.Percentage := True;
    // Зададим ширину частей показателя и начальный угол поворота
    MapBar.Width.Value := 12;
    MapBar.StartAngle := 50;
    (Report As IMetabaseObject).Save;
End Sub UserProc;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Shared Sub Main(Params: StartParams);
Var
    Metabase: IMetabase;
    MetabaseObject: IMetabaseObject;
    Report: IPrxReport;
    Map: IMap;
    MapBar: IMapBarVisual;
    GxColor: GxColorClass = New GxColorClassClass();
Begin
    Metabase := Params.Metabase;
    Report := Metabase.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    // Определим карту на листе регламентного отчета
    Map := Report.ActiveSheet.Table.Objects.Item[0].Extension As IMap;
    // Определим столбиковый показатель
    MapBar := Map.Layers.FindByName["Regions"].Visuals.Item[0] As IMapBarVisual;
    // Зададим долю минимальной высоты и ширины столбиков показателя
    MapBar.LeastHeightPart := 0.4;
    MapBar.LeastWidthPart := 0.5;
    // Зададим максимальное количество столбиков
    MapBar.BarsCount := 2;
    // Определим параметры заливки столбиков показателя
    MapBar.Color.Values.Count := 2;
    MapBar.Color.Values.Item[0] := GxColor.FromName("Red");
    MapBar.Color.Values.Item[1] := GxColor.FromName("Blue");
    // Зададим цвет штриховки для столбиков показателя
    MapBar.Fill.Value := GxHatchStyle.ghsCross;
    MapBar.FillColor.Values.Item[0] := GxColor.FromName("Green");
    // Определим высоту частей показателя и расстояние между ними
    MapBar.Height.Value := 12;
    MapBar.InterBarDistance := 2;
    // Включим использование процентной шкалы для столбикового показателя
    MapBar.Percentage := True;
    // Зададим ширину частей показателя и начальный угол поворота
    MapBar.Width.Value := 12;
    MapBar.StartAngle := 50;
    (Report As IMetabaseObject).Save();
End Sub;

См. также:

IMapBarVisual