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

TodoList: avoid flickering while updating TODO list by adding BeginUpdate/EndUpdate. Patch by Vladimir Zhirov, bug #17125.

Browse Source 
git-svn-id: trunk@27021 -
This commit is contained in:
maxim 2010-08-07 15:15:29 +00:00
parent 6688cc9ce2
commit 9fe6485839
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/todolist/todolist.pas
View File

@ -602,6 +602,7 @@ begin
Screen.Cursor:=crHourGlass;
Owners:=nil;
lvTodo.BeginUpdate;
try
fBuild:=True;
CodeToolBoss.ActivateWriteLock;
@ -678,6 +679,7 @@ begin
Node:=fScannedFiles.FindSuccessor(Node);
end;
finally
lvTodo.EndUpdate;
CodeToolBoss.DeactivateWriteLock;
Owners.Free;
Screen.Cursor:=crDefault;