paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: removing additional offset on large scroll

Browse Source 
git-svn-id: trunk@62662 -
This commit is contained in:
dmitry 2020-02-23 03:53:49 +00:00
parent cdede4ea6f
commit 6f0d7d6abc
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/cocoa/cocoascrollers.pas
View File

@ -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