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

Cocoa: Cursor: all enableCursorRects() removed

Browse Source
This commit is contained in:
rich2014 2023-06-11 23:32:34 +08:00
parent b9002774db
commit 5e66a6fc46
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawsforms.pas
View File

@ -266,7 +266,6 @@ begin
{$else} {$else}
win := TCocoaPanel(win.initWithContentRect_styleMask_backing_defer(R, WinMask, NSBackingStoreBuffered, False)); win := TCocoaPanel(win.initWithContentRect_styleMask_backing_defer(R, WinMask, NSBackingStoreBuffered, False));
{$endif} {$endif}
win.enableCursorRects;
win.setLevel(HintWindowLevel); win.setLevel(HintWindowLevel);
win.setDelegate(win); win.setDelegate(win);
{$ifdef BOOLFIX} {$ifdef BOOLFIX}
@ -767,7 +766,6 @@ begin
// see issue http://bugs.freepascal.org/view.php?id=28473 // see issue http://bugs.freepascal.org/view.php?id=28473
if not (csDesigning in AWinControl.ComponentState) then if not (csDesigning in AWinControl.ComponentState) then
WindowSetFormStyle(win, Form.FormStyle); WindowSetFormStyle(win, Form.FormStyle);
win.enableCursorRects;
TCocoaWindow(win).callback := cb; TCocoaWindow(win).callback := cb;
cb.window := win; cb.window := win;