FindOutActive;
FindOutActive();
Метод FindOutActive настраивает параметры периода на основании текущей отметки.
Если в календаре первый отмеченный элемент - 01.01.1990, последний - 01.01.1992, между этими элементами отмечены все месяцы, и других отмеченных элементов нет, то после вызова метода FindOutActive будут установлены свойства: Start - «01.01.1990 00:00:00», End_ - «01.01.1992 00:00:00», Levels - количество месяцев между ними, Active = True.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1», компонент DimensionTree с идентификатором «DimensionTree1» и компонент UiDimension с идентификатором «UiDimension1». Для компонента «DimensionTree1» укажите источник данных «UiDimension1». В качестве источника данных используется календарный справочник. Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
CalendarSel: IDimCalendarSelection;
SelPeriod: IDimCalendarPeriodSelection;
Begin
CalendarSel := UiDimension1.Selection As IDimCalendarSelection;
SelPeriod := CalendarSel.Period;
SelPeriod.FindOutActive;
Debug.WriteLine(SelPeriod.Start.ToString + " " + SelPeriod.End_.ToString);
Debug.WriteLine(SelPeriod.Levels);
Debug.WriteLine(SelPeriod.Active);
End Sub Button1OnClick;
При нажатии на кнопку «Button1» в окно консоли будут выведены параметры периода на основании текущей отметки.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «button1», компонент DimensionTreeNet с идентификатором «DimensionTreeNet1» и компонент UiDimensionNet с идентификатором «UiDimensionNet1». Для компонента «DimensionTreeNet1» укажите источник данных «UiDimensionNet1». В качестве источника данных используется календарный справочник. Пример является обработчиком события Click для компонента «Button1».
Для выполнения примера добавьте ссылку на системную сборку «Dimensions».
Imports Prognoz.Platform.Interop.Dimensions;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
CalendarSel: IDimCalendarSelection;
SelPeriod: IDimCalendarPeriodSelection;
Begin
CalendarSel := uiDimensionNet1.Selection As IDimCalendarSelection;
SelPeriod := CalendarSel.Period;
SelPeriod.FindOutActive();
System.Diagnostics.Debug.WriteLine(SelPeriod.Start.ToString() + " " + SelPeriod.@End.ToString());
System.Diagnostics.Debug.WriteLine(SelPeriod.Levels);
System.Diagnostics.Debug.WriteLine(SelPeriod.Active);
End Sub;
Результат выполнения примера Fore.NET совпадет с результатом выполнения примера Fore.
См. также: