paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: SyncronEdit: idle calls only if edit has not been requested already

Browse Source 
git-svn-id: trunk@21331 -
This commit is contained in:
martin 2009-08-19 19:57:20 +00:00
parent 25d1bbf7ec
commit 72074fd87f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synpluginsyncroedit.pp
View File

@ -1184,7 +1184,8 @@ begin
t := Now;
if (t - StartTime > MIN_PROCESS_MSG_TIME) then begin
Application.ProcessMessages;
Application.Idle(False);
if not FEditModeQueued then
Application.Idle(False);
StartTime := t;
end;
end;