mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-09 12:35:55 +02:00
fixed updating listview while recieving data
git-svn-id: trunk@17186 -
This commit is contained in:
parent
4969c50e66
commit
c8dafde3f3
@ -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'
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user