IDimensionViewer.OnCompareItems

Синтаксис

Sub OnCompareItems(Sender: Object; Args: IDimensionViewerCompareEventArgs);

Begin

//набор операторов;

End Sub OnCompareItems;

Параметры

Sender. Параметр, возвращающий компонент, сгенерировавший событие.

Args. Параметр, позволяющий определить параметры события.

Описание

Событие OnCompareItems наступает при сравнении двух элементов во время пользовательской сортировки элементов.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1" и компонента DimensionTree с наименованием "DimensionTree1". Элементы во втором столбце содержат целочисленные значения.

Class TestForm: Form

DimensionTree1: DimensionTree;

UiDimension1: UiDimension;

Button1: Button;

AttrInst: IDimAttributeInstance;

Sub DimensionTree1OnCompareItems(Sender: Object; Args: IDimensionViewerCompareEventArgs);

Var

i, j: Integer;

Begin

i := AttrInst.Value(Args.LeftItem);

j := AttrInst.Value(Args.RightItem);

If i > j Then

Args.Compare := -1;

Else

Args.Compare := 1;

End If;

End Sub DimensionTree1OnCompareItems;

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

Inst: IDimInstance;

Begin

Inst := UiDimension1.DimInstance;

AttrInst := Inst.Attributes.Item(1);

DimensionTree1.SortType := ControlSortType.Custom;

DimensionTree1.SortColumn := 1;

DimensionTree1.Sorted := True;

DimensionTree1.SortDefault;

End Sub Button1OnClick;

End Class TestForm;

После выполнения примера при нажатии на кнопку будет осуществлена пользовательская сортировка по значениям второй колонки компонента. Значения будут упорядочены по убыванию.

См. также:

IDimensionViewer