IBindingIntegerEdit.MaxValue

Синтаксис Fore

MaxValue: Integer;

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

MaxValue: Integer;

Описание

Свойство MaxValue определяет значение параметра «MAXVAL» в строке связи.

Комментарии

Параметр «MAXVAL» определяет максимальное возможное значение, которое можно будет установить в редакторе.

Свойство MaxValue доступно для использования, если свойству MaxValueDefined установлено значение True. При изменении свойства MaxValue свойству MaxValueDefined автоматически устанавливается значение True.

Пример Fore

Function CreateIntegerEditBidning(DefaultValue: Integer): String;
Var
    BM: IBindingManager;
    IntegerEditBinding: IBindingIntegerEdit;
Begin
    BM := New BindingManager.Create;
    IntegerEditBinding := BM.CreateByUi("IntegerEdit") As IBindingIntegerEdit;
    IntegerEditBinding.Mandatory := True;
    IntegerEditBinding.CorrectOnExit := True;
    IntegerEditBinding.MinValue := DefaultValue - 100;
    IntegerEditBinding.MaxValue := DefaultValue + 100;
    IntegerEditBinding.Value := DefaultValue;
    IntegerEditBinding.MaxLength := 3;
    Return IntegerEditBinding.AsString;
End Function CreateIntegerEditBidning;

Данная функция генерирует строку связи для использования редактора целочисленных значений. Значение, относительно которого указываются параметры редактора, передается посредством входного параметра DefaultValue. При вводе в ячейку с редактором недопустимого значения (больше максимального или меньше минимального) и снятии фокуса с ячейки значение редактора будет заменено на ближайшее допустимое. Для редактора установлено ограничение на количество вводимых символов - 3.

Пример Fore.NET

Imports Prognoz.Platform.Interop.ForeSystem;

Function CreateIntegerEditBidning(DefaultValue: Integer): String;
Var
    BM: BindingManager = New BindingManagerClass();
    IntegerEditBinding: IBindingIntegerEdit;
Begin
    IntegerEditBinding := BM.CreateByUi("IntegerEdit") As IBindingIntegerEdit;
    IntegerEditBinding.CorrectOnExit := True;
    IntegerEditBinding.MinValue := DefaultValue - 100;
    IntegerEditBinding.MaxValue := DefaultValue + 100;
    IntegerEditBinding.Value := DefaultValue;
    IntegerEditBinding.MaxLength := 3;
    Return IntegerEditBinding.AsString;
End Function;

Результат выполнения примера аналогичен результату примера на Fore.

См. также:

IBindingIntegerEdit