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

cocoa: adding support for small and large change parameters of a scrollbar

Browse Source 
git-svn-id: trunk@62541 -
This commit is contained in:
dmitry 2020-01-13 02:42:51 +00:00
parent 35bf787651
commit e7390143f5
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,6 +105,8 @@ type
maxInt : Integer;
pageInt : Integer;
suppressLCLMouse: Boolean;
largeInc: Integer;
smallInc: Integer;
procedure actionScrolling(sender: NSObject); message 'actionScrolling:';
function IsHorizontal: Boolean; message 'IsHorizontal';
@ -127,7 +129,6 @@ type
procedure mouseDragged(event: NSEvent); override;
procedure mouseMoved(event: NSEvent); override;
procedure scrollWheel(event: NSEvent); override;
end;
{ TCocoaManualScrollHost }
@ -175,19 +176,26 @@ end;
function AdjustScrollerPage(sc: TCocoaScrollBar; prt: NSScrollerPart): Boolean;
var
adj : Integer;
adj : integer;
sz : Integer;
dlt : double;
v : double;
begin
Result := isIncDecPagePart(prt);
if not Result then Exit;
Result := false;
case prt of
NSScrollerDecrementPage: adj := -sc.largeInc;
NSScrollerIncrementPage: adj := sc.largeInc;
NSScrollerDecrementLine: adj := -sc.smallInc;
NSScrollerIncrementLine: adj := sc.smallInc;
else
adj := 0;
end;
if adj = 0 then Exit;
sz := sc.maxInt - sc.minInt - sc.pageInt;
if sz = 0 then Exit; // do nothing!
if sc.pageInt = 0 then dlt := 1 / sz
else dlt := sc.pageInt / sz;
if prt = NSScrollerDecrementPage then dlt := -dlt;
dlt := adj / sz;
v := sc.doubleValue;
v := v + dlt;

4
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -1939,6 +1939,10 @@ begin
scr.minInt:=TCustomScrollBar(AWinControl).Min;
scr.maxInt:=TCustomScrollBar(AWinControl).Max;
scr.pageInt:=TCustomScrollBar(AWinControl).PageSize;
scr.largeInc:=abs(TCustomScrollBar(AWinControl).LargeChange);
scr.smallInc:=abs(TCustomScrollBar(AWinControl).SmallChange);
if scr.largeInc=0 then scr.largeInc:=1;
if scr.smallInc=0 then scr.smallInc:=1;
Result:=TLCLIntfHandle(scr);