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

made in programmersforum 5

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

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

22nd
Авг

Склеить два TImage разных размеров

Posted by micher under Delphi

Есть 2 картинки: img1 и img2 (не совпадающих размеров), как склеить их в одну, например по горизонтали?

DLev2



procedure TForm1.Button1Click(Sender: TObject);

var

    r1,r2: TRect;

    BSum: TBitmap;

begin

if Clipboard.HasFormat(CF_BITMAP) then

  begin

  RadioGroup1.Enabled:=False;

  BSum:= TBitmap.Create;

  Img2.Picture.Bitmap.Handle:=Clipboard.GetAsHandle(CF_bitmap);

  BSum.Width:= img1.Picture.Bitmap.Width+img2.Picture.Bitmap.Width;

  BSum.Height:= Max(img1.Picture.Bitmap.Height,img2.Picture.Bitmap.Height);

  r1 := Rect(0,0,img1.Picture.Bitmap.Width-1,img1.Picture.Bitmap.Height-1);

  BSum.Canvas.CopyRect(r1,img1.Picture.Bitmap.Canvas,r1);
  r1 := Rect(0,0,img2.Picture.Bitmap.Width-1,img2.Picture.Bitmap.Height-1);

  r2 := Rect(img1.Picture.Bitmap.Width,0,img1.Picture.Bitmap.Width+img2.Picture.Bitmap.Width-1,img2.Picture.Bitmap.Height-1);

  BSum.Canvas.CopyRect(r2,img2.Picture.Bitmap.Canvas,r1);

  img1.Picture.Bitmap.Assign(BSum);

  BSum.Free;

  end

else

  begin

  ShowMessage('Buff is not a Imade');

  Exit;

  end;

end;