Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как изменить размер PNG картинки?  (Прочитано 9181 раз)
0 Пользователей и 1 Гость смотрят эту тему.
highklass
Гость
« : 25-05-2008 14:49 » 

Как изменить размер PNG картинки?
Записан
DemonicAlligator
Гость
« Ответ #1 : 26-05-2008 12:42 » 

Тебе масштабировать, или просто обрезать надо?
Записан
highklass
Гость
« Ответ #2 : 27-05-2008 12:52 » new

Обрезать не надо, просто уменьшить размер и сохранить под другим названием
Записан
RXL
Технический
Администратор

ru
Online Online
Пол: Мужской

WWW
« Ответ #3 : 29-05-2008 17:32 » 

highklass, см. классы TPicture, TGraphic, TCanvas.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
highklass
Гость
« Ответ #4 : 30-05-2008 20:13 » 

Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
png,dib:TPngimage;
newwidth,newheight,a,b:integer;
begin
if OpenDialog1.Execute
then
NewWidth:=48;
NewHeight:=48;
png:= TPNGImage.Create;
png.Loadfromfile(OpenDialog1.FileName);
dib:=TPNGImage.Create;
GetPNGSize(png,a,b);
dib.Width:=newwidth;
dib.Height:=newheight;
dib.Canvas.StretchDraw(Rect(0,0,newwidth,newheight),png);
png.Free;
png:=dib;
dib:=nil;
png.SaveToFile(ChangeFileExt('E:\','00000000000.png'));
end;
end.

Результат:

До


После


Как качественно уменьшить изображение? Чтобы было без заднего черного фона?


Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines