Масштабирование

[Vova777]

В компоненте Image нарисован некий рисунок с помощью метода Canvas, как можно сделать, чтобы при вращении колесика изменялся масштаб рисунка, а не размеры Image. И как сделать чтобы при нажатой кнопке мыши можно было перетаскивать рисунок в компоненте, а не сам компонент Image?

[Stilet]

А почему бы не перетаскивать и не масштабировать сам компонент?

[ArtGrek]

помести имадже на панел, у панел отключи скролы, и увиличиваи именно едо размер
ефект будит как маштабирование

вес код вложи врушную, потом заиди в инспектор -> события
и выбери у каждого имаиджа по 3 аналогичных события

type
  TForm1 = class(TForm)
...
procedure ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
procedure ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
procedure ImagesMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
...
procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=True;
  x2:=x;
  y2:=y;
end;

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    TImage(Sender).Parent.Left := TImage(Sender).Parent.Left - (x2 - x);
    TImage(Sender).Parent.Top := TImage(Sender).Parent.Top - (y2 - y);
end;

procedure TForm1.ImagesMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PresIm:=False;
end;

[Vova777]

Просто если изменять размер Image это не влияет на рисунок (рисунок не BitMap а с помощью Canvas). AutoSize и Strech не изменяют его размеров вообще.

[asmodey1]

Информация к размышлению:

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
Image1.Width:=Round(Image1.Width*1.1);
Image1.Height:=Round(Image1.Height*1.1);
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
Image1.Width:=Round(Image1.Width/1.1);
Image1.Height:=Round(Image1.Height/1.1);
end;

Вам осталась ерунда - ввести корректировку Image1.Left, Image1.Top...

[Stilet]

Strech не изменяют его размеров вообще.

На экране??? Да ну... Прям уж так и не изменяют?

[Vova777]

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

На экране??? Да ну... Прям уж так и не изменяют?

Рисунок выведен канвой, это не битмап, чтобы его размеры менялись. )))
Колесиком менять свойства длины-ширины (масштабировать) почему-то не получается (даже когда загружен TBitMap в Image.Picture), а если поставить две кнопки ("+" и "-") то все отлично.

Ну я в целом задачу решил:
1)сохраняю область канвы в битмап-файл,
2)далее Image1.Pictire:= nil,
3)а потом в Image1.Picture загружаю этот битмап.
Только теперь можно применять свойства AutoSize и Strech.
Может это и не очень грамотно, но пока что я пришел только к такому решению. )))

-Что можно сделать, чтобы свойство Strech так сильно не искажало рисунок при масштабировании? Или можно использовать другие варианы вместо Strech?

-Как сделать перемещение обоих скроллеров в ScrollBoxe, когда нажата и удерживается кнопка мыши? (похоже на команду из автокада: "панорамирование"). Вроде навигации по рисунку.

[ArtGrek]

ScrollBox отключаеш оба скрола
Image1.Stretch := True;
ет увеличение

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Width := Image1.Width + 30;
Image1.Left := (ScrollBox1.Width - Image1.Width) div 2;
Image1.Height := Image1.Height + 30;
Image1.Top := (ScrollBox1.Height - Image1.Height) div 2;
end;

движение я писал выше
еффект маштабирования есть проверял

asmodey1 Информация к размышлению:

хорошая идея
не просто читаи посты, попробуи, а еффект на практике увидиш

[Sibedir]

Вот, выдрал из старого проекта: Масштабирование Image.zip
То же самое без ScrollBox'а: Масштабирование Image (без ScrollBox).zip

[ArtGrek]

вам придложили 2 варианта на словах, 2 варианта готовых залили,
а вам даже лень подставить код и проверить ефект и посмотреть что не так в проекте что б исправить
SCAD, ColorUnit,
в вариантах Sibedir надо убрать ети 2 модуля, не знаю если они нужны для чего то еще но просто увидеть ефект вы сможете