[ProDaNTe]

Как вырезать часть изображения в FireMonkey
CopyRect функции нету, а так не работает

Код:

var
 MyBitmapCopy,MyBitmap: TBitmap;
 Rect:TRectF;
begin
 MyBitmapCopy := TBitmap.Create;
 MyBitmap := TBitmap.Create;
 MyBitmapCopy.Assign(Image1.Bitmap);
 Rect:=RectF(Round(Selection1.Position.x),Round(Selection1.Position.y),Selection1.Width,Selection1.Height);
 MyBitmap.Canvas.DrawBitmap(MyBitmapCopy,Rect,Rect,1,true);
 image2.Bitmap.Assign(MyBitmap);