Трансформация TImage по опорным точкам.

[Serg Sib]

RAD 10.2.3 Delphi , Win 10x64 Pro 1803

Подскажите, с помощью чего можно осуществить трансформацию изображения по опорным точкам (по углам)?
Возможно, что не напрямую сам TImage, а при помощи работы с Canvas на его Bitmap.

Пока удалось добиться подобной трансформации, заполнив нужным изображением полигон и, меняя координаты его вершин, делать нужные корректировки.

var MyBrushBitmap: TBrushBitmap;

  Image1.Bitmap.Canvas.Fill.Kind := TBrushKind.Bitmap;
  Image1.Bitmap.Canvas.Fill.Bitmap := MyBrushBitmap;
  Image1.Bitmap.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch;

  Image1.Bitmap.Canvas.FillPolygon(MyPolygon, 50);

Однако, изображение частично обрезается при этом.

В интернете поиском находил пример подобной трансформации на VCL, (перетаскиванием вершин мышью), но не смог приспособить этот пример для платформы FireMonkey.

Изменено 24 мая, 2019 пользователем Serg Sib
Не была указана ОС

[Brovin Yaroslav]

Посмотрите среди примеров FMX есть использование эффектов. Там был пример с искажением картинки.

[Serg Sib]

Да, этот эффект - TPerspectiveTransformEffect я и использовал, когда сделал первый вариант приложения.
Но у этого способа есть некоторые недостатки:
1) Применяется этот эффект немного своеобразно - нужно приловчиться, прежде чем научиться подстраивать Image под нужные границы (приложение используется в качестве мэппинга на многопроекторных системах).
2) Есть ограничение на применение количества фильтров к одному визуальному элементу оформления. А хотелось бы, чтобы еще были какие-то переходы между изображениями, когда они меняются на экране. То есть это можно сделать, наверное, но уже с усложнением кода и добавлением каких-то вспомогательных объектов.

[Brovin Yaroslav]

48 минут назад, Serg Sib сказал:

Есть ограничение на применение количества фильтров к одному визуальному элементу оформления.

Что за ограничение? Можно же фильтр применять программно на TBitmap без использования компонента. TPerspectiveFilter.