21-06-2020, Saat: 23:22
(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;

