IDimensionViewerCompareEventArgs.Compare

Синтаксис

Compare: Integer;

Описание

Свойство Compare определяет признак сортировки.

Комментарии

Для свойства должно быть установлено одно из следующих значений:

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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;

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

См. также:

IDimensionViewerCompareEventArgs