paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 09:35:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF: begin/end update

Browse Source 
git-svn-id: trunk@35809 -
This commit is contained in:
martin 2012-03-07 19:33:43 +00:00
parent 68ed23b212
commit f6c23f9fe9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/jcf2/ReadWrite/EditorConverter.pas
View File

@ -183,10 +183,12 @@ begin
SplitIntoChangeSections(lcSourceLines, lcDestLines, lcSameStart, lcSameEnd);
try
pcUnit.BeginUpdate;
pcUnit.BeginUndoBlock;
liStart := lcSameStart.Count;
liIndex := 0;
liMaxIndex := Max(lcSourceLines.Count, lcDestLines.Count);
pcUnit.BeginUndoBlock;
while (liIndex < liMaxIndex) do
begin
if liIndex < lcSourceLines.Count then
@ -205,8 +207,9 @@ begin
inc(liIndex);
end;
pcUnit.EndUndoBlock;
finally
pcUnit.EndUndoBlock;
pcUnit.EndUpdate;
lcSourceLines.Free;
lcDestLines.Free;
lcSameStart.Free;