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

lcl: fix TCustomForm.SetPopupMode: remove PopupParent for both pmAuto and pmNone

Browse Source 
git-svn-id: trunk@51049 -
This commit is contained in:
ondrej 2015-12-27 11:02:11 +00:00
parent 6f4f90622a
commit 574bda0e99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -360,7 +360,7 @@ begin
if FPopupMode <> AValue then
begin
FPopupMode := AValue;
if (FPopupMode = pmAuto) and (PopupParent <> nil) then
if (FPopupMode in [pmAuto, pmNone]) and (PopupParent <> nil) then
PopupParent := nil
else
if not (csDesigning in ComponentState) and HandleAllocated then