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

Fixes bug #22718. Fixes ShowModal for WinCE

Browse Source 
git-svn-id: trunk@38449 -
This commit is contained in:
sekelsenmat 2012-08-31 09:30:25 +00:00
parent 74abf5658d
commit 2a973ceb54
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customform.inc
View File

@ -2915,8 +2915,13 @@ begin
// set our modalresult to mrCancel before hiding.
if ModalResult = 0 then
ModalResult := mrCancel;
Hide;
// We should always re-enabled the forms before issuing Hide()
// Because otherwise we will for a short amount of time have
// all forms disabled, and some systems, like WinCE, will interprete this
// as a problem in the application and hide it.
// See bug 22718
Screen.EnableForms(DisabledList);
Hide;
RestoreFocusedForm;
end;
finally