@@ -2793,7 +2793,7 @@ procedure TALScrollEngine.SetAutoShowing(const Value: Boolean);
27932793 end ;
27942794end ;
27952795
2796- { ***********************************************************************************************************************************}
2796+ { ************************************************************************************************************************************ }
27972797procedure TALScrollEngine.SetViewportPosition (const Value : TALPointD; const EnforceLimits: Boolean; const SynchOverScroller: Boolean);
27982798begin
27992799
@@ -2830,12 +2830,12 @@ procedure TALScrollEngine.SetViewportPosition(const Value: TALPointD; const Enfo
28302830 var LMinY: integer := trunc(FMinScrollLimit.y*ScreenScale);
28312831 var LMaxY: integer := trunc(FMaxScrollLimit.y*ScreenScale);
28322832 if FOverScroller.springBack(
2833- LStartX, // startX: integer;
2834- LStartY, // startY: integer;
2835- LMinX, // minX: integer;
2836- LMaxX, // maxX: integer;
2837- LMinY, // minY: integer;
2838- LMaxY) then startTimer;
2833+ LStartX, // startX: integer;
2834+ LStartY, // startY: integer;
2835+ LMinX, // minX: integer;
2836+ LMaxX, // maxX: integer;
2837+ LMinY, // minY: integer;
2838+ LMaxY) then startTimer;
28392839 end ;
28402840 if FViewportPosition <> Value then begin
28412841 FViewportPosition := Value ;
@@ -2864,7 +2864,7 @@ procedure TALScrollEngine.SetViewportPosition(const Value: TALPointD; const Enfo
28642864
28652865end ;
28662866
2867- { *************************************************************************************************}
2867+ { ************************************************************************************************** }
28682868procedure TALScrollEngine.SetViewportPosition (const Value : TALPointD; const EnforceLimits: Boolean);
28692869begin
28702870 SetViewportPosition(Value , EnforceLimits, true{ SynchOverScroller} );
@@ -2897,7 +2897,7 @@ function TALScrollEngine.Calculate: boolean;
28972897 ALLog(
28982898 ' TALScrollEngine.Calculate' ,
28992899 ' notifyVerticalEdgeReached' ,
2900- TalLogType.verbose);
2900+ TalLogType.verbose);
29012901 { $ENDIF}
29022902 end
29032903 else if (LCurrVelocityY < 0 ) and
@@ -2910,7 +2910,7 @@ function TALScrollEngine.Calculate: boolean;
29102910 ALLog(
29112911 ' TALScrollEngine.Calculate' ,
29122912 ' notifyVerticalEdgeReached' ,
2913- TalLogType.verbose);
2913+ TalLogType.verbose);
29142914 { $ENDIF}
29152915 end ;
29162916 end ;
@@ -2927,7 +2927,7 @@ function TALScrollEngine.Calculate: boolean;
29272927 ALLog(
29282928 ' TALScrollEngine.Calculate' ,
29292929 ' notifyHorizontalEdgeReached' ,
2930- TalLogType.verbose);
2930+ TalLogType.verbose);
29312931 { $ENDIF}
29322932 end
29332933 else if (LCurrVelocityX < 0 ) and
@@ -2940,7 +2940,7 @@ function TALScrollEngine.Calculate: boolean;
29402940 ALLog(
29412941 ' TALScrollEngine.Calculate' ,
29422942 ' notifyHorizontalEdgeReached' ,
2943- TalLogType.verbose);
2943+ TalLogType.verbose);
29442944 { $ENDIF}
29452945 end ;
29462946 end ;
0 commit comments