Переместите изображение в TImageViewer

Question

Я создаю приложение FMX для iOS, оно имеет TImageViewer на TPanel с TImageViewer, выровненным по содержанию.Я загружаю растровое изображение из файла в TImageViewer и могу затем перемещаться и увеличивать / уменьшать изображение.Работает отлично.

Теперь мне нужно событие нажатия кнопки для изменения положения левого края изображения на левом краю TPanel, чтобы оно выглядело как верхнее изображение ниже.

Вот пример того, как это выглядит при первой загрузке:

Вот это после того, как я его панорамировал:

Я искал и экспериментировал весь день, но просто не могу его получить.Я попытался перезагрузить файл растрового изображения, но ничего не сделал.Есть предложения?

спасибо, русс

Answer 1

Нашли способ, основанный на этом вопросе Дельфи .Обратите внимание, что ImageMap - это имя моего TImageViewer в Form1.

TPointF myOffset;
myOffset = Form1->ImageMap->ViewportPosition; // this is (0,0) before the image is panned around, non-zero otherwise
Form1->ImageMap->ScrollBy(myOffset.X, myOffset.Y) ;