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

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

правильное масштабирование изображений [D5]

Kein ©   (2004-06-04 14:59:00) 

собсно топик. буду благодарен за ссылки.

---

Никита   (2004-06-07 16:58:00) [1]

Ничего себе!!!

---

Думкин   (2004-06-06 12:33:00) [2]

g32.org - там качественнее масштабирует.

---

jack128   (2004-06-06 09:34:00) [3]

Такое подойдет?
  // Пропорционально увеличиваем и центруем картинку и рисуем её на другом bitmap'е
 procedure DrawEx(SourceBitmap, DestBitmap: TBitmap);
 var
   Scale: Integer;
   _Rect: TRect;
 begin
   Scale := Min(DestBitmap.Width div SourceBitmap.Width,
     DestBitmap.Height div SourceBitmap.Height);
   if Scale = 0 then Scale := 1;
   _Rect := Rect(0, 0, Scale * SourceBitmap.Width, Scale * SourceBitmap.Height);
   // Центруем прямоугольник
   OffsetRect(_Rect, (DestBitmap.Width - _Rect.Right) div 2,
     (DestBitmap.Height - _Rect.Bottom) div 2);
   DestBitmap.Canvas.StretchDraw(_Rect, SourceBitmap);
 end;

---

Jeer   (2004-06-04 15:30:00) [4]

А чем отличается от "неправильного" ?

---

Наверх