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

Carbon: remove wrong code from SetRealPopupParent and add a ToDo.

Browse Source 
git-svn-id: trunk@51681 -
This commit is contained in:
ondrej 2016-02-24 14:24:46 +00:00
parent 46ea37d068
commit 61b1bcfde2
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/carbon/carbonwsforms.pp
View File

@ -333,12 +333,7 @@ end;
class procedure TCarbonWSCustomForm.SetRealPopupParent(
const ACustomForm: TCustomForm; const APopupParent: TCustomForm);
begin
if Assigned(APopupParent) and (APopupParent.Handle<>0) then
begin
SetWindowGroup( TCarbonWindow(ACustomForm.Handle).Window, GetWindowGroupOfClass(kHelpWindowClass));
end
else
SetFormStyle(ACustomForm, ACustomForm.FormStyle, ACustomForm.FormStyle);
{ToDo: implement PopupMode/PopupParent for Carbon}
end;
{ TCarbonWSHintWindow }