diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-15 11:11:12 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-15 11:11:12 +0200 |
| commit | 4d32ba06c7dbba4d4092056b01e985c12ed2041f (patch) | |
| tree | 92ee810ccce427a6fe2fc24e03865726aa4b4845 /src/corelib | |
| parent | 59f9a7513fe58a046b789caf881e432b6f3abdea (diff) | |
| download | fpGUI-4d32ba06c7dbba4d4092056b01e985c12ed2041f.tar.xz | |
fpgApplication.OnIdle was never triggered under Windows.
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpg_main.pas | 2 | ||||
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 2 |
2 files changed, 3 insertions, 1 deletions
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 |