From 25d1bbf7ec7fc9e0bfe72d1afc4c5da6318fda15 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 19 Aug 2009 19:42:22 +0000
Subject: [PATCH] SynEdit: SyncronEdit: made ProcessMessages interval time
 based instead of words-processed count. Better responsiveness on not so fast
 pc. Added idle calls

git-svn-id: trunk@21330 -
---
 components/synedit/synpluginsyncroedit.pp | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/components/synedit/synpluginsyncroedit.pp b/components/synedit/synpluginsyncroedit.pp
index 2e4ebd5f2a..d4ee62a30c 100644
--- a/components/synedit/synpluginsyncroedit.pp
+++ b/components/synedit/synpluginsyncroedit.pp
@@ -282,7 +282,8 @@ var
 const
   MAX_CACHE = 50; // Amount of lower-cased lines cached
   MAX_SYNC_ED_WORDS = 50;// 250;
-  MAX_WORDS_PER_SCAN = 50000;
+  MAX_WORDS_PER_SCAN = 5000;
+  MIN_PROCESS_MSG_TIME = (1/86400)/15;
 
 Operator = (P1, P2 : TPoint) : Boolean;
 begin
@@ -1119,7 +1120,9 @@ var
 
 var
   i, j: Integer;
+  StartTime, t: Double;
 begin
+  StartTime := now();
   while (FCallQueued) and (FMode = spseSelecting) do begin
     FCallQueued := False;
     FWordScanCount := 0;
@@ -1178,7 +1181,12 @@ begin
 
     if FWordScanCount > MAX_WORDS_PER_SCAN then begin
       FCallQueued := True;
-      Application.ProcessMessages;
+      t := Now;
+      if (t - StartTime > MIN_PROCESS_MSG_TIME) then begin
+        Application.ProcessMessages;
+        Application.Idle(False);
+        StartTime := t;
+      end;
     end;
   end;
   FCallQueued := False;