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

Cocoa: Cursor compatible with TGraphicControl

Browse Source
This commit is contained in:
rich2014 2023-07-28 22:50:41 +08:00
parent cbd7579c15
commit e277fcd78b
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1866,6 +1866,22 @@ begin
end;
end;
function getWinControlAtMouse(): TControl;
begin
Result:= Application.GetControlAtMouse;
if not Assigned(Result) then
exit;
// find TWinControl (not TGraphicControl)
// see also TControl.SetTempCursor()
while not (Result is TWinControl) do
begin
Result:= Result.Parent;
if not Assigned(Result) then
exit;
end;
end;
class procedure TCocoaWSWinControl.SetCursor(const AWinControl: TWinControl;
const ACursor: HCursor);
var
@ -1883,7 +1899,7 @@ begin
// after clicking the Button.
if not ((AWinControl is TCustomForm) and (csDesigning in AWinControl.ComponentState)) then
begin
control:= Application.GetControlAtMouse;
control:= getWinControlAtMouse;
if control<>AWinControl then
exit;
end;