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

cocoa: making ManualScrollHost to pass the methods to the hosted ManualScrollView

Browse Source 
git-svn-id: trunk@61741 -
This commit is contained in:
dmitry 2019-08-21 15:02:15 +00:00
parent 563a44c1d6
commit aedf865eae
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -141,7 +141,11 @@ type
end; end;
{ TCocoaManualScrollHost }
TCocoaManualScrollHost = objcclass(TCocoaScrollView) TCocoaManualScrollHost = objcclass(TCocoaScrollView)
function lclContentView: NSView; override;
function lclClientFrame: TRect; override;
end; end;
function isMouseEventInScrollBar(host: TCocoaManualScrollView; event: NSEvent): Boolean; function isMouseEventInScrollBar(host: TCocoaManualScrollView; event: NSEvent): Boolean;
@ -284,6 +288,25 @@ begin
end; end;
end; end;
{ TCocoaManualScrollHost }
function TCocoaManualScrollHost.lclContentView: NSView;
begin
if Assigned(documentView) then
Result := documentView.lclContentView
else
Result := inherited lclContentView;
end;
function TCocoaManualScrollHost.lclClientFrame: TRect;
begin
if Assigned(documentView) then
begin
Result:=documentView.lclClientFrame;
end
else Result:=inherited lclClientFrame;
end;
{ TCocoaManualScrollView } { TCocoaManualScrollView }
function TCocoaManualScrollView.lclGetCallback: ICommonCallback; function TCocoaManualScrollView.lclGetCallback: ICommonCallback;