Как прокрутить ScrollBox на центр?

← →
Tolic-F © (2003-07-18 19:57) [0]

Привет всем Мастерам.
Подскажите как прокрутить ScrollBox на центр независимо от его размеров? Или как определить значение Position, при котором скролл будет ровно по центру?

← →
Marser © (2003-07-18 21:54) [1]

Смотря для чего. Для ListBox это ListBox.TopIndex:=int(ListBox.items.count/2)

← →
Tolic-F © (2003-07-18 23:08) [2]

Я же сказал для чего, для компонента ScrollBox.

← →
Anatoly Podgoretsky © (2003-07-19 08:19) [3]

Position := (Range-Size) div 2;

← →
Tolic-F © (2003-07-19 11:22) [4]

Anatoly Podgoretsky
Не пойдет. Значения Range-Size не изменяются при изменении размеров ScrollBox. Size это вообще ширена для вертикальной полосы прокрутки и высота для горизонтальной, по умолчанию = 0, и тут непричем.

← →
Anatoly Podgoretsky © (2003-07-19 11:34) [5]

У скрол бокс вообще нет таких свойств, это у TControlScrollBar!!!
Если они не меняются автоматически, то это твоя забота изменить их вручную. Рекомендуется просмотреть хелп.

Anatoly Podgoretsky
Чего изменять предлагаете? Range мне не нужно изменять, если его увеличить, то прокрутка будет слишком длинной, если уменьшить, то не доконца будет прокручиваться.

Я понял как найти макс. значение Position:

Для VertScrollBar это ScrollBox1.VertScrollBar.Range-ScrollBox1.Height+20
Для HorzScrollBar это ScrollBox1.HorzScrollBar.Range-ScrollBox1.Width+20

Следовательно "центровку" ScrollBox можно делать так:
ScrollBox1.VertScrollBar.Position:=(ScrollBox1.VertScrollBar.Range-ScrollBox1.Height+20) div 2; ScrollBox1.HorzScrollBar.Position:=(ScrollBox1.HorzScrollBar.Range-ScrollBox1.Width+20) div 2;

Особенно приятно, что я сам догадался :) Но, все рвно спасибо Anatoly Podgoretsky. Или вы под "Size" и имели введу Height/Width?
Только осталось непонятным, почему +20. Скорей всего это высота кнопок прокрутки.

Как прокрутить ScrollBox на центр? Найти похожие ветки