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