VPF::сжать картинку - Форум программистов

Grig

Дата 6.10.2005, 04:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

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

Здравствуйте!
Как бы сделать так, чтобы в Дельфи картинку (например jpg) шириной 1000 пикселов ужать до 100 пикселов и так, чтобы высота тоже пропорционально изменилась?
Спасибо!

--------------------

Grig

Дата 7.10.2005, 02:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

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

Ну что ж.
Я задавал вопрос, мне и отвечать:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBItmap;
  jpg: TJpegImage;
  scale: Double;
begin
  if opendialog1.execute then begin
    jpg:= TJpegImage.Create;
    try
      jpg.Loadfromfile( opendialog1.filename );
      if jpg.Height > jpg.Width then
{130 -  это желаемый размер}
        scale := 130 / jpg.Height
      else
        scale := 130 / jpg.Width;
        bmp:= Tbitmap.Create;
        try
          bmp.Width := Round( jpg.Width * scale );
          bmp.Height:= Round( jpg.Height * scale );
          bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
          {Выводим на форму, так, полюбоватся}
          Self.Canvas.Draw( 100, 10, bmp );
          {Конвертируем в jpg}
          jpg.Assign( bmp );
          jpg.SaveToFile(ChangeFileext( opendialog1.filename, '_test.JPG' ));
        finally
          bmp.free;
        end;
      finally
        jpg.free;
    end;
end;
end;

Всем спасибо за моральную поддержку!!

--------------------

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