[Помидоркин]

Пытаюсь сделать масштабирование как в фотошоп или солидворкс т.е. по FormMouseWheelDown\Up изображение увеличивается\уменьшается, при этом изображение (видимая в окне часть) позиционируется в зависимости от положения курсора.
Вопрос с какого бока подойти к решению, какие компоненты использовать.
Что-то такое набросал, понятно что "шляпа", у меня ощущение что вообще не с той стороны захожу

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm2.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; var Handled: Boolean); begin  Image1.Picture.Bitmap.SetSize(Image1.Picture.Bitmap.Width+10,   Image1.Picture.Bitmap.Height+10); end;   procedure TForm2.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;   MousePos: TPoint; var Handled: Boolean); begin   Image1.Picture.Bitmap.SetSize(Image1.Picture.Bitmap.Width-10,    Image1.Picture.Bitmap.Height-10); end;

[lmikle]

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

[Guaho]

Смотрите компоненты ImageEn. Там такое есть, и не только.

[olegivanov142]

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

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

Благодарю!!

[hromatogra]

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

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

Добрый день. Спасибо большое !

[TryHarder]

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

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

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

[lmikle]

Ну, вообще-то, именно так у меня в одной программе и работает.
Что-то ты не так делаешь.

[gijog]

А в чём ошибка?

[lmikle]

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

А в чём ошибка?

Ну а я откуда знаю. Полный код то никто не выложил...