Показать сообщение отдельно
  #6  
Старый 20.01.2022, 18:51
TryHarder TryHarder вне форума
Прохожий
 
Регистрация: 20.01.2022
Сообщения: 1
Версия Delphi: VS
Репутация: 10
По умолчанию

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