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

cocoa: adding automatic largeInc determination based of the page size

Browse Source 
git-svn-id: trunk@62661 -
This commit is contained in:
dmitry 2020-02-23 03:36:30 +00:00
parent 9a9174aa69
commit cdede4ea6f
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -180,13 +180,38 @@ var
sz : Integer; sz : Integer;
dlt : double; dlt : double;
v : 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
begin begin
Result := false; Result := false;
case prt of case prt of
NSScrollerDecrementPage: adj := -sc.largeInc; NSScrollerDecrementPage: begin
NSScrollerIncrementPage: adj := sc.largeInc; adj := -sc.largeInc;
NSScrollerDecrementLine: adj := -sc.smallInc; if adj = 0 then
NSScrollerIncrementLine: adj := sc.smallInc; begin
adj := -sc.pageInt;
if (sc.PageInt>WinPageOfs) then
inc(adj, WinPageOfs);
end;
end;
NSScrollerIncrementPage: begin
adj := sc.largeInc;
if adj = 0 then
begin
adj := sc.pageInt;
if (sc.PageInt>WinPageOfs) then
dec(adj, WinPageOfs);
end;
end;
NSScrollerDecrementLine: begin
adj := -sc.smallInc;
if adj = 0 then adj := -1;
end;
NSScrollerIncrementLine: begin
adj := sc.smallInc;
if adj = 0 then adj := 1;
end;
else else
adj := 0; adj := 0;
end; end;