Browse Source

app: fixed av when asynccall already freed

mattias 9 months ago
parent
commit
d556bf5bfc
2 changed files with 1 additions and 1 deletions
  1. 1 0
      src/base/fresnel.forms.pas
  2. 0 1
      src/fresnel.app.pas

+ 1 - 0
src/base/fresnel.forms.pas

@@ -878,6 +878,7 @@ end;
 
 procedure TFresnelBaseApplication.DoHandleAsyncCalls;
 begin
+  if FAsyncCall=nil then exit;
   FAsyncCall.ProcessQueue;
 end;
 

+ 0 - 1
src/fresnel.app.pas

@@ -250,7 +250,6 @@ begin
   ProcessAsyncCallQueue;
   UnregisterFindGlobalComponentProc(@FindApplicationComponent);
 
-
   inherited Destroy;
 
   Include(FFlags,AppDoNotCallAsyncQueue);