MaxValueDefined: Boolean;
MaxValueDefined: Boolean;
Свойство MaxValueDefined определяет признак наличия параметра «MAXVAL» в строке связи.
Если свойству MaxValueDefined установлено значение True, то в строке связи, описывающей редактор значения, будет присутствовать параметр «MAXVAL». Значение данного параметра определяет свойство MaxValue.
Sub DecimalEditBindingInfo(SourceBinding: String);
Var
BM: IBindingManager;
Binding: IBindingValue;
DecimalEditBinding: IBindingDecimalEdit;
Begin
BM := New BindingManager.Create;
Binding := BM.CreateByValue(SourceBinding);
If Binding.UI = "DecimalEdit" Then
DecimalEditBinding := Binding As IBindingDecimalEdit;
//Проверка наличия параметра CORRECTONEXIT
If DecimalEditBinding.CorrectOnExitDefined Then
Debug.WriteLine("CORRECTONEXIT: " + DecimalEditBinding.CorrectOnExit.ToString);
End If;
//Проверка наличия параметра MINVAL
If DecimalEditBinding.MinValueDefined Then
Debug.WriteLine("MINVAL: " + DecimalEditBinding.MinValue.ToString);
End If;
//Проверка наличия параметра MAXVAL
If DecimalEditBinding.MaxValueDefined Then
Debug.WriteLine("MAXVAL: " + DecimalEditBinding.MaxValue.ToString);
End If;
//Проверка наличия параметра PRECISION
If DecimalEditBinding.PrecisionDefined Then
Debug.WriteLine("PRECISION: " + DecimalEditBinding.Precision.ToString);
End If;
//Проверка наличия параметра STEP
If DecimalEditBinding.StepDefined Then
Debug.WriteLine("STEP: " + DecimalEditBinding.Step_.ToString);
End If;
//Проверка наличия параметра VALUE
If DecimalEditBinding.ValueDefined Then
Debug.WriteLine("VALUE: " + DecimalEditBinding.Value.ToString);
End If;
End If;
End Sub DecimalEditBindingInfo;
Данная функция осуществляет проверку строки связи, передаваемой в качестве входного параметра SourceBinding. Если строка связи соответствует редактору вещественных значений высокой точности, то значения параметров, которые для него определены, будут выведены в консоль среды разработки.
Imports Prognoz.Platform.Interop.ForeSystem;
Sub DecimalEditBindingInfo(SourceBinding: String);
Var
BM: BindingManager = New BindingManagerClass();
Binding: IBindingValue;
DecimalEditBinding: IBindingDecimalEdit;
Begin
Binding := BM.CreateByValue(SourceBinding);
If Binding.UI = "DecimalEdit" Then
DecimalEditBinding := Binding As IBindingDecimalEdit;
//Проверка наличия параметра CORRECTONEXIT
If DecimalEditBinding.CorrectOnExitDefined Then
System.Diagnostics.Debug.WriteLine("CORRECTONEXIT: " + DecimalEditBinding.CorrectOnExit.ToString());
End If;
//Проверка наличия параметра MINVAL
If DecimalEditBinding.MinValueDefined Then
System.Diagnostics.Debug.WriteLine("MINVAL: " + DecimalEditBinding.MinValue.ToString());
End If;
//Проверка наличия параметра MAXVAL
If DecimalEditBinding.MaxValueDefined Then
System.Diagnostics.Debug.WriteLine("MAXVAL: " + DecimalEditBinding.MaxValue.ToString());
End If;
//Проверка наличия параметра PRECISION
If DecimalEditBinding.PrecisionDefined Then
System.Diagnostics.Debug.WriteLine("PRECISION: " + DecimalEditBinding.Precision.ToString());
End If;
//Проверка наличия параметра STEP
If DecimalEditBinding.StepDefined Then
System.Diagnostics.Debug.WriteLine("STEP: " + DecimalEditBinding.@Step.ToString());
End If;
//Проверка наличия параметра VALUE
If DecimalEditBinding.ValueDefined Then
System.Diagnostics.Debug.WriteLine("VALUE: " + DecimalEditBinding.Value.ToString());
End If;
End If;
End Sub;
Данная функция осуществляет проверку строки связи, передаваемой в качестве входного параметра SourceBinding. Если строка связи соответствует редактору вещественных значений, то значения параметров, которые для него определены, будут выведены в консоль среды разработки.
См. также: