paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:40:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed recreating handle after showmodal

Browse Source 
git-svn-id: trunk@4575 -
This commit is contained in:
mattias 2003-09-06 18:38:06 +00:00
parent bee74bd954
commit cb08781b43
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

@ -1404,7 +1404,8 @@ begin
until false;
Result := ModalResult;
if GetActiveWindow <> Handle then ActiveWindow := 0;
if HandleAllocated and (GetActiveWindow <> Handle) then
ActiveWindow := 0;
finally
Hide;
end;
@ -1429,6 +1430,9 @@ end;
{ =============================================================================
$Log$
Revision 1.113 2003/09/06 18:38:06 mattias
fixed recreating handle after showmodal
Revision 1.112 2003/08/31 17:30:49 mattias
fixed TControl painting for win32