IBindingIntegerSlider.MaxValueDefined

Копировать пример

Sub IntegerSliderBindingInfo(SourceBinding: String);
Var
    BM: IBindingManager;
    Binding: IBindingValue;
    Slider: IBindingIntegerSlider;
Begin
    BM := New BindingManager.Create;
    Binding := BM.CreateByValue(SourceBinding);
    If Binding.UI = "IntegerSlider" Then
        Slider := Binding As IBindingIntegerSlider;
        //Проверка наличия параметра VALUE
        If Slider.ValueDefined Then
            Debug.WriteLine("Значение по умолчанию (VALUE): " + Slider.Value.ToString);
        End If;
        //Проверка наличия параметра MINVAL
        If Slider.MinValueDefined Then
            Debug.WriteLine("Минимальное значение (MINVAL): " + Slider.MinValue.ToString);
        End If;
        //Проверка наличия параметра MAXVAL
        If Slider.MaxValueDefined Then
            Debug.WriteLine("Максимальное значение (MAXVAL): " + Slider.MaxValue.ToString);
        End If;
        //Проверка наличия параметра STEP
        If Slider.StepDefined Then
            Debug.WriteLine("Шаг изменения значения (STEP): " + Slider.Step_.ToString);
        End If;
    End If;
End Sub IntegerSliderBindingInfo;