Правка скрола в конец

HemulGM · Jan 12, 2022 · 4eb1902 · 4eb1902
1 parent 7ba0f45
commit 4eb1902
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/HGM.FMX.SmoothScroll.pas b/HGM.FMX.SmoothScroll.pas
@@ -134,7 +134,7 @@ procedure TSmoothScroll.ScrollDown;
 
 procedure TSmoothScroll.ToEnd;
 begin
-  FScroll.ViewportPosition := TPointF.Create(FScroll.ViewportPosition.X, FScroll.ContentBounds.Bottom - FScroll.ClientHeight);
+  FScroll.ViewportPosition := TPointF.Create(FScroll.ViewportPosition.X, FScroll.ContentBounds.Bottom + 100);
 end;
 
 procedure TSmoothScroll.ScrollEvent(WheelDelta: Single);