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

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

Как увеличить изображение в Image? [D7, WinXP]

Дмитрий_177 ©   (2006-02-16 16:34:00) 

Как увеличить изображение в Image? Попробовал так, не получилось..:(

with Image1.Picture.Bitmap do
 begin
 Width := Round(Width * 1.2);
 Height := Round(Height * 1.2);
 end;


---

Дмитрий_177   (2006-02-19 02:51:00) [1]

я уже справился с этим, сделал Canvas.StretchDraw )))

---

Gorger   (2006-02-19 02:45:00) [2]

Функция StretchBlt из стандартного API. Растягивает изображения очень неплохо, а вот сжимает паршиво.

---

Дмитрий_177   (2006-02-18 00:55:00) [3]

У меня изображение в Image в центре рисуется...

---

DELORAC   (2006-02-16 17:16:00) [4]

Не понимаю для чего...
Кинь Image на панель и тяни его а увеличивающийся рисунок будет оставаться в пределах панели... Либо используй соответствующие алгоритмы...

---

Дмитрий_177   (2006-02-16 17:11:00) [5]

Сам Image понятно как расстягивать... я имел ввиду само изображение которое в нем находится... а Image не изменял бы свои размеры..

---

DELORAC   (2006-02-16 17:06:00) [6]

Если я правильно понял условие, то

with Image1 do
begin
 Stretch := True;
 Width := Width * 10000000000000000000000000000000000000;
 Height := Height * 100000000000000000000000000000000000000000000;
end;

если хочеш соблюсти пропорции, то
  Image1.Proportional := True;

---

Наверх