VertScrollBox под IOS - баг с прокруткой

[Bob32]

Добрый день!

РИО 10.3.1 Community.

есть форма, на ней Тулбар (ТОп) и ТабКонтрол (Client).

Чтобы все это скроллилось при вызове клавиатуры - и тулбар, и табконтрол лежат на VertScrollBox-е. Сам скроллбокс лежит на форме.

Все было прекрасно под андроидом. Откомпилировал прогу под IOS и стало работать так - на тех формах, где скроллбокс располагается сразу на форме и содержит все другие компоненты - при попытке пальцем делать вертикальный скроллинг (просто водить вверх вниз по форме) - все содержимое скроллбокса ходит вверх-вниз (зазжая за верхние и нижние края формы) - фактически сама форма так ходит. это происходит без активной клавиатуры. Если при этом на этой форме (или закладке) лежит ListView - то от этого скроллинга от пальца - ходит вверх вниз и сама форма, и ЛистВью тоже скроллится вверх-вниз. но это нормальным скроллингом списка назвать нельзя - ползет медленно и непропорционально. Вид сюрреалистический.

 

На некоторых формах (но не на основной) - это лечится отключением свойства Pan в InteractiveGestures. Мне этот Pan нафик был не нужен - просто обратил внимание, что он один включен там включен - выключил, и этот скроллинг странный пропадает.

На главной форме это не прокатило. На главной форме есть также МультиВью (вдруг это важно).

Не налетал ли кто на такое? Что посоветуете?

Спасибо! 

[Bob32]

Возможно, дело в том, что под иосом вьюпорт у скроллбокса может меняться (на небольшое значение, большой скроллинг сделать он не даёт), когда пальцем касаешься экрана и водишь им вверх-вниз. Как запретить скроллбоксу обрабатывать это событие? 

[Slym]

procedure TForm1.CalcContentBounds(Sender: TObject; var ContentBounds: TRectF);
begin
  TCustomScrollBox(Sender).AniCalculations.BoundsAnimation:=(TCustomScrollBox(Sender).Size.Height<ContentBounds.Height);
end;

 

[Bob32]

2 часа назад, Slym сказал:

procedure TForm1.CalcContentBounds(Sender: TObject; var ContentBounds: TRectF);
begin
  TCustomScrollBox(Sender).AniCalculations.BoundsAnimation:=(TCustomScrollBox(Sender).Size.Height<ContentBounds.Height);
end;

 

У меня на этой форме табконтрол лежит. Вылечилось снятием галочки Pan в интерактивджестуоес на всех табайтемах. А вы уверены в вашем лекарстве? Может поясните вкратце диагноз?