IsLeafUnloaded(Element: Integer): Boolean;
IsLeafUnloaded(Element: uinteger): boolean;
Element. Индекс элемента справочника.
Метод IsLeafUnloaded возвращает признак того, что элемент справочника не загружен.
Метод возвращает true, если элемент не загружен, и false, если загружен.
Для выполнения примера предполагается наличие формы, содержащей компонент DimensionTree с идентификатором «DimensionTree1», компонент UiDimension с идентификатором «UiDimension1» и компонент Button с идентификатором «Button1». Укажите компонент «UiDimension1» в качестве источника данных для компонента «DimensionTree1». Источником данных компонента «UiDimension1» должен быть табличный справочник НСИ с настроенной динамической загрузкой элементов.
Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Dim: IDynamicInstance;
LastItemIndex: Integer;
Begin
Dim := UiDimension1.DimInstance As IDynamicInstance;
// Получим индекс последнего элемента справочника
LastItemIndex := Dim.CreateDimElementArray.Count - 1;
If Dim.IsLeafUnloaded(LastItemIndex) Then
Debug.WriteLine("Индекс владельца последнего элемента: " +
Dim.OwnerOfUnloadedLeaf(LastItemIndex).ToString);
Else
Debug.WriteLine("Индекс владельца последнего элемента: " +
Dim.OwnerOfLoadedNode(LastItemIndex).ToString);
End If;
End Sub Button1OnClick;
При нажатии на кнопку «Button1» в окно консоли будет выведен индекс элемента, являющегося родителем по отношению к последнему элемента.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Dimensions;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Dim: IDynamicInstance;
LastItemIndex: Integer;
Begin
Dim := uiDimensionNet1.DimInstance As IDynamicInstance;
// Получим индекс последнего элемента справочника
LastItemIndex := Dim.CreateDimElementArray().Count - 1;
If Dim.IsLeafUnloaded(LastItemIndex As uinteger) Then
System.Diagnostics.Debug.WriteLine("Индекс владельца последнего элемента: " +
Dim.OwnerOfUnloadedLeaf[LastItemIndex]);
Else
System.Diagnostics.Debug.WriteLine("Индекс владельца последнего элемента: " +
Dim.OwnerOfLoadedNode[LastItemIndex]);
End If;
End Sub;
См. также: