Наклеить одно изображение на другое

[Rusland]

Есть две картинки в формате png. Как на одну картинку наложить вторую, которая с прозрачностью (фактически там только рамка) и вывести в Image?

Изменено 9 октября, 2016 пользователем Rusland

[Равиль Зарипов (ZuBy)]

17 минут назад, Rusland сказал:

Есть две картинки в формате png. Как на одну картинку наложить вторую, которая с прозрачностью (фактически там только рамка) и вывести в Image?

приложи картинки

[Rusland]

Вот вторая 

А первая может быть любая

Изменено 9 октября, 2016 пользователем Rusland

[Rusland]

Хотелось бы получить что-то вроде (легко делается с помощью Photoshop/GIMP и т.п.):

а нужно делать программно

Изменено 9 октября, 2016 пользователем Rusland

[krapotkin]

ответ просто нарисовать по очереди не подошел?

[Rusland]

1 час назад, krapotkin сказал:

ответ просто нарисовать по очереди не подошел?

Чей ответ? Как это сделать? Пока только ZuBy предложил использовать 2 Image. Но это не очень мне подходит.

Из найденного в интернете пока только для VCL (тут и тут ), а мне надо на FMX

 

Изменено 9 октября, 2016 пользователем Rusland

[Rusland]

Безрезультатно убил полдня на поиски решения в интернете, пришлось разбираться самому:

var
  bmp: TBitmap;
  SrcRect, DstRect: TRectF;
begin
  bmp:=TBitmap.Create(200,260);
  bmp.Canvas.BeginScene();
  try
    SrcRect := TRectF.Create(0, 0, 200, 260);
    DstRect := TRectF.Create(0, 0, 200, 260);
    bmp.Canvas.DrawBitmap( Image1.Bitmap, SrcRect, DstRect, 1, false);
    bmp.Canvas.DrawBitmap( Image2.Bitmap, SrcRect, DstRect, 1, false);
  finally
    bmp.Canvas.EndScene();
  end;
  Image3.Bitmap.Assign(bmp);

"А ларчик просто открывался" 

 

PS. Осталось научится, как некоторые точки самому делать прозрачными

[Pax Beach]

5 часов назад, Rusland сказал:

PS. Осталось научится, как некоторые точки самому делать прозрачными

Как ты ищешь? )

Вот решение люди предлагают.

 

[Rusland]

Тестировал вышеуказанный код c DrawBitmap на Windows и все отлично работает. Проверил на Android и, о ужас, на картинке в прозрачных местах возникают цветовые артефакты! Как исправить?

 

[Rusland]

Вот проект Png2Png.zip - в Windows работает нормально.

В Android нажимаю кнопку - в первый раз бывает что два битмапа склеиваются нормально. Но чаще вижу артефакты:

А если свернуть и развернуть приложение, то вот:

 

Подскажите, что я делаю не правильно?

 

 

[Равиль Зарипов (ZuBy)]

var
  bmp: TBitmap;
  SrcRect, DstRect, SrcRect2, DstRect2: TRectF;
begin
  bmp := TBitmap.Create(256, 256);
  bmp.Canvas.BeginScene();
  try
    SrcRect := TRectF.Create(0, 0, 256, 256);
    DstRect := TRectF.Create(20, 20, 236, 236);
    SrcRect2 := TRectF.Create(0, 0, 256, 256);
    DstRect2 := TRectF.Create(0, 0, 256, 256);
    bmp.Clear(TAlphaColorRec.Null);
    bmp.Canvas.DrawBitmap(Image1.Bitmap, SrcRect2, DstRect2, 0.8, false);
    bmp.Canvas.DrawBitmap(Image2.Bitmap, SrcRect, DstRect, 0.8, false);
  finally
    bmp.Canvas.EndScene();
    Image3.Bitmap.SetSize(256, 256);
    Image3.Bitmap.CopyFromBitmap(bmp);
    bmp.Free;
  end;
end;

 

[Rusland]

Отлично! Артефакты пропали. Если свернуть/развернуть приложение, ничего не исчезает 

[sulion]

Если очень хочется работать попиксельно - то можно попиксельно свести два битмапа, вызывая getPixel одного и setPixel другого.

http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Graphics.TBitmapData

Изменено 18 июня, 2017 пользователем sulion

[RoschinSpb]

Про 

bmp.Clear(TAlphaColorRec.Null)

надо не забывать. В Windows новая картинка создается уже заполненной нулями, хотя гарантий нет, а вот на других платформах — память содержит мусор, хотя гарантий тоже нет, поэтому вполне может работать на одном дэвайсе нормально, а на другом выдавать мусор.