Skip to content

Commit

Permalink
minor update
Browse files Browse the repository at this point in the history
  • Loading branch information
Zeus64 committed Sep 29, 2023
1 parent 7ac8777 commit 3e60237
Showing 1 changed file with 12 additions and 12 deletions.
24 changes: 12 additions & 12 deletions Source/Alcinoe.FMX.ScrollEngine.pas
Original file line number Diff line number Diff line change
Expand Up @@ -2793,7 +2793,7 @@ procedure TALScrollEngine.SetAutoShowing(const Value: Boolean);
end;
end;

{***********************************************************************************************************************************}
{************************************************************************************************************************************}
procedure TALScrollEngine.SetViewportPosition(const Value: TALPointD; const EnforceLimits: Boolean; const SynchOverScroller: Boolean);
begin

Expand Down Expand Up @@ -2830,12 +2830,12 @@ procedure TALScrollEngine.SetViewportPosition(const Value: TALPointD; const Enfo
var LMinY: integer := trunc(FMinScrollLimit.y*ScreenScale);
var LMaxY: integer := trunc(FMaxScrollLimit.y*ScreenScale);
if FOverScroller.springBack(
LStartX, // startX: integer;
LStartY, // startY: integer;
LMinX, // minX: integer;
LMaxX, // maxX: integer;
LMinY, // minY: integer;
LMaxY) then startTimer;
LStartX, // startX: integer;
LStartY, // startY: integer;
LMinX, // minX: integer;
LMaxX, // maxX: integer;
LMinY, // minY: integer;
LMaxY) then startTimer;
end;
if FViewportPosition <> Value then begin
FViewportPosition := Value;
Expand Down Expand Up @@ -2864,7 +2864,7 @@ procedure TALScrollEngine.SetViewportPosition(const Value: TALPointD; const Enfo

end;

{*************************************************************************************************}
{**************************************************************************************************}
procedure TALScrollEngine.SetViewportPosition(const Value: TALPointD; const EnforceLimits: Boolean);
begin
SetViewportPosition(Value, EnforceLimits, true{SynchOverScroller});
Expand Down Expand Up @@ -2897,7 +2897,7 @@ function TALScrollEngine.Calculate: boolean;
ALLog(
'TALScrollEngine.Calculate',
'notifyVerticalEdgeReached',
TalLogType.verbose);
TalLogType.verbose);
{$ENDIF}
end
else if (LCurrVelocityY < 0) and
Expand All @@ -2910,7 +2910,7 @@ function TALScrollEngine.Calculate: boolean;
ALLog(
'TALScrollEngine.Calculate',
'notifyVerticalEdgeReached',
TalLogType.verbose);
TalLogType.verbose);
{$ENDIF}
end;
end;
Expand All @@ -2927,7 +2927,7 @@ function TALScrollEngine.Calculate: boolean;
ALLog(
'TALScrollEngine.Calculate',
'notifyHorizontalEdgeReached',
TalLogType.verbose);
TalLogType.verbose);
{$ENDIF}
end
else if (LCurrVelocityX < 0) and
Expand All @@ -2940,7 +2940,7 @@ function TALScrollEngine.Calculate: boolean;
ALLog(
'TALScrollEngine.Calculate',
'notifyHorizontalEdgeReached',
TalLogType.verbose);
TalLogType.verbose);
{$ENDIF}
end;
end;
Expand Down

0 comments on commit 3e60237

Please sign in to comment.