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

cocoa: request cursor update on form cursor change too

Browse Source 
git-svn-id: trunk@33605 -
This commit is contained in:
paul 2011-11-18 06:11:47 +00:00
parent 931337302f
commit da92ed2789
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -268,6 +268,9 @@ begin
if (AWinControl.Handle <> 0) then if (AWinControl.Handle <> 0) then
begin begin
Obj := NSObject(AWinControl.Handle); Obj := NSObject(AWinControl.Handle);
if Obj.isKindOfClass_(NSWindow) then
NSWindow(Obj).resetCursorRects
else
if Obj.isKindOfClass_(NSView) then if Obj.isKindOfClass_(NSView) then
NSView(Obj).resetCursorRects; NSView(Obj).resetCursorRects;
end; end;