Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Вниз

Уменьшение размеров картинки без потери качества   Найти похожие ветки 

 
ImageMaker   (2007-06-13 18:39) [0]

Как можно уменьшить размеры картинки без потери качества?
(посоветуйте библиотеку или способ, как это сделать)

Делаю через StretchDraw:

         My_Ratio := RequiredWidth / SourceSize.Width;
         MyBMP.PixelFormat := pf24bit;
         MyBMP.Width := Round(My_Ratio * SourceSize.Width);
         MyBMP.Height := Round(My_Ratio * SourceSize.Height);
         MyBMP.Canvas.(Rect(0, 0, MyBMP.Width, MyBMP.Height), pic.Graphic);

Картинка меняет размеры, но становится такой нечеткой, неразборчивой :(


 
homm ©   (2007-06-13 21:41) [1]

> Как можно уменьшить размеры картинки без потери качества?

Никак. На то оно и уменьшение :)


 
ЮЮ ©   (2007-06-14 05:40) [2]

> посоветуйте библиотеку

Graphics32. Посмотри Demo-проекты.


 
ImageMaker   (2007-06-14 15:10) [3]


> ЮЮ ©   (14.06.07 05:40) [2]
>
> > посоветуйте библиотеку
>
> Graphics32. Посмотри Demo-проекты.


Там так много классов... какой смотреть?


 
homm ©   (2007-06-14 20:02) [4]

> Graphics32. Посмотри Demo-проекты.

Автор, не поддавайся! Он умньшит качество твоих картинок.


 
ЮЮ ©   (2007-06-15 06:37) [5]

> Там так много классов... какой смотреть?

Хватит и базового: TBitmap32.
1) загрузи картинку в один, второй сделай нужного размера и попробуй TBitmap32.DrawTo(Dst: TBitmap32) c разными StretchFilter
2) попробуй procedure StretchNearest из GR32_Transforms
3) для начала просто загрузи в TImage32 cj ScaleMode = smStretch и поизменяй прямо в дизайне. Попробуй и разные TImage32.Bitmap.StretchFilter


 
ImageMaker   (2007-06-16 14:43) [6]


> ЮЮ ©   (15.06.07 06:37) [5]


Graphics32 - оказалось то, что нужно.
Применяя TLinearResampler, получил эффект, который желал.

Спасибо!


 
integerr   (2007-08-09 19:40) [7]

напишите пример ,ато целый день сегодня провозился так и не получилося,
есть файлик 1.jpg нужно уменьшить до 150 на 100 и сохранить TlinearResampler


 
integerr   (2007-08-09 19:41) [8]

кто первий напишет рабочий вариант зразу напишите кошельок WMZ


 
integerr   (2007-08-09 19:53) [9]

всем спасибо нашол из janFX
 первоисточник  http://programania.com/stretch.zip ищо лутше



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

Форум: "Media";
Текущий архив: 2008.09.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.057 c
15-1217733481
PZ
2008-08-03 07:18
2008.09.28
День железнодорожника


2-1218827240
a2618
2008-08-15 23:07
2008.09.28
Компонент МЕМО


15-1217913443
palva
2008-08-05 09:17
2008.09.28
Ega23 наверно в курсе


2-1219122526
kate158
2008-08-19 09:08
2008.09.28
сдвиг данных в dbgrid e на 1 вверх


13-1121691834
RA
2005-07-18 17:03
2008.09.28
Установка .NET





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский