From 25505a1b4647d04d4b90f71f90f010dc5ebeacf0 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 20 Apr 2011 15:43:27 +0000
Subject: [PATCH] LCL: call WakeMainThread() in QueueAsyncCall, so messages are
 passed.Patch by Henry Vermaak. issues #13120,#18599

git-svn-id: trunk@30403 -
---
 lcl/include/application.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index f5fc4deac9..035fd83bb2 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -2178,6 +2178,9 @@ begin
     end;
     Last := lItem;
   end;
+
+  if Assigned(WakeMainThread) then
+    WakeMainThread(nil);
 end;
 
 procedure TApplication.RemoveAsyncCalls(const AnObject: TObject);