| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

изменение размера image [D7, WinXP]

iss ©   (2006-02-28 13:05:00) 

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

---

iss   (2006-03-01 16:41:00) [1]

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

---

SMAC   (2006-03-01 14:11:00) [2]

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 (как и просили), а не не изображение в нем.

---

Наверх