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

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

Сглаживание изображения (tbitmap) [D7, Win95/98, WinXP]


Tirex ©   (2005-03-13 10:46:00) 

Собственно сабж. Есть изображение ~ 400 300 оно умешьается StretchBlt до 150 на 150. Края получаются "рванные" так что хотелось бы его немного сгладить.


Tirex   (2005-03-15 21:56:00) [1]

да я уже прочел, спасибо.


Думкин   (2005-03-15 07:52:00) [2]

> [4] Tirex   (14.03.05 18:34)

SetStretchBltMode - HALFTONE

This option is not supported on Windows 95/98/Me.


Tirex   (2005-03-14 18:34:00) [3]

Нашел функцию
SetStretchBltMode(tbm_min.Canvas.Handle, HALFTONE);
то что нужно. во только под 98 почему то не пашет. На XP все ок.
Пробовал так вызывать, результат ноль.
Про поддержку в 98 там ничего не сказано стало быть должно работать.
GetBrushOrgEx(tbm_min.Canvas.Handle, pt) then
SetStretchBltMode(tbm_min.Canvas.Handle, HALFTONE);
SetBrushOrgEx(tbm_min.Canvas.Handle,pt.X,pt.Y,@pt);
   StretchBlt(tbm_min.Canvas.Handle,0,0,150,150,bm_min.Canvas.Handle,0,0,bm_min.Width,bm_min.Height,SRCCOPY);
Кто нибудь работал с ней?


Tirex   (2005-03-14 14:53:00) [4]

И все таки это больше размытие чем сглаживание. Может быть еще есть какие-нибудь пути?


Tirex   (2005-03-14 09:44:00) [5]

Спасибо.


Fenik   (2005-03-13 11:32:00) [6]

http://www.torry.ru/vcl/graphics/bitmap/resample.zip


Наверх

Титульная страница Поиск, карта сайта Написать письмо