Форум: "Media";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Вниз

изменение размера image   Найти похожие ветки 

← →
iss ©   (2006-02-28 13:05) [0]

Добрый день, на форме есть image, как сделать так, чтобы во время работы программы мышью можно было увеличивать/уменьшать image?

---

← →
SMAC   (2006-03-01 14:11) [1]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Image1.Width := Image1.Width div 2;
Image1.Height := Image1.Height div 2;
end;
 if Button = mbRight then
begin
Image1.Width := Image1.Width * 2;
Image1.Height := Image1.Height * 2;
end;
end;

Меняться будет только Image (как и просили), а не не изображение в нем.

---

← →
iss ©   (2006-03-01 16:41) [2]

Спасибо большое разобрался, еще есть компонент TSizeControl можно его использовать для выполнений операции увеличения/уменьшения и перетаскиваний по форме image...

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.053 c