19-06-2020, Saat: 21:40
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...
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;
Saygılarımla
Muharrem ARMAN

Muharrem ARMAN


