paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added flag EnableAsyncDeactivate for possible workaround for too early/many deactivate events

Browse Source 
git-svn-id: trunk@21188 -
This commit is contained in:
mattias 2009-08-12 11:38:37 +00:00
parent 236c316138
commit d4eeeafe50
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -1174,7 +1174,7 @@ type
const Handler: TMethod);
procedure RunLoop;
procedure Activate;
procedure Deactivate(Data: PtrInt);
procedure Deactivate(Data: PtrInt = 0);
protected
function GetConsoleApplication: boolean; override;
procedure NotifyIdleHandler(var Done: Boolean);

5
lcl/include/customform.inc
View File

@ -463,9 +463,14 @@ end;
procedure TCustomForm.WMDeactivate(var Message : TLMActivate);
begin
FActive:=false;
{$IFDEF EnableAsyncDeactivate}
Deactivate;
if Application<>nil then
Application.QueueAsyncCall(@Application.Deactivate,0);
{$ELSE}
if Application<>nil then Application.Deactivate;
Deactivate;
{$ENDIF}
end;
procedure TCustomForm.CMShowingChanged(var Message: TLMessage);