diff --git a/src/feQSLDownload.lfm b/src/feQSLDownload.lfm index c7a0f38..4918403 100644 --- a/src/feQSLDownload.lfm +++ b/src/feQSLDownload.lfm @@ -1,14 +1,14 @@ object frmeQSLDownload: TfrmeQSLDownload Left = 461 Height = 609 - Top = 148 + Top = 137 Width = 489 Caption = 'Download data from eQSL.cc' ClientHeight = 609 ClientWidth = 489 OnClose = FormClose OnShow = FormShow - LCLVersion = '0.9.30' + LCLVersion = '0.9.30.2' object GroupBox1: TGroupBox Left = 0 Height = 431 @@ -16,12 +16,12 @@ object frmeQSLDownload: TfrmeQSLDownload Width = 489 Align = alClient Caption = 'Progress' - ClientHeight = 412 + ClientHeight = 414 ClientWidth = 485 TabOrder = 0 object mStat: TMemo Left = 0 - Height = 412 + Height = 414 Top = 0 Width = 485 Align = alClient @@ -56,20 +56,20 @@ object frmeQSLDownload: TfrmeQSLDownload Width = 489 Anchors = [akTop, akLeft, akRight] Caption = ' ' - ClientHeight = 69 + ClientHeight = 71 ClientWidth = 485 TabOrder = 1 object Label3: TLabel Left = 10 - Height = 18 + Height = 16 Top = 12 - Width = 260 + Width = 230 Caption = 'Return QSL records received on or after ' ParentColor = False end object edtDateFrom: TEdit Left = 278 - Height = 27 + Height = 25 Top = 7 Width = 85 TabOrder = 0 @@ -78,7 +78,7 @@ object frmeQSLDownload: TfrmeQSLDownload Left = 6 Height = 22 Top = 39 - Width = 380 + Width = 331 Caption = 'Show new comfirmed QSOs after download and import' TabOrder = 1 end diff --git a/src/feQSLDownload.lrs b/src/feQSLDownload.lrs index 625c484..59d9b90 100644 --- a/src/feQSLDownload.lrs +++ b/src/feQSLDownload.lrs @@ -2,14 +2,14 @@ LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[ 'TPF0'#16'TfrmeQSLDownload'#15'frmeQSLDownload'#4'Left'#3#205#1#6'Height'#3'a' - +#2#3'Top'#3#148#0#5'Width'#3#233#1#7'Caption'#6#26'Download data from eQSL.c' + +#2#3'Top'#3#137#0#5'Width'#3#233#1#7'Caption'#6#26'Download data from eQSL.c' +'c'#12'ClientHeight'#3'a'#2#11'ClientWidth'#3#233#1#7'OnClose'#7#9'FormClose' - +#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.30'#0#9'TGroupBox'#9'GroupBo' - +'x1'#4'Left'#2#0#6'Height'#3#175#1#3'Top'#3#128#0#5'Width'#3#233#1#5'Align'#7 - +#8'alClient'#7'Caption'#6#8'Progress'#12'ClientHeight'#3#156#1#11'ClientWidt' - +'h'#3#229#1#8'TabOrder'#2#0#0#5'TMemo'#5'mStat'#4'Left'#2#0#6'Height'#3#156#1 - +#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ssAu' - +'toBoth'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3 + +#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9.30.2'#0#9'TGroupBox'#9'Group' + +'Box1'#4'Left'#2#0#6'Height'#3#175#1#3'Top'#3#128#0#5'Width'#3#233#1#5'Align' + +#7#8'alClient'#7'Caption'#6#8'Progress'#12'ClientHeight'#3#158#1#11'ClientWi' + +'dth'#3#229#1#8'TabOrder'#2#0#0#5'TMemo'#5'mStat'#4'Left'#2#0#6'Height'#3#158 + +#1#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ss' + +'AutoBoth'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3 +#128#0#3'Top'#2#0#5'Width'#3#233#1#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bv' +'None'#12'ClientHeight'#3#128#0#11'ClientWidth'#3#233#1#8'TabOrder'#2#1#0#7 +'TButton'#11'btnDownload'#4'Left'#2'X'#6'Height'#2#25#3'Top'#2'`'#5'Width'#3 @@ -17,12 +17,12 @@ LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[ +' data from eQSL website'#7'OnClick'#7#16'btnDownloadClick'#8'TabOrder'#2#0#0 +#0#9'TGroupBox'#9'GroupBox5'#4'Left'#2#0#6'Height'#2'X'#3'Top'#2#0#5'Width'#3 +#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#1' '#12'Cl' - +'ientHeight'#2'E'#11'ClientWidth'#3#229#1#8'TabOrder'#2#1#0#6'TLabel'#6'Labe' - +'l3'#4'Left'#2#10#6'Height'#2#18#3'Top'#2#12#5'Width'#3#4#1#7'Caption'#6'(Re' - +'turn QSL records received on or after '#11'ParentColor'#8#0#0#5'TEdit'#11'e' - +'dtDateFrom'#4'Left'#3#22#1#6'Height'#2#27#3'Top'#2#7#5'Width'#2'U'#8'TabOrd' - +'er'#2#0#0#0#9'TCheckBox'#10'chkShowNew'#4'Left'#2#6#6'Height'#2#22#3'Top'#2 - +''''#5'Width'#3'|'#1#7'Caption'#6'1Show new comfirmed QSOs after download an' + +'ientHeight'#2'G'#11'ClientWidth'#3#229#1#8'TabOrder'#2#1#0#6'TLabel'#6'Labe' + +'l3'#4'Left'#2#10#6'Height'#2#16#3'Top'#2#12#5'Width'#3#230#0#7'Caption'#6'(' + +'Return QSL records received on or after '#11'ParentColor'#8#0#0#5'TEdit'#11 + +'edtDateFrom'#4'Left'#3#22#1#6'Height'#2#25#3'Top'#2#7#5'Width'#2'U'#8'TabOr' + +'der'#2#0#0#0#9'TCheckBox'#10'chkShowNew'#4'Left'#2#6#6'Height'#2#22#3'Top'#2 + +''''#5'Width'#3'K'#1#7'Caption'#6'1Show new comfirmed QSOs after download an' +'d import'#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#0#6'Height' +#2'2'#3'Top'#3'/'#2#5'Width'#3#233#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7 +#6'bvNone'#12'ClientHeight'#2'2'#11'ClientWidth'#3#233#1#8'TabOrder'#2#2#0#7 diff --git a/src/feQSLDownload.pas b/src/feQSLDownload.pas index 186c07a..1269112 100644 --- a/src/feQSLDownload.pas +++ b/src/feQSLDownload.pas @@ -194,8 +194,11 @@ begin http.Sock.LastErrorDesc) end end - else - mStat.Lines.Add('eQSL page was probably changed, cannot find the link to ADIF file') + else begin + mStat.Lines.Add('eQSL page was probably changed, cannot find the link to ADIF file'); + mStat.Lines.Add('Server returned this:'); + mStat.Lines.Add(l.Text) + end end end else begin