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

made in programmersforum 1

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

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

23rd
Апр

Сохранить форму в jpg

Posted by micher under Delphi

Как сохранить форму в jpg?

BDA



var

  JpegIm: TJpegImage;

  bm: TBitMap;

  d1: string;

begin

  bm := TBitMap.Create;

  bm.Width := Form1.ClientWidth;

  bm.Height := Form1.ClientHeight;

  BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(Form1.Handle), 0,

    0, SRCCOPY);

  JpegIm := TJpegImage.Create;

  JpegIm.Assign(bm);

  JpegIm.CompressionQuality := 20;

  JpegIm.Compress;

  d1 := DateToStr(now) + TimeToStr(now);

  d1 := StringReplace(d1, '.', '', [rfReplaceAll]);

  d1 := StringReplace(d1, ':', '', [rfReplaceAll]);

  JpegIm.SaveToFile(extractfilepath(paramstr(0)) + 'data\' + d1 + '.jpg');

  bm.Destroy;

  JpegIm.Destroy;

end;