| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перемещение полос прокрутки в ScrollBox/

Pavel ©   (2009-10-02 14:07:00) 

Как мне в ScrollBox сделать так чтобы при запуске приложения полосы прокрутки находились не в крайнем положении, а по центру?

Благодарю за ответы.

---

Омлет   (2009-10-16 18:37:00) [1]

Может горизонтально некуда крутить-то? У меня работает.

---

Pavel   (2009-10-16 15:52:00) [2]

with ScrollBox1 do
begin
  HorzScrollBar.Position := (HorzScrollBar.Range - Width) div 2;
  VertScrollBar.Position := (VertScrollBar.Range - Height) div 2;
end;

В такой конструкции почему то срабатывает только вертикальный ScrollBar.
Положение горизонтального ScrollBar остьается неизменным.

---

Омлет   (2009-10-02 15:35:00) [3]

В OnShow формы

with ScrollBox1 do
 begin
   HorzScrollBar.Position := (HorzScrollBar.Range - Width) div 2;
   VertScrollBar.Position := (VertScrollBar.Range - Height) div 2;
 end;

---

clickmaker   (2009-10-02 15:34:00) [4]

ну где-то дальше, значит, сбрасывается

---

Pavel   (2009-10-02 15:28:00) [5]

105

---

clickmaker   (2009-10-02 15:26:00) [6]

а Range чему равен?

---

Pavel   (2009-10-02 15:08:00) [7]

ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Range div 2;
Не работает.

---

clickmaker   (2009-10-02 14:12:00) [8]

HorzScrollBar.Position := HorzScrollBar.Range div 2;

---

Наверх