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

LCL: TSpeedButton does not respond to pressing, after closing the modal form with a double click. Issue #33874

Browse Source 
git-svn-id: trunk@58312 -
This commit is contained in:
michl 2018-06-18 20:21:33 +00:00
parent f71c5e7e17
commit a82d438e12
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customform.inc
View File

@ -3055,7 +3055,11 @@ begin
SetActiveWindow(ActiveWindow); SetActiveWindow(ActiveWindow);
Exclude(FFormState, fsModal); Exclude(FFormState, fsModal);
if ((PopupMode = pmNone) and HandleAllocated) and not (csDestroying in ComponentState) then if ((PopupMode = pmNone) and HandleAllocated) and not (csDestroying in ComponentState) then
RecreateWnd(Self); // need to refresh handle for pmNone because ParentWindow changes if (fsModal in FFormState) - see GetRealPopupParent begin
// need to refresh handle for pmNone because ParentWindow changes if (fsModal in FFormState) - see GetRealPopupParent
MouseCapture := False;
RecreateWnd(Self);
end;
end; end;
finally finally
Application.ModalFinished; Application.ModalFinished;