From c8dafde3f3ef8f53df2a05bd52b8b794db1619c9 Mon Sep 17 00:00:00 2001
From: darius <darius@lazarus-ide.org>
Date: Mon, 3 Nov 2008 08:30:59 +0000
Subject: [PATCH] fixed updating listview while recieving data

git-svn-id: trunk@17186 -
---
 components/lazsvnpkg/svnupdateform.lrs | 2 ++
 components/lazsvnpkg/svnupdateform.pas | 9 ++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/components/lazsvnpkg/svnupdateform.lrs b/components/lazsvnpkg/svnupdateform.lrs
index a9b1925223..1a40abaa48 100644
--- a/components/lazsvnpkg/svnupdateform.lrs
+++ b/components/lazsvnpkg/svnupdateform.lrs
@@ -1,3 +1,5 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TSVNUpdateFrm','FORMDATA',[
   'TPF0'#13'TSVNUpdateFrm'#12'SVNUpdateFrm'#4'Left'#3#30#1#6'Height'#3','#1#3'T'
   +'op'#3#209#0#5'Width'#3#128#2#11'HelpContext'#2#0#5'Align'#7#6'alNone'#14'Al'
diff --git a/components/lazsvnpkg/svnupdateform.pas b/components/lazsvnpkg/svnupdateform.pas
index 77b0caf5ce..144efd1d5a 100644
--- a/components/lazsvnpkg/svnupdateform.pas
+++ b/components/lazsvnpkg/svnupdateform.pas
@@ -149,9 +149,10 @@ begin
   BytesRead := 0;
   MemStream.Clear;
 
+  SVNUpdateListView.Items[SVNUpdateListView.Items.Count - 1].MakeVisible(True);
+
   //repaint the listview
-  SVNUpdateListView.Invalidate;
-  Invalidate;
+  Application.ProcessMessages;
 end;
 
 procedure TSVNUpdateFrm.Execute(Data: PtrInt);
@@ -185,11 +186,9 @@ begin
       Inc(BytesRead, n);
       ProcessSVNUpdateOutput(MemStream, BytesRead);
     end
-    else begin
+    else
       // no data, wait 100 ms
       Sleep(100);
-      Invalidate;
-    end;
   end;
   // read last part
   repeat