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

cocoa: patch by David Jenkins - forcefully invalidate the content document for manual scroll. Should help with redrawing customcontrols for 10.14. #34478

Browse Source 
git-svn-id: trunk@59397 -
This commit is contained in:
dmitry 2018-10-31 02:51:24 +00:00
parent ae5a1b5992
commit b135ccf3ac
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,6 +69,9 @@ type
function lclContentView: NSView; override;
function lclClientFrame: TRect; override;
function lclIsMouseInAuxArea(event: NSEvent): Boolean; override;
procedure lclUpdate; override;
procedure lclInvalidateRect(const r: TRect); override;
procedure lclInvalidate; override;
procedure setDocumentView(AView: NSView); message 'setDocumentView:';
function documentView: NSView; message 'documentView';
@ -305,6 +308,21 @@ begin
Result := isMouseEventInScrollBar(Self, event);
end;
procedure TCocoaManualScrollView.lclUpdate;
begin
documentView.lclUpdate;
end;
procedure TCocoaManualScrollView.lclInvalidateRect(const r: TRect);
begin
documentView.lclInvalidateRect(r);
end;
procedure TCocoaManualScrollView.lclInvalidate;
begin
documentView.lclInvalidate;
end;
procedure TCocoaManualScrollView.setDocumentView(AView: NSView);
var
f : NSrect;