paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:42:51 +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); const Handler: TMethod);
procedure RunLoop; procedure RunLoop;
procedure Activate; procedure Activate;
procedure Deactivate(Data: PtrInt); procedure Deactivate(Data: PtrInt = 0);
protected protected
function GetConsoleApplication: boolean; override; function GetConsoleApplication: boolean; override;
procedure NotifyIdleHandler(var Done: Boolean); procedure NotifyIdleHandler(var Done: Boolean);

5
lcl/include/customform.inc
View File

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