paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: call Application.ModalStarted/Finished in Save/RestoreApplicationState

Browse Source 
git-svn-id: trunk@52299 -
This commit is contained in:
ondrej 2016-05-10 20:57:04 +00:00
parent 3d8cc7c21c
commit 79acb53c1d
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/interfaces/win32/win32wsdialogs.pp
View File

@ -169,6 +169,7 @@ begin
Result.ActiveWindow := Windows.GetActiveWindow;
Result.FocusedWindow := Windows.GetFocus;
Result.DisabledWindows := Screen.DisableForms(nil);
Application.ModalStarted;
end;
procedure RestoreApplicationState(AState: TApplicationState);
@ -176,6 +177,7 @@ begin
Screen.EnableForms(AState.DisabledWindows);
Windows.SetActiveWindow(AState.ActiveWindow);
Windows.SetFocus(AState.FocusedWindow);
Application.ModalFinished;
end;
// The size of the OPENFILENAME record depends on the windows version