Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Фев

Подогнать картинку под image, залить свободное пространство белым цветом

Posted by Chas under Delphi

у меня есть 100 — 200 jpg файлов(фотографий), мне требуется в каждой фотографии дорисовать(именно дорисовать с увеличением размера по высоте ровно на толщину полоски, а не приклеить белую полоску поверх фотографии) снизу фотографии белую полоску 100 — 200 пикселей толщиной для дальнейшей подписи фотографий. Естественно через фотошоп ручками это все лопатить не серьезно.

MadReason

rct:=Rect(0,0,jp.Width,jp.Height);//это просто задание прямоугольника с 4мя координатами

bm.Canvas.FillRect(bm.Canvas.ClipRect); //заливаем всю бм белым цветом

bm.Canvas.StretchDraw(rct,jp);//грубо говоря копируем изображение из jp в bm

jp.Assign(bm);//а тут преобразовываем bm в jp

FillRect и StretchDraw гляньте в справочнике, яснее будет

procedure whiteline(fLoad, fSave: string; dy: byte);

var

  bm: TBitmap;

  rct: trect;

  jp: TJPEGImage;

begin

  bm := TBitmap.Create;

  bm.PixelFormat := pf24bit;

  jp := TJPEGImage.Create;

  jp.PixelFormat := jf24Bit;

  try

    jp.LoadFromFile(fLoad);

    jp.CompressionQuality := 85;//коэф сжатия, не знаю сколько нужно. он от 0 до 100

  except

    bm.Free;

    jp.Free;

    Exit;

  end;

  bm.Width := jp.Width;

  bm.Height := jp.Height + dy;

  rct := Rect(0, 0, jp.Width, jp.Height);

  bm.Canvas.Brush.Color := clWhite;

  bm.Canvas.FillRect(bm.Canvas.ClipRect);

  bm.Canvas.StretchDraw(rct, jp);

  jp.Assign(bm);

  jp.SaveToFile(fSave);

  bm.Free;

  jp.Free;

end;