From 6f0d7d6abc0152c5a3a4dde7c57a183d3410a8f0 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sun, 23 Feb 2020 03:53:49 +0000
Subject: [PATCH] cocoa: removing additional offset on large scroll

git-svn-id: trunk@62662 -
---
 lcl/interfaces/cocoa/cocoascrollers.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lcl/interfaces/cocoa/cocoascrollers.pas b/lcl/interfaces/cocoa/cocoascrollers.pas
index 7644edf66c..e327e5cd54 100644
--- a/lcl/interfaces/cocoa/cocoascrollers.pas
+++ b/lcl/interfaces/cocoa/cocoascrollers.pas
@@ -180,9 +180,9 @@ var
   sz  : Integer;
   dlt : double;
   v   : double;
-const
-  WinPageOfs : integer = 64; // this is an "ofset" of the pageInc used in Windows
-                             // so the click on "large" makes two pages overlap
+//const
+  //WinPageOfs : integer = 64; // this is an "ofset" of the pageInc used in Windows
+                               // so the click on "large" makes two pages overlap
 begin
   Result := false;
   case prt of
@@ -191,8 +191,8 @@ begin
       if adj = 0 then
       begin
         adj := -sc.pageInt;
-        if (sc.PageInt>WinPageOfs) then
-          inc(adj, WinPageOfs);
+        //if (sc.PageInt>WinPageOfs) then
+        //  inc(adj, WinPageOfs);
       end;
     end;
     NSScrollerIncrementPage: begin
@@ -200,8 +200,8 @@ begin
       if adj = 0 then
       begin
         adj := sc.pageInt;
-        if (sc.PageInt>WinPageOfs) then
-          dec(adj, WinPageOfs);
+        //if (sc.PageInt>WinPageOfs) then
+        //  dec(adj, WinPageOfs);
       end;
     end;
     NSScrollerDecrementLine: begin