SpinEdit

[Juni]

Если свойства MaxValue и MinValue компонента SpinEdit равны между собой, то этот компонент теряет свое самое важное качество – ограничение значения (Value) снизу и сверху.
Например, надо сделать много стоящих подряд компонентов с непересекающимися интервалами.

Как этот момент обойти аккуратно и красиво?
Я, например, пока сделал так: (MaxValue <> MinValue)

Событие от любого SpinEdit
SpinEdit12. MinValue:=SpinEdit11.Value;
SpinEdit12. MaxValue:=SpinEdit13.Value;
SpinEdit13. MinValue:= SpinEdit12.Value;
SpinEdit13. MaxValue:=SpinEdit14.Value;

Событие от SpinEdit12.Value:
if SpinEdit12.Value=SpinEdit11.Value thenSpinEdit12.Value:=SpinEdit12.Va lue+1;
if SpinEdit12.Value=SpinEdit13.Value thenSpinEdit12.Value:=SpinEdit12.Va lue-1;

Событие от SpinEdit13.Value:
if SpinEdit13.Value=SpinEdit12.Value then SpinEdit13.Value:=SpinEdit13.Value+ 1;
if SpinEdit13.Value=SpinEdit14.Value then SpinEdit13.Value:=SpinEdit13.Value-1;

И так, для каждой пары.

[Пепел Феникса]

так если у одного компонента они равны то да....
а если у разных совпадают то все норм...
что сделать то надо?
можно пример(без тысяч спинов)

[Juni]

Надо, что бы пользователь мог задать интервалы произвольной ширины, но смежные. Например, первый заканч. на 5 а второй инт. начинается с обязательно 6.

[evg_m]

интервал задается двумя величинами (начало , длина)
интервалы смежные т.е. начало определяется однозначно по предыдущему следовательно его начало ПОЛЬЗОВАТЕЛЮ задавать НЕ НАДО (сделать недоступным для изменения пользователем ENABLE) а задавать только длину

[Juni]

Вот кусочек кода из файла Spin.pas:

function TSpinEdit.CheckValue (NewValue: LongInt): LongInt;
begin
Result := NewValue;
if (FMaxValue <> FMinValue) then
begin
if NewValue < FMinValue then
Result := FMinValue
else if NewValue > FMaxValue then
Result := FMaxValue;
end;
end;

Зачем Борланд добавила условный оператор: if (FMaxValue <> FMinValue) then - не было бы проблем. Я новичек и подвоха не вижу.

[Пепел Феникса]

f (FMaxValue <> FMinValue) then
если границы равны то считаем что их нет.
это так и есть...так что следите что границы одного спина не были равны

[Juni]

Наверное, надо было им сделать свойство которое вкл или выкл. эту условную проверку. В программировании иногда логика отличается от математической.

[Пепел Феникса]

вообще у компонента есть событие OnChange там делайе любые проверки.