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

cocoa: fix compilation for the newly released fpc3.2.0

Browse Source 
git-svn-id: trunk@63409 -
This commit is contained in:
dmitry 2020-06-20 23:05:28 +00:00
parent e660c90155
commit 1912324bc7
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,8 +31,6 @@ uses
cocoa_extra, CocoaPrivate; cocoa_extra, CocoaPrivate;
type type
TSetDocumentViewType = {$if FPC_FULLVERSION = 30200}id{$else}NSView{$endif};
{ TCocoaScrollView } { TCocoaScrollView }
TCocoaScrollView = objcclass(NSScrollView) TCocoaScrollView = objcclass(NSScrollView)
@ -51,7 +49,7 @@ type
procedure resetCursorRects; override; procedure resetCursorRects; override;
function lclClientFrame: TRect; override; function lclClientFrame: TRect; override;
function lclContentView: NSView; override; function lclContentView: NSView; override;
procedure setDocumentView(aView: TSetDocumentViewType); override; procedure setDocumentView(aView: NSView); override;
procedure scrollContentViewBoundsChanged(notify: NSNotification); message 'scrollContentViewBoundsChanged:'; procedure scrollContentViewBoundsChanged(notify: NSNotification); message 'scrollContentViewBoundsChanged:';
procedure resetScrollRect; message 'resetScrollRect'; procedure resetScrollRect; message 'resetScrollRect';
@ -647,7 +645,7 @@ begin
Result:=documentView; Result:=documentView;
end; end;
procedure TCocoaScrollView.setDocumentView(aView: TSetDocumentViewType); procedure TCocoaScrollView.setDocumentView(aView: NSView);
begin begin
inherited setDocumentView(aView); inherited setDocumentView(aView);
resetScrollRect; resetScrollRect;