paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39: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; sz : Integer;
dlt : double; dlt : double;
v : double; v : double;
const //const
WinPageOfs : integer = 64; // this is an "ofset" of the pageInc used in Windows //WinPageOfs : integer = 64; // this is an "ofset" of the pageInc used in Windows
// so the click on "large" makes two pages overlap // so the click on "large" makes two pages overlap
begin begin
Result := false; Result := false;
case prt of case prt of
@ -191,8 +191,8 @@ begin
if adj = 0 then if adj = 0 then
begin begin
adj := -sc.pageInt; adj := -sc.pageInt;
if (sc.PageInt>WinPageOfs) then //if (sc.PageInt>WinPageOfs) then
inc(adj, WinPageOfs); // inc(adj, WinPageOfs);
end; end;
end; end;
NSScrollerIncrementPage: begin NSScrollerIncrementPage: begin
@ -200,8 +200,8 @@ begin
if adj = 0 then if adj = 0 then
begin begin
adj := sc.pageInt; adj := sc.pageInt;
if (sc.PageInt>WinPageOfs) then //if (sc.PageInt>WinPageOfs) then
dec(adj, WinPageOfs); // dec(adj, WinPageOfs);
end; end;
end; end;
NSScrollerDecrementLine: begin NSScrollerDecrementLine: begin