Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.09.28;
Скачать: 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 вся ветка

Текущий архив: 2008.09.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
2-1218330125
aaaaa
2008-08-10 05:02
2008.09.28
Drag&Drop


2-1219139355
_koha
2008-08-19 13:49
2008.09.28
Почему это не работает


2-1218698459
kopernik21187
2008-08-14 11:20
2008.09.28
параметр SQL-запроса в ADOQuery


15-1218105060
Пробежал...
2008-08-07 14:31
2008.09.28
Нет отличия INADDR_NONE от INADDR_BROADCAST ;(


3-1206952402
harisma
2008-03-31 12:33
2008.09.28
Использование метода Locate у TClientDataSet