Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Изменить размер изображения 
:(
    Опции темы
Ak47black
Дата 23.5.2007, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0



Здравствуйте у меня такая ситуация.
Мне нужно изменить размер изображения при этом что-бы оно смотрелось как-можно лучше.
Например если я делаю
Код

procedure ScaleBitmap(bitmap: TBitmap; width, height: Integer);
var
  TmpBmp: TBitmap;
begin
  TmpBmp := TBitmap.Create;
  try
    tmpbmp.Width := width;
    tmpbmp.Height := height;
    TmpBmp.Canvas.StretchDraw(Rect(0,0,width,height), Bitmap);
    Bitmap.Assign(TmpBmp);
  finally
    TmpBmp.Free;
  end;
end;

То изображение выходит очень корявое.
Как сделать функцию которая изменяет размер изображия например как изменяет прога 'Microsft Office Picture Manager' или 'Photoshop' ?
Ну что-бы небыло таких грубых переходов.  smile 
PM MAIL   Вверх
Snowy
Дата 23.5.2007, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484



Загляни в DRKB в раздел "Графические фильтры и эффекты"  smile 
PM MAIL   Вверх
Alexeis
Дата 23.5.2007, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459



Ak47black, ресайзь бикубиком  smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Ak47black
Дата 23.5.2007, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0



Ну пока остановился на SmoothResize, так как не нашол функции бикубиком которая принимает TBitmap.
SmoothResize всетаки ненаилудший результат.

Это сообщение отредактировал(а) Ak47black - 23.5.2007, 16:23
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0756 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.