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

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

 
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 вся ветка

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



Память: 0.47 MB
Время: 0.012 c
3-1206455333
*Pavel
2008-03-25 17:28
2008.09.28
Перехват SQL команд


2-1219108231
Abcdef123
2008-08-19 05:10
2008.09.28
настройка среды Delphi 2007


15-1217744147
ketmar
2008-08-03 10:15
2008.09.28
как не надо писать код


2-1219162979
yaric
2008-08-19 20:22
2008.09.28
Отрисовка TRichEdit


2-1219006228
fog
2008-08-18 00:50
2008.09.28
трудности перевода С




   Наверх