Ana resim üzerine faklı iconlar ekleme

[Nese]

(19-06-2020, Saat: 21:40)mrmarman Adlı Kullanıcıdan Alıntı: Cevabınız, kendi sorunuzun içinde saklı.

Create etmediğiniz Bitmap için DrawBitmap içinde kullanmaya çalışmışsınız.

Hata mesajı gelmiyor konusunu anlamadım. MyBitmap local bir variable ve bu durumda "Access Violation" alıyor olmalıydınız. Garip...

Aşağıdaki şekilde deneyin... 

procedure TForm1.Button1Click(Sender: TObject);
var
 MyBitmap: TBitmap;
 MyRect: TRectF;
begin
 MyBitmap := TBitmap.Create;
 try
   MyBitmap.LoadFromFile('D:\Nese\Icon\90620233817.png');
   MyRect.Create(0, 0, MyBitmap.Width, MyBitmap.Height);
   Image1.Bitmap.Canvas.BeginScene;
     Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 1);
   Image1.Bitmap.Canvas.EndScene;
 finally
   MyBitmap.Free;
 end;
end;

İlk başta hata kodunu göstermedi
Verdiğini kodları ekleyince  E2010 Incompatible types: 'FMX.Graphics.TBitmap' and 'Vcl.Graphics.TBitmap' hatasını aldım.
Usesde FMX.Graphics ekli