IBindingIntegerSlider.MaxValueDefined

Синтаксис Fore

MaxValueDefined: Boolean;

Синтаксис Fore.NET

MaxValueDefined: boolean;

Описание

Свойство MaxValueDefined определяет, присутствует ли в строке связи  параметр «MAXVAL».

Комментарии

Возможные значения:

• True. В строке связи присутствует параметр «MAXVAL». Для задания значения данного параметра используйте свойство IBindingIntegerSlider.MaxValue;

• False. В строке связи отсутствует параметр «MAXVAL».

Пример Fore

Данная процедура выполняет проверку строки связи, переданной в качестве входного параметра SourceBinding.

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;

Если строка связи, переданная в качестве входного параметра, соответствует редактору значения в виде ползунка целых значений, то в результате выполнения примера в окно консоли будут выведены параметры данного ползунка.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.ForeSystem;
…
Shared Sub CreateIntegerSliderBidning(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
            System.Diagnostics.Debug.WriteLine("Значение по умолчанию (VALUE): " + Slider.Value.ToString());
        End If;
        //Проверка наличия параметра MINVAL
        If Slider.MinValueDefined Then
            System.Diagnostics.Debug.WriteLine("Минимальное значение (MINVAL): " + Slider.MinValue.ToString());
        End If;
        //Проверка наличия параметра MAXVAL
        If Slider.MaxValueDefined Then
            System.Diagnostics.Debug.WriteLine("Максимальное значение (MAXVAL): " + Slider.MaxValue.ToString());
        End If;
        //Проверка наличия параметра STEP
        If Slider.StepDefined Then
            System.Diagnostics.Debug.WriteLine("Шаг изменения значения (STEP): " + Slider.@Step.ToString());
        End If;
    End If;
End Sub CreateIntegerSliderBidning;

См. также:

IBindingIntegerSlider