diff options
Diffstat (limited to 'src/corelib/gdi')
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index bb89c8d2..e0f44349 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -533,7 +533,9 @@ begin pw := mw; while (pw <> nil) and (pw.Parent <> nil) do pw := TfpgWindowImpl(pw.Parent); - if ((pw = nil) or (PopupListFind(pw.WinHandle) = nil)) and (not PopupDontCloseWidget(TfpgWidget(mw))) and + + if ((pw = nil) or (PopupListFind(pw.WinHandle) = nil)) and + (not PopupDontCloseWidget(TfpgWidget(mw))) and ((uMsg = WM_LBUTTONDOWN) or (uMsg = WM_LBUTTONUP)) then begin ClosePopups; |