Вниз
Скачать: CL | DM;

Проблема оптимизации картинки при изменении размера   Найти похожие ветки 

 
Don ©   (2002-02-12 01:55) [0]

При работе над электронным каталогом столкнулся с проблемой качества картинок. Картинки гружу в компонент наследованыый от TPaintBox
- Вначале работал с bmp:
Picture.LoadFromFile(FileName);
... вычисляю пропорциональный OutRect и вывожу
Canvas.StretchDraw(outrect, Picture.Graphic);

Приемлемое качество получается в узком диапазоне размеров OutRect, а их надо менять от трети до полного экрана в 1024*768 и 800*600.

- Пытался "играть" размерами исходной картинки - малоэффективно.
- Пытался перейти на jpeg и автоматически переключать шкалы:
...
Ratio := aOriginalWidth / (OutRect.Right - OutRect.Left);
if Picture.Graphic is TJPEGImage then begin
if Ratio < 1.25 then
TJPEGImage(Picture.Graphic).Scale := jsFullSize;
... и далее - jsHalf, jsQuarter ...
end;

Результат и здесь не впечатляет. А стандартная смотрелка из XP блестяще отображает картинки едва не любых размеров хоть на одну восьмую, хоть на полный экран! Понятно, что там на лету проводится оптимизация.
Проблема наверняка не новая. Может кто-нибудь сочтёт возможным поделиться готовым решением или хотя бы подсказать направление.
От тупых попыток подобрать режим уже едет крыша!


 
MetallAdm ©   (2002-02-12 17:43) [1]

А если попробовать блюринг (размывку) ??



 
Don ©   (2002-02-12 18:40) [2]

Остаётся узнать, какими средствами его выполнять. Впрочем, делал я это для пробы в Фотошопе - ничего хорошего!


 
MetallAdm ©   (2002-02-13 09:27) [3]

ну как помоему сам же фотощоп при трансформации
делает что то вроде блюринга или я ошибаюсь ??


а алгоритм блюринга можно найти где угодно
простой пример
енто вокруг точки Х суммируешь все элементы
тоесть сумма = 40 в данном примере и
находишь средне арифметическое то бишь Х=40/8

1 2 3
5 Х 6
7 8 9

Вот в принципе так :))



 
Don ©   (2002-02-13 10:01) [4]

Спасибо! Обязательно попробую!



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c
1-77496
koty
2002-06-07 09:26
2002.06.24
Help по Дельфи


14-77579
ЛенаК
2002-05-21 09:56
2002.06.24
Проблема с функцией StringToWideChar


1-77343
Voland_s
2002-06-12 20:09
2002.06.24
OUTPUT параметр в ехе-файле


3-77309
Manul
2002-05-30 22:38
2002.06.24
Хитрый репорт-2


7-77648
Monak
2002-03-28 08:41
2002.06.24
Клава и мышь!




   Наверх