Пытаюсь сделать масштабирование как в фотошоп или солидворкс т.е. по 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;
|