paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 17:19:18 +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; Screen.Cursor:=crHourGlass;
Owners:=nil; Owners:=nil;
lvTodo.BeginUpdate;
try try
fBuild:=True; fBuild:=True;
CodeToolBoss.ActivateWriteLock; CodeToolBoss.ActivateWriteLock;
@ -678,6 +679,7 @@ begin
Node:=fScannedFiles.FindSuccessor(Node); Node:=fScannedFiles.FindSuccessor(Node);
end; end;
finally finally
lvTodo.EndUpdate;
CodeToolBoss.DeactivateWriteLock; CodeToolBoss.DeactivateWriteLock;
Owners.Free; Owners.Free;
Screen.Cursor:=crDefault; Screen.Cursor:=crDefault;