fix slow send speed, new fifo allows get of entire buffer

[lcore.git] / lcorewsaasyncselect.pas

diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas
index d0291036f2ed35b4048c525ef5c41d60530947fa..6b4c01b4961eccd852c65d09cf600759adba19a2 100644 (file)
--- a/lcorewsaasyncselect.pas
+++ b/lcorewsaasyncselect.pas
@@ -166,6 +166,7 @@ end;
 procedure winaddtask(ahandler:ttaskevent;aobj:tobject;awparam,alparam:longint);\r
 begin\r
   if not tasksoutstanding then PostMessage(hwndlcore,wm_dotasks,0,0);\r
+  tasksoutstanding := true;\r
 end;\r
 type\r
   twcoretimer = wcore.tltimer;\r