MaxValue: Decimal;
MaxValue: decimal;
Свойство MaxValue определяет значение параметра «MAXVAL» в строке связи
Параметр «MAXVAL» определяет максимальное значение ползунка. Максимальное значение должно быть больше минимального значения, заданного в свойстве IBindingDecimalSlider.MinValue.
Значение свойства MaxValue учитывается, если свойство IBindingDecimalSlider.MaxValueDefined имеет значение True. При изменении значения свойства MaxValue свойству IBindingDecimalSlider.MaxValueDefined автоматически присваивается значение True.
Данная функция возвращает строку связи для использования редактора значений в виде ползунка десятичных значений.
Function CreateDecimalSliderBidning: string;
Var
BM: IBindingManager;
Slider: IBindingDecimalSlider;
Begin
BM := New BindingManager.Create;
Slider := BM.CreateByUi("DecimalSlider") As IBindingDecimalSlider;
// Указываем, что пустые значения не допускаются
Slider.Mandatory := True;
// Задаем минимальное и максимальное значения
Slider.MinValue := -10E-3M;
Slider.MaxValue := 10E-3M;
// Задаем шаг изменения
Slider.Step_ := 0.15E-3M;
// Задаем значение по умолчанию
Slider.Value := 0;
// Возвращаем строку связи
Return Slider.AsString;
End Function CreateDecimalSliderBidning;
В результате выполнения примера будет получена строка связи для использования редактора значений в виде ползунка десятичных значений.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Shared Function CreateDecimalSliderBidning(): string;
Var
BM: IBindingManager;
Slider: IBindingDecimalSlider;
Begin
BM := New BindingManager.Create();
Slider := BM.CreateByUi("DecimalSlider") As IBindingDecimalSlider;
// Указываем, что пустые значения не допускаются
Slider.Mandatory := True;
// Задаем минимальное и максимальное значения
Slider.MinValue := -10E-3M;
Slider.MaxValue := 10E-3M;
// Задаем шаг изменения
Slider.@Step := 0.15E-3M;
// Задаем значение по умолчанию
Slider.Value := 0;
// Возвращаем строку связи
Return Slider.AsString;
End Function CreateDecimalSliderBidning;
См. также: