Показать сообщение отдельно
  #4  
Старый 22.09.2021, 07:10
olegivanov142 olegivanov142 вне форума
Прохожий
 
Регистрация: 22.09.2021
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
На форму кидаем TScrollBox, на него TPicture. При загрузке картинки ставим размер TPicture в размер картинки. TPicture.Stretch = True.
В твокм коде убираем строки 5 и 12 (нам не надо переразмеривать сам битмап, только контейнер, а уж он за счет Stretch отрисует картинку с масштабированием).
Должно работать.
Положение при масштабировании по курсору уж как-нить сам пропишешь, там надо будет просто у ScrollBox'а выставлять смещении, если я не ошибаюсь...
Благодарю!!
Ответить с цитированием