opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix flicker in update checker dialog while downloading a build file.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-10 18:55:01 +00:00
parent 1f1e771fa6
commit 8d5111cf8a
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/updatecheck.pas
View File

@@ -30,6 +30,7 @@ type
{ Private declarations }
CheckfileDownload : TDownLoadURL2;
ReleaseURL, BuildURL : String;
FLastStatusUpdate: Cardinal;
procedure Status(txt: String);
procedure ReadCheckFile;
procedure URLOnDownloadProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal;
@@ -84,7 +85,7 @@ end;
procedure TfrmUpdateCheck.Status(txt: String);
begin
lblStatus.Caption := txt;
Repaint;
lblStatus.Repaint;
end;
@@ -302,7 +303,10 @@ end;
}
procedure TfrmUpdateCheck.URLOnDownloadProgress;
begin
if FLastStatusUpdate > GetTickCount-200 then
Exit;
Status('Downloading: '+FormatByteNumber(Progress)+' / '+FormatByteNumber(BuildSize) + ' ...');
FLastStatusUpdate := GetTickCount;
end;