Delphi : Изменить масштаб изображения в форме

[Umaru]

Здравствуйте! Подскажите как изменить масштаб изображения на определенный масштаб. Посмотрела форум, но ответа не нашла.
Задача в чем, чтобы после загрузки изображения в Image по выбору подпункта меню Scale, можно было выбрать нужный масштаб (например 50%, 150 %) и изображение изменялось в размерах (становилось в 2 раза меньше / больше и т.д.
Прикрепляю свой проект (на всякий случай) и скриншот формы,примерно как должно реализовываться масштабирование.

[Аватар]

Image: Proportional и Stretch в True и меняй соответственно Height и Width

[Umaru]

Сообщение от Аватар

Image: Proportional и Stretch в True и меняй соответственно Height и Width

вот так?

Image.Proportional :=true;
    Image.Stretch :=true;
    Image.Width := x //значение
    Image.Height := y //значение

[Аватар]

Ну первые два можно на форме накликать один раз, а вторые менять программно в событии онклик меню

[Umaru]

Сообщение от Аватар

Ну первые два можно на форме накликать один раз, а вторые менять программно в событии онклик меню

Хорошо. Можете подсказать функцию с помощью которой можно поменять ширину и высоту изображения?
Не могу в интернете найти внятного ответа.

[p51x]

Вам же написали... или вы чего-то не того хотите?

[min@y™]

?

[Umaru]

[QUOTE=min@y™;1765548]?
[/QUOTE

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

Вам же написали... или вы чего-то не того хотите?

Я понимаю, куда это нужно писать, я не понимаю как задать вместо определенных значений (например сделать картинку из 1000х1000 размером 100х100) ввести процентное соотношение.
И как сделать так, чтобы картинку не урезал часть,а всю сжимал или увеличивал?

Вот мой код:

procedure TFormPictureViewer.N50Click(Sender: TObject);
begin
  if Image.Width <> 0 then // в компоненте Image загружен рисунок
  begin
Image.Proportional :=true;
Image.Stretch :=true;
Image.Picture.Bitmap.Height := 200;
Image.Picture.Bitmap.Width := 200;
  end;
end;

И скриншот, что идет обрезка изображения.

[Аватар]

Image.Height := 200;
Image.Width := 200;

[Umaru]

Сообщение от Аватар

Image.Height := 200;
Image.Width := 200;

А так совсем изображение не меняет размер.