Ana resim üzerine faklı iconlar ekleme

[Nese]

(20-06-2020, Saat: 09:48)mrmarman Adlı Kullanıcıdan Alıntı: Sorunuzu FMX (FireMonkey) altında açtığınız için yazıyorum. 

Projeniz Multidevice ise FMX kodlu veya platform bağımsız unitleri kullanmalısınız.

Projeniz VCL ise o zanan VCL kodlu veya platform bağımsız olan unitleri...

Bitmap'i FMX formda kullanmak için VCL kodlu olan uniti kaldırın.

Sorunu çözdüm fakat pozisyon konusunda sıkıntı yaşıyorum. Seçtiğim resmi TImagenin istediğim yerinde çıkmasını nasıl sağlarım?

procedure TMainForm.Button1Click(Sender: TObject);
var
  MyBitmap: TBitmap;
  MyRect: TRectF;
  X, Y: Integer;
begin
  X := Integer(Trunc(Image1.Width)) - 150;
  Y := Integer(Trunc(Image1.Height)) - 450;
  MyBitmap := TBitmap.CreateFromFile('D:\Nese\Icon\90620233817.png');
  MyRect := TRectF.Create(X, Y, MyBitmap.Height, MyBitmap.Width);
  Image1.Bitmap.Canvas.BeginScene;
  try
    Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 1);
  finally
    Image1.Bitmap.Canvas.EndScene;
    MyBitmap.Free;
  end;
end;