Показать сообщение отдельно
  #1  
Старый 23.11.2013, 16:54
ProDaNTe ProDaNTe вне форума
Новичок
 
Регистрация: 25.12.2011
Сообщения: 75
Репутация: 10
По умолчанию FireMonkey - вырезать часть изображения

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