Видимость скроллбаров

[mutabor]

Есть два скроллбара (TScrollBar), один вертикальный, другой горизонтальный. Управляются полностью вручную. Возникла задача - когда нужно показывать их, а когда не нужно прятать. Но есть один нюанс, бывают случаи когда появление одного приводит к тому, что необходим становится и другой, хотя до этого он вроде как был и не нужен. Как бы получше это сделать? Не то чтобы я совсем не могу это написать, но получается много когда, много проверок, как-то некрасиво, чувствую что можно лучше. Хочется найти оптимальное и красивое решение.

К примеру, есть процедура ShowScrollBars в к-рой этот код, доступны габариты (ширина, высота) области прокрутки, и габариты (ширина, высота) объекта, к-рый может в эту область влазить или не влазить. Позиция объекта всегда 0,0.

[Stilet]

А не проще ли воспользоваться услугами ScrollBox'a?
Или тогда обьясни поточнее критерии когда показывать когда скрывать Скроллы.

[mutabor]

Сообщение от Stilet

А не проще ли воспользоваться услугами ScrollBox'a?
Или тогда обьясни поточнее критерии когда показывать когда скрывать Скроллы.

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

Объясняю поточнее:
Объект - картинка.
Показывать скроллы нужно тогда, когда картинка не влазит в прямоугольник на экране, вокруг к-рого стоят эти скроллы (вернее они внутри, были бы вокруг - вопроса бы этого не было). Суть задачи - появление одного скролла делает клиентскую область прямоугольника меньшей на размер этого скролла, и теперь и другой будет нужен, хотя на момент входа в процедуру (до появления первого скролла) он не был нужен. Процедура решает, а нужно ли показывать скроллы, и какой показывать, а какой не показывать, и когда интересует этот вопрос, она вызывается. Так понятно?

Я понимаю что очевидное решение - юзать скроллбокс, это так кажется, потому что я упростил чтобы было понятнее.

[Stilet]

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

[mutabor]

Сообщение от Stilet

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

Ты все пытаешься мне другое решение предложить, а я хочу получить ответ на этот конкретный поставленный вопрос

Представьте что вы на передаче Что гДе когда (только тут денег не платят =), вопрос от телезрителя

[Stilet]

Ладно. Вот как бы сделал я если бы наглотался твоих грибов:

  ScrollBar1.Top:=Panel1.Height-byte((Image1.Width+Image1.Left)>Panel1.Width)*ScrollBar2.Width;
  ScrollBar2.Left:=Panel1.Width-byte((Image1.Height+Image1.Top)>Panel1.Height)*ScrollBar1.Height;

Здесь:
ScrollBar2 - вертикальный
ScrollBar1 - Горизонтальный
Panel - Контейнер на котором лежит Картинка

Идея ясна?

[mutabor]

Прошу прощения, может я не правильно объяснил, мне нужно Visible свойство определять, а не Left и Top.

[Stilet]

Не я все понял. Но ты же сказал как бы я сделал? Вотя и решил что сворачивание скролов за пределы видимости даст тот же эффект что и установка Visible

[mutabor]

Не я все понял. Но ты же сказал как бы я сделал?

Ааа, ну тогда другой компот. Сейчас попробую понять, на вид неплохо, компактно, у меня намного больше кода вышло.

Идею понял, интересное решение, с интерпретацией булева значения как цифры. А если бы тебе нужно было все же Visible задавать?

[Stilet]

А если бы тебе нужно было все же Visible задавать?

А если бы бабушка была дедушкой...
Дружище. На Что Где Когда один вопрос
Да и потом я бы уж точно не стал морочить голову таким - СкроллБокс кинул бы.
Но раз ты уж спрашиваешь:

 ScrollBar1.Visible:=(Panel1.Height-byte((Image1.Width+Image1.Left)>Panel1.Width)*ScrollBar2.Width)>Panel1.Height;
  ScrollBar2.Visible:=(Panel1.Width-byte((Image1.Height+Image1.Top)>Panel1.Height)*ScrollBar1.Height)>Panel1.Width;

Соответственно не проверял ибо грибы отпустили...