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

LCL: TimePopupForm: Immediately hide the form on deactivate (Issue #0028441).

Browse Source 
git-svn-id: trunk@49572 -
This commit is contained in:
bart 2015-07-27 17:01:23 +00:00
parent 56a19261f9
commit 03e9e040af
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms/timepopup.pas
View File

@ -113,6 +113,8 @@ end;
procedure TTimePopupForm.FormDeactivate(Sender: TObject);
begin
//Immediately hide the form, otherwise it stays visible while e.g. user is draging
//another form (Issue 0028441)
if (not FClosed) then
Close;
end;