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

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

Jpeg [D6, WinXP]


VikOss ©   (2005-02-22 19:47:00) 

Подскажите добрые люди, как реально отмасштабировать джипег-именно в любой размер , например сделать пиктограмму. Да желательно чтобы не сильно тормозило ?


wicked   (2005-02-25 21:17:00) [1]

эта... направляю... время исполнения изменения размера в произвольное число раз - штука, очень зависящая от этого самого размера... Scale как раз позволяет ускорить сей процесс в n раз...
например:

// smallw : smallh - размеры, в какие нужно привести
// bigw : bigh - исходные размеры
// jp - TJPEGImage
double xratio = (double)smallw / (double)bigw;
double yratio = (double)smallh / (double)bigh;
double ratio = xratio < yratio? xratio: yratio;

if(ratio <= 0.125) jp->Scale = jsEighth;
else if(ratio <= 0.25) jp->Scale = jsQuarter;
else if(ratio <= 0.5) jp->Scale = jsHalf;
else jp->Scale = jsFullSize;

// здесь jp будет иметь размеры не свои собственные,
// а уменьшенные, если выполнилось хоть одно из предыдущих условий
// далее преобразовываем


VikOss   (2005-02-25 15:11:00) [2]

> wicked
а ты сам читал ? Там конкретно изменение в 2 4 8 раз, а я просил в произвольный размер.


wicked   (2005-02-23 14:10:00) [3]

почитать справку о свойстве Scale...


VikOss   (2005-02-22 19:52:00) [4]

Да, забыл, про увеличение не надо, ето бессмысленно, я про уменьшение !


Наверх

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