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

Carbon: fixed hang with save dialog. issue #29911

Browse Source 
git-svn-id: trunk@53027 -
This commit is contained in:
zeljko 2016-09-25 08:16:20 +00:00
parent 8011372f5a
commit dcbe735606
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -1811,8 +1811,11 @@ begin
DebugLn('TCarbonWidgetSet.GetParent Widget: ' + DbgS(TCarbonControl(Handle).Widget)); DebugLn('TCarbonWidgetSet.GetParent Widget: ' + DbgS(TCarbonControl(Handle).Widget));
{$ENDIF} {$ENDIF}
Result := HWnd(GetCarbonWidget(HIViewGetSuperview(TCarbonControl(Handle).Widget))); Result := HWnd(GetCarbonWidget(HIViewGetSuperview(TCarbonControl(Handle).Widget)));
if Result = 0 then // no parent control => then parent is a window? if Result = 0 then begin // no parent control => then parent is a window?
Result := HWnd(GetCarbonWidget(HIViewGetWindow(TCarbonControl(Handle).Widget))); Result := HWnd(GetCarbonWidget(HIViewGetWindow(TCarbonControl(Handle).Widget)));
if Result = Handle then
Result := 0; // Sanity check - otherwise FindLCLWindow can be stuck in a loop
end;
end; end;
// Carbon windows has no parent // Carbon windows has no parent