FMX用AniCalculations控制基类为TScrollBox的控件是否(滑动)滚动的公共单元

适用组件：TScrollBox、TVertScrollBox、THorzScrollBox、TPresentedScrollBox、TFramedScrollBox、TFramedVertScrollBox、TMemo、TListBox、TListView

function IfScrolling(
  ACanScrollControl:TCustomScrollBox;
  Scrolling:Boolean):Boolean;
begin
  if Scrolling=false then
  begin
    ACanScrollControl.AniCalculations.BeginUpdate;
    ACanScrollControl.AniCalculations.Animation:=false;
    ACanScrollControl.AniCalculations.BoundsAnimation:=false;
    ACanScrollControl.AniCalculations.TouchTracking:=[];
    ACanScrollControl.AniCalculations.EndUpdate;
    Result:=false;
  end else
  begin
    ACanScrollControl.AniCalculations.BeginUpdate;
    ACanScrollControl.AniCalculations.Animation:=true;
    ACanScrollControl.AniCalculations.BoundsAnimation:=true;
    ACanScrollControl.AniCalculations.TouchTracking:=[ttVertical, ttHorizontal];
    ACanScrollControl.AniCalculations.EndUpdate;
    Result:=true;
  end;

end;