paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 22:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 52764 #764c1f97e4 from trunk:

Browse Source 
lcl: TCustomForm needs Application.RemoveAsyncCalls, issues #30281 and #8576
........

git-svn-id: branches/fixes_1_6@53091 -
This commit is contained in:
maxim 2016-10-10 21:22:57 +00:00
parent aaae993b7d
commit c2999bff0d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customform.inc
View File

@ -196,6 +196,7 @@ begin
if not (csDestroying in ComponentState) then
GlobalNameSpace.BeginWrite;
try
Application.RemoveAsyncCalls(Self); // because of Application.QueueAsyncCall(@Moved, 0); in WMMove
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TCustomForm.Destroy'){$ENDIF};
FreeThenNil(FIcon);
FreeIconHandles;
@ -725,7 +726,7 @@ end;
procedure TCustomForm.WMMove(var Message: TLMMove);
begin
inherited WMMove(Message);
Application.QueueAsyncCall(@Moved, 0)
Application.QueueAsyncCall(@Moved, 0);
end;
procedure TCustomForm.Moved(Data: PtrInt);