fixed updating listview while recieving data

git-svn-id: trunk@17186 -
This commit is contained in:
darius 2008-11-03 08:30:59 +00:00
parent 4969c50e66
commit c8dafde3f3
2 changed files with 6 additions and 5 deletions

View File

@ -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'

View File

@ -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