Показать сообщение отдельно
  #1  
Старый 20.01.2021, 14:01
Аватар для Помидоркин
Помидоркин Помидоркин вне форума
Новичок
 
Регистрация: 07.10.2012
Адрес: Дедовск
Сообщения: 97
Версия Delphi: Delphi 7 / XE4
Репутация: 10
По умолчанию Масштабирование изображения скроллом

Пытаюсь сделать масштабирование как в фотошоп или солидворкс т.е. по FormMouseWheelDown\Up изображение увеличивается\уменьшается, при этом изображение (видимая в окне часть) позиционируется в зависимости от положения курсора.
Вопрос с какого бока подойти к решению, какие компоненты использовать.
Что-то такое набросал, понятно что "шляпа", у меня ощущение что вообще не с той стороны захожу
Код:
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;
Ответить с цитированием