downloaded adif file size fixed

This commit is contained in:
ok2cqr 2017-08-02 18:35:02 +02:00
parent bf0cb5975a
commit 951e6c0206
2 changed files with 4 additions and 3 deletions

View File

@ -115,7 +115,7 @@ object frmImportLoTWWeb: TfrmImportLoTWWeb
OnCloseQuery = FormCloseQuery
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '1.6.0.4'
LCLVersion = '1.6.4.0'
object GroupBox1: TGroupBox
Left = 0
Height = 405
@ -183,9 +183,9 @@ object frmImportLoTWWeb: TfrmImportLoTWWeb
end
object chkShowNew: TCheckBox
Left = 6
Height = 24
Height = 22
Top = 39
Width = 404
Width = 402
Caption = 'Show new comfirmed QSOs after download and import'
TabOrder = 1
end

View File

@ -71,6 +71,7 @@ var
Count : Word = 0;
begin
Done := False;
FileSize := 0;
mStat.Clear;
Application.ProcessMessages;
if not dmUtils.IsDateOK(edtDateFrom.Text) then