Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ScrollBars если Visable = False как прокрутить?

Автор: Ak47black 26.8.2007, 12:26

Здравствуйте.
Столкнулся со следующей проблемой.
Есть компонент TScrollBox и например в него ложу другой компонент например TImage, в TImage загружаю картинку и устанавливаю у TScrollBox вертикальный и горизонтальный Range такой-же как у TImage.
Если я делаю вот такой вот код

Код


  TScrollBox.VertScrollBar.Position:= 200;
  TScrollBox.HorzScrollBar.Position:= 200;

То TScrollBox прокручивается до конца, но если я не хочу видеть сами полосы прокрутки и делаю

Код


  TScrollBox.VertScrollBar.Visable:= False;
  TScrollBox.HorzScrollBar.Visable:= False;

По такой код(который прокручивает) почемуто не работает.
Как заставить его работать?

Прикрепляю проект отражающий судь проблемы.

Автор: MetalFan 26.8.2007, 16:54

а что, если написать как-то так:

Код


Image2.Left := -100;
Image2.Top := -100;

добъешься такого же эффекта, как и при прокрутке скролбаров)

Автор: Ak47black 26.8.2007, 17:27

Гы

, ну это сделаю от безысходности. Хотя наверно так и сделаю.
Может ктонибудь всетаки знает как нормально можно прокрутить?

Автор: volvo877 26.8.2007, 17:39

Цитата(Ak47black @ 26.8.2007, 17:27

)

как нормально можно прокрутить?

Прокрутить ЧТО? Ты ж убрал линейки прокрутки... Попробуй навесить код:

Код


  ScrollBox1.HorzScrollBar.Visible := false;
  ScrollBox1.VertScrollBar.Visible := false;

на кнопку, и убедиться, что даже если ты СНАЧАЛА прокрутишь изображение так, как тебе надо, а ПОТОМ скроешь линейки, изображение тут же перерисуется (как и было, без прокрутки). Соответственно, ни Perform, ни что иное не помогут, ScrollBox просто не в состоянии обработать прокрутку, крутить-то нечего...

Автор: Ak47black 26.8.2007, 18:47

Да так есть.
Сделал по способу который предложил MetalFan +