From 4d32ba06c7dbba4d4092056b01e985c12ed2041f Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 15 Oct 2010 11:11:12 +0200
Subject: fpgApplication.OnIdle was never triggered under Windows.

---
 src/corelib/fpg_main.pas    | 2 +-
 src/corelib/gdi/fpg_gdi.pas | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/corelib')

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index 08885567..d4f81e82 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -1603,7 +1603,7 @@ end;
 
 procedure TfpgApplication.RunMessageLoop;
 begin
-  WaitWindowMessage(1000);
+  WaitWindowMessage(2000);
 end;
 
 { TfpgFont }
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index a9aa34a1..8780f7f6 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -1182,6 +1182,8 @@ begin
 
   if (atimeoutms >= 0) and (not DoMessagesPending) then
   begin
+    if Assigned(FOnIdle) then
+      OnIdle(self);
     if atimeoutms > 0 then
       timerid := Windows.SetTimer(ltimerWnd, 1, atimeoutms, nil)
     else
-- 
cgit v1.2.3-70-g09d2