paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 16:02:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

Win32: do not check popupMode for modal forms with BorderStyle = bsNone if PopupParent = nil. issue #29744

Browse Source 
git-svn-id: trunk@51751 -
This commit is contained in:
zeljko 2016-02-29 09:38:56 +00:00
parent b294e20fc9
commit d3ea914d94
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/interfaces/win32/win32wsforms.pp
View File

@ -393,7 +393,7 @@ begin
// general initialization of Params // general initialization of Params
PrepareCreateWindow(AWinControl, AParams, Params); PrepareCreateWindow(AWinControl, AParams, Params);
// show minimized modal window in taskbar not above start button. issue #29744 // show minimized modal window in taskbar not above start button. issue #29744
if (fsModal in TCustomForm(AWinControl).FormState) and (TCustomForm(AWinControl).PopupMode in [pmNone, pmAuto]) and if (fsModal in TCustomForm(AWinControl).FormState) and
(TCustomForm(AWinControl).BorderStyle <> bsNone) and (TCustomForm(AWinControl).PopupParent = nil) then (TCustomForm(AWinControl).BorderStyle <> bsNone) and (TCustomForm(AWinControl).PopupParent = nil) then
Params.Parent := Windows.GetDesktopWindow; Params.Parent := Windows.GetDesktopWindow;