Как вырезать часть изображения в 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);