hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 10:27:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix for Online Logs Url

Browse Source 
Problem arised with hadcoded Online logs Url address change.
	Made Urls changeable via preferences/online log upload.
This commit is contained in:
OH1KH 2023-01-02 14:08:14 +02:00
parent 98a8ba5d0d
commit 68de955383
6 changed files with 293 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
help/h1.html
View File

@ -789,6 +789,7 @@ There are no known dependencies issues.<br><br>
<a name=ch8><h3>How to get it to work?</h3></a> <a name=ch8><h3>How to get it to work?</h3></a>
<ul> <ul>
<li>check if you have set correct username, password (email, Code)</li> <li>check if you have set correct username, password (email, Code)</li>
<li>in case Url address of online log API has changed you are able to change it here</li>
<li>export all data from the log to ADIF file</li> <li>export all data from the log to ADIF file</li>
<li>import this adif file to the website of online log you are going to use <li>import this adif file to the website of online log you are going to use
(if you are using HamQTH, please wait untill the email about a successful import arrives) (if you are using HamQTH, please wait untill the email about a successful import arrives)

BIN
help/img/h1116.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 37 KiB

After

Width:  |  Height:  |  Size: 68 KiB

8
src/dLogUpload.pas
View File

@ -599,14 +599,14 @@ function TdmLogUpload.GetUploadUrl(where : TWhereToUpload; cmd : String) : Strin
begin begin
Result := ''; Result := '';
case where of case where of
upHamQTH : Result := 'http://www.hamqth.com/qso_realtime.php'; upHamQTH : Result := cqrini.ReadString('OnlineLog','HaUrl','http://www.hamqth.com/qso_realtime.php');
upClubLog : begin upClubLog : begin
if (cmd='DELETE') then if (cmd='DELETE') then
Result := 'https://secure.clublog.org/delete.php' Result := cqrini.ReadString('OnlineLog','ClUrlDel','https://secure.clublog.org/delete.php')
else else
Result := 'https://secure.clublog.org/realtime.php' Result := cqrini.ReadString('OnlineLog','ClUrl','https://secure.clublog.org/realtime.php');
end; end;
upHrdLog : Result := 'http://robot.hrdlog.net/NewEntry.aspx' upHrdLog : Result := cqrini.ReadString('OnlineLog','HrUrl','http://robot.hrdlog.net/NewEntry.aspx');
end //case end //case
end; end;

363
src/fPreferences.lfm
View File

@ -9430,52 +9430,74 @@ object frmPreferences: TfrmPreferences
end end
object tabOnlineLog: TTabSheet object tabOnlineLog: TTabSheet
Caption = 'Online log upload' Caption = 'Online log upload'
ClientHeight = 672 ClientHeight = 676
ClientWidth = 836 ClientWidth = 836
object GroupBox44: TGroupBox object GroupBox44: TGroupBox
Left = 13 AnchorSideLeft.Control = tabOnlineLog
Height = 179 AnchorSideTop.Control = tabOnlineLog
Top = 7 Left = 12
Width = 569 Height = 195
Top = 0
Width = 650
BorderSpacing.Left = 12
Caption = ' HamQTH ' Caption = ' HamQTH '
ClientHeight = 177 ClientHeight = 177
ClientWidth = 567 ClientWidth = 648
TabOrder = 0 TabOrder = 0
object chkHaUpEnabled: TCheckBox object chkHaUpEnabled: TCheckBox
Left = 7 AnchorSideLeft.Control = GroupBox44
AnchorSideTop.Control = GroupBox44
Left = 6
Height = 23 Height = 23
Top = 4 Top = 0
Width = 202 Width = 198
BorderSpacing.Left = 6
Caption = 'Enable upload to HamQTH' Caption = 'Enable upload to HamQTH'
OnChange = chkHaUpEnabledChange OnChange = chkHaUpEnabledChange
TabOrder = 0 TabOrder = 0
end end
object Label179: TLabel object Label179: TLabel
Left = 9 AnchorSideLeft.Control = chkHaUpEnabled
AnchorSideTop.Control = edtHamQTHurl
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17 Height = 17
Top = 36 Top = 63
Width = 75 Width = 75
BorderSpacing.Top = 6
Caption = 'User name:' Caption = 'User name:'
ParentColor = False
end end
object edtHaUserName: TEdit object edtHaUserName: TEdit
Left = 9 AnchorSideLeft.Control = Label179
AnchorSideTop.Control = Label179
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34 Height = 34
Top = 52 Top = 80
Width = 102 Width = 102
TabOrder = 1 TabOrder = 1
Text = 'edtHaUserName' Text = 'edtHaUserName'
end end
object lbl: TLabel object lbl: TLabel
Left = 199 AnchorSideLeft.Control = edtHaUserName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label179
Left = 120
Height = 17 Height = 17
Top = 36 Top = 63
Width = 70 Width = 66
BorderSpacing.Left = 12
Caption = 'Password:' Caption = 'Password:'
ParentColor = False
end end
object edtHaPasswd: TEdit object edtHaPasswd: TEdit
Left = 199 AnchorSideLeft.Control = lbl
AnchorSideTop.Control = lbl
AnchorSideTop.Side = asrBottom
Left = 120
Height = 34 Height = 34
Top = 52 Top = 80
Width = 104 Width = 104
EchoMode = emPassword EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
@ -9483,84 +9505,137 @@ object frmPreferences: TfrmPreferences
Text = 'edtHaPasswd' Text = 'edtHaPasswd'
end end
object chkHaupOnline: TCheckBox object chkHaupOnline: TCheckBox
Left = 7 AnchorSideLeft.Control = Label179
AnchorSideTop.Control = edtHaUserName
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23 Height = 23
Top = 92 Top = 117
Width = 417 Width = 409
BorderSpacing.Top = 3
Caption = 'Upload QSO data immediately after save, update or delete' Caption = 'Upload QSO data immediately after save, update or delete'
TabOrder = 3 TabOrder = 3
end end
object Label184: TLabel object Label184: TLabel
Left = 9 AnchorSideLeft.Control = Label179
AnchorSideTop.Control = cmbHaColor
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17 Height = 17
Top = 132 Top = 149
Width = 53 Width = 53
Caption = 'Use this' Caption = 'Use this'
ParentColor = False
end end
object Label185: TLabel object Label185: TLabel
Left = 238 AnchorSideLeft.Control = cmbHaColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbHaColor
AnchorSideTop.Side = asrCenter
Left = 235
Height = 17 Height = 17
Top = 132 Top = 149
Width = 338 Width = 329
BorderSpacing.Left = 6
Caption = 'color to show information in status upload window' Caption = 'color to show information in status upload window'
ParentColor = False
end end
object cmbHaColor: TColorBox object cmbHaColor: TColorBox
Left = 62 AnchorSideLeft.Control = Label184
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkHaupOnline
AnchorSideTop.Side = asrBottom
Left = 65
Height = 29 Height = 29
Top = 124 Top = 143
Width = 164 Width = 164
DefaultColorColor = clBlue DefaultColorColor = clBlue
NoneColorColor = clMoneyGreen NoneColorColor = clMoneyGreen
Selected = clBlue Selected = clBlue
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
ItemHeight = 28 ItemHeight = 28
TabOrder = 4 TabOrder = 4
end end
object edtHamQTHurl: TEdit
AnchorSideLeft.Control = chkHaUpEnabled
AnchorSideTop.Control = chkHaUpEnabled
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 23
Width = 600
TabOrder = 5
Text = 'http://www.hamqth.com/qso_realtime.php'
end
end end
object GroupBox45: TGroupBox object GroupBox45: TGroupBox
AnchorSideLeft.Control = GroupBox44
AnchorSideTop.Control = GroupBox44
AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 168 Height = 225
Top = 194 Top = 198
Width = 569 Width = 650
BorderSpacing.Top = 3
Caption = ' ClubLog ' Caption = ' ClubLog '
ClientHeight = 166 ClientHeight = 207
ClientWidth = 567 ClientWidth = 648
TabOrder = 1 TabOrder = 1
object chkClUpEnabled: TCheckBox object chkClUpEnabled: TCheckBox
Left = 7 AnchorSideLeft.Control = GroupBox45
AnchorSideTop.Control = GroupBox45
Left = 6
Height = 23 Height = 23
Top = 4 Top = 0
Width = 196 Width = 191
BorderSpacing.Left = 6
Caption = 'Enable upload to ClubLog' Caption = 'Enable upload to ClubLog'
OnChange = chkClUpEnabledChange OnChange = chkClUpEnabledChange
TabOrder = 0 TabOrder = 0
end end
object Label180: TLabel object Label180: TLabel
Left = 9 AnchorSideLeft.Control = chkClUpEnabled
AnchorSideTop.Control = edtClubLogUrlDel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17 Height = 17
Top = 36 Top = 91
Width = 56 Width = 56
Caption = 'Callsign:' Caption = 'Callsign:'
ParentColor = False
end end
object edtClUserName: TEdit object edtClUserName: TEdit
Left = 9 AnchorSideLeft.Control = Label180
AnchorSideTop.Control = Label180
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34 Height = 34
Top = 57 Top = 108
Width = 102 Width = 102
TabOrder = 1 TabOrder = 1
Text = 'edtClUserName' Text = 'edtClUserName'
end end
object lbl1: TLabel object lbl1: TLabel
Left = 198 AnchorSideLeft.Control = edtClUserName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label180
Left = 114
Height = 17 Height = 17
Top = 36 Top = 91
Width = 70 Width = 66
BorderSpacing.Left = 6
Caption = 'Password:' Caption = 'Password:'
ParentColor = False
end end
object edtClPasswd: TEdit object edtClPasswd: TEdit
Left = 198 AnchorSideLeft.Control = lbl1
AnchorSideTop.Control = lbl1
AnchorSideTop.Side = asrBottom
Left = 114
Height = 34 Height = 34
Top = 57 Top = 108
Width = 104 Width = 104
EchoMode = emPassword EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
@ -9568,151 +9643,263 @@ object frmPreferences: TfrmPreferences
Text = 'edtClPasswd' Text = 'edtClPasswd'
end end
object chkClUpOnline: TCheckBox object chkClUpOnline: TCheckBox
AnchorSideLeft.Control = edtClUserName
AnchorSideTop.Control = edtClUserName
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 23
Top = 89 Top = 145
Width = 417 Width = 409
BorderSpacing.Top = 3
Caption = 'Upload QSO data immediately after save, update or delete' Caption = 'Upload QSO data immediately after save, update or delete'
TabOrder = 4 TabOrder = 4
end end
object Label181: TLabel object Label181: TLabel
Left = 358 AnchorSideLeft.Control = edtClPasswd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label180
Left = 224
Height = 17 Height = 17
Top = 36 Top = 91
Width = 41 Width = 41
BorderSpacing.Left = 6
Caption = 'Email:' Caption = 'Email:'
ParentColor = False
end end
object edtClEmail: TEdit object edtClEmail: TEdit
Left = 358 AnchorSideLeft.Control = Label181
AnchorSideTop.Control = Label181
AnchorSideTop.Side = asrBottom
Left = 224
Height = 34 Height = 34
Top = 57 Top = 108
Width = 184 Width = 184
TabOrder = 3 TabOrder = 3
Text = 'edtClEmail' Text = 'edtClEmail'
end end
object Label186: TLabel object Label186: TLabel
Left = 10 AnchorSideLeft.Control = chkClUpOnline
AnchorSideTop.Control = cmbClColor
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17 Height = 17
Top = 121 Top = 177
Width = 53 Width = 53
Caption = 'Use this' Caption = 'Use this'
ParentColor = False
end end
object Label187: TLabel object Label187: TLabel
Left = 238 AnchorSideLeft.Control = cmbClColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbClColor
AnchorSideTop.Side = asrCenter
Left = 235
Height = 17 Height = 17
Top = 121 Top = 177
Width = 338 Width = 329
BorderSpacing.Left = 6
Caption = 'color to show information in status upload window' Caption = 'color to show information in status upload window'
ParentColor = False
end end
object cmbClColor: TColorBox object cmbClColor: TColorBox
AnchorSideLeft.Control = Label186
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkClUpOnline
AnchorSideTop.Side = asrBottom
Left = 65 Left = 65
Height = 29 Height = 29
Top = 113 Top = 171
Width = 164 Width = 164
DefaultColorColor = clRed DefaultColorColor = clRed
NoneColorColor = clMoneyGreen NoneColorColor = clMoneyGreen
Selected = clRed Selected = clRed
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
ItemHeight = 28 ItemHeight = 28
TabOrder = 5 TabOrder = 5
end end
object edtClubLogUrl: TEdit
AnchorSideLeft.Control = chkClUpEnabled
AnchorSideTop.Control = chkClUpEnabled
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 23
Width = 600
TabOrder = 6
Text = 'https://secure.clublog.org/realtime.php'
end
object edtClubLogUrlDel: TEdit
AnchorSideLeft.Control = chkClUpEnabled
AnchorSideTop.Control = edtClubLogUrl
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 57
Width = 600
TabOrder = 7
Text = 'https://secure.clublog.org/delete.php'
end
end end
object GroupBox46: TGroupBox object GroupBox46: TGroupBox
AnchorSideLeft.Control = GroupBox45
AnchorSideTop.Control = GroupBox45
AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 168 Height = 195
Top = 370 Top = 426
Width = 569 Width = 650
BorderSpacing.Top = 3
Caption = ' HRDLog.net ' Caption = ' HRDLog.net '
ClientHeight = 166 ClientHeight = 177
ClientWidth = 567 ClientWidth = 648
TabOrder = 2 TabOrder = 2
object chkHrUpEnabled: TCheckBox object chkHrUpEnabled: TCheckBox
Left = 7 AnchorSideLeft.Control = GroupBox46
AnchorSideTop.Control = GroupBox46
Left = 6
Height = 23 Height = 23
Top = 4 Top = 0
Width = 221 Width = 216
BorderSpacing.Left = 6
Caption = 'Enable upload to HRDLog.net' Caption = 'Enable upload to HRDLog.net'
OnChange = chkHrUpEnabledChange OnChange = chkHrUpEnabledChange
TabOrder = 0 TabOrder = 0
end end
object Label182: TLabel object Label182: TLabel
Left = 9 AnchorSideLeft.Control = chkHrUpEnabled
AnchorSideTop.Control = edtHrdUrl
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17 Height = 17
Top = 36 Top = 60
Width = 56 Width = 56
BorderSpacing.Top = 3
Caption = 'Callsign:' Caption = 'Callsign:'
ParentColor = False
end end
object edtHrUserName: TEdit object edtHrUserName: TEdit
Left = 9 AnchorSideLeft.Control = Label182
AnchorSideTop.Control = Label182
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34 Height = 34
Top = 57 Top = 77
Width = 102 Width = 102
TabOrder = 1 TabOrder = 1
Text = 'edtHrUserName' Text = 'edtHrUserName'
end end
object chkHrUpOnline: TCheckBox object chkHrUpOnline: TCheckBox
AnchorSideLeft.Control = edtHrUserName
AnchorSideTop.Control = edtHrUserName
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 23
Top = 89 Top = 114
Width = 417 Width = 409
BorderSpacing.Top = 3
Caption = 'Upload QSO data immediately after save, update or delete' Caption = 'Upload QSO data immediately after save, update or delete'
TabOrder = 3 TabOrder = 3
end end
object Label183: TLabel object Label183: TLabel
Left = 200 AnchorSideLeft.Control = edtHrUserName
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label182
Left = 114
Height = 17 Height = 17
Top = 36 Top = 60
Width = 39 Width = 37
BorderSpacing.Left = 6
Caption = 'Code:' Caption = 'Code:'
ParentColor = False
end end
object edtHrCode: TEdit object edtHrCode: TEdit
Left = 200 AnchorSideLeft.Control = Label183
AnchorSideTop.Control = Label183
AnchorSideTop.Side = asrBottom
Left = 114
Height = 34 Height = 34
Top = 57 Top = 77
Width = 184 Width = 184
TabOrder = 2 TabOrder = 2
Text = 'edtHrCode' Text = 'edtHrCode'
end end
object Label188: TLabel object Label188: TLabel
Left = 9 AnchorSideLeft.Control = edtHrUserName
AnchorSideTop.Control = cmbHrColor
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17 Height = 17
Top = 125 Top = 146
Width = 53 Width = 53
Caption = 'Use this' Caption = 'Use this'
ParentColor = False
end end
object cmbHrColor: TColorBox object cmbHrColor: TColorBox
Left = 64 AnchorSideLeft.Control = Label188
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkHrUpOnline
AnchorSideTop.Side = asrBottom
Left = 65
Height = 29 Height = 29
Top = 117 Top = 140
Width = 164 Width = 164
DefaultColorColor = clPurple DefaultColorColor = clPurple
NoneColorColor = clMoneyGreen NoneColorColor = clMoneyGreen
Selected = clPurple Selected = clPurple
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
ItemHeight = 28 ItemHeight = 28
TabOrder = 4 TabOrder = 4
end end
object Label189: TLabel object Label189: TLabel
Left = 237 AnchorSideLeft.Control = cmbHrColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbHrColor
AnchorSideTop.Side = asrCenter
Left = 235
Height = 17 Height = 17
Top = 125 Top = 146
Width = 338 Width = 329
BorderSpacing.Left = 6
Caption = 'color to show information in status upload window' Caption = 'color to show information in status upload window'
ParentColor = False
end
object edtHrdUrl: TEdit
AnchorSideLeft.Control = chkHrUpEnabled
AnchorSideTop.Control = chkHrUpEnabled
AnchorSideTop.Side = asrBottom
Left = 6
Height = 34
Top = 23
Width = 600
TabOrder = 5
Text = 'http://robot.hrdlog.net/NewEntry.aspx'
end end
end end
object chkCloseAfterUpload: TCheckBox object chkCloseAfterUpload: TCheckBox
AnchorSideLeft.Control = GroupBox46
AnchorSideTop.Control = GroupBox46
AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 23 Height = 23
Top = 544 Top = 627
Width = 451 Width = 442
BorderSpacing.Top = 6
Caption = 'Close the "Status of log upload" window after successful upload' Caption = 'Close the "Status of log upload" window after successful upload'
TabOrder = 3 TabOrder = 3
end end
object chkIgnoreLoTW: TCheckBox object chkIgnoreLoTW: TCheckBox
Left = 13 AnchorSideLeft.Control = GroupBox46
AnchorSideTop.Control = chkCloseAfterUpload
AnchorSideTop.Side = asrBottom
Left = 12
Height = 23 Height = 23
Top = 576 Top = 653
Width = 413 Width = 404
BorderSpacing.Top = 3
Caption = 'Ignore changes caused by LoTW/eQSL upload or download' Caption = 'Ignore changes caused by LoTW/eQSL upload or download'
TabOrder = 4 TabOrder = 4
end end

12
src/fPreferences.pas
View File

@ -515,6 +515,10 @@ type
DateEditCall: TDateEdit; DateEditCall: TDateEdit;
DateEditLoc: TDateEdit; DateEditLoc: TDateEdit;
dlgColor : TColorDialog; dlgColor : TColorDialog;
edtHrdUrl: TEdit;
edtClubLogUrl: TEdit;
edtClubLogUrlDel: TEdit;
edtHamQTHurl: TEdit;
edtGCLineWidth: TEdit; edtGCLineWidth: TEdit;
edtGCStep: TEdit; edtGCStep: TEdit;
edtGCPolarDivisor: TEdit; edtGCPolarDivisor: TEdit;
@ -1683,6 +1687,7 @@ begin
cqrini.WriteString('OnlineLog','HaUserName',edtHaUserName.Text); cqrini.WriteString('OnlineLog','HaUserName',edtHaUserName.Text);
cqrini.WriteString('OnlineLog','HaPasswd',edtHaPasswd.Text); cqrini.WriteString('OnlineLog','HaPasswd',edtHaPasswd.Text);
cqrini.WriteInteger('OnlineLog','HaColor',cmbHaColor.Selected); cqrini.WriteInteger('OnlineLog','HaColor',cmbHaColor.Selected);
cqrini.WriteString('OnlineLog','HaUrl',edtHamQthUrl.Text);
cqrini.WriteBool('OnlineLog','ClUP',chkClUpEnabled.Checked); cqrini.WriteBool('OnlineLog','ClUP',chkClUpEnabled.Checked);
cqrini.WriteBool('OnlineLog','ClUpOnline',chkClUpOnline.Checked); cqrini.WriteBool('OnlineLog','ClUpOnline',chkClUpOnline.Checked);
@ -1690,6 +1695,8 @@ begin
cqrini.WriteString('OnlineLog','ClPasswd',edtClPasswd.Text); cqrini.WriteString('OnlineLog','ClPasswd',edtClPasswd.Text);
cqrini.WriteString('OnlineLog','ClEmail',edtClEmail.Text); cqrini.WriteString('OnlineLog','ClEmail',edtClEmail.Text);
cqrini.WriteInteger('OnlineLog','ClColor',cmbClColor.Selected); cqrini.WriteInteger('OnlineLog','ClColor',cmbClColor.Selected);
cqrini.WriteString('OnlineLog','ClUrl',edtClubLogUrl.Text);
cqrini.WriteString('OnlineLog','ClUrlDel',edtClubLogUrlDel.Text);
cqrini.WriteBool('OnlineLog','HrUP',chkHrUpEnabled.Checked); cqrini.WriteBool('OnlineLog','HrUP',chkHrUpEnabled.Checked);
cqrini.WriteBool('OnlineLog','HrUpOnline',chkHrUpOnline.Checked); cqrini.WriteBool('OnlineLog','HrUpOnline',chkHrUpOnline.Checked);
@ -1698,6 +1705,7 @@ begin
cqrini.WriteInteger('OnlineLog','HrColor',cmbHrColor.Selected); cqrini.WriteInteger('OnlineLog','HrColor',cmbHrColor.Selected);
cqrini.WriteBool('OnlineLog','CloseAfterUpload',chkCloseAfterUpload.Checked); cqrini.WriteBool('OnlineLog','CloseAfterUpload',chkCloseAfterUpload.Checked);
cqrini.WriteBool('OnlineLog','IgnoreLoTWeQSL',chkIgnoreLoTW.Checked); cqrini.WriteBool('OnlineLog','IgnoreLoTWeQSL',chkIgnoreLoTW.Checked);
cqrini.WriteString('OnlineLog','HrUrl',edtHrdUrl.Text);
cqrini.WriteString('prop','Url',edtCondxImageUrl.Text); cqrini.WriteString('prop','Url',edtCondxImageUrl.Text);
cqrini.WriteBool('prop','AsImage',rbCondxAsImage.Checked); cqrini.WriteBool('prop','AsImage',rbCondxAsImage.Checked);
@ -3318,6 +3326,7 @@ begin
edtHaUserName.Text := cqrini.ReadString('OnlineLog','HaUserName',''); edtHaUserName.Text := cqrini.ReadString('OnlineLog','HaUserName','');
edtHaPasswd.Text := cqrini.ReadString('OnlineLog','HaPasswd',''); edtHaPasswd.Text := cqrini.ReadString('OnlineLog','HaPasswd','');
cmbHaColor.Selected := cqrini.ReadInteger('OnlineLog','HaColor',clBlue); cmbHaColor.Selected := cqrini.ReadInteger('OnlineLog','HaColor',clBlue);
edtHamQthUrl.Text := cqrini.ReadString('OnlineLog','HaUrl','http://www.hamqth.com/qso_realtime.php');
chkHaUpEnabledChange(nil); chkHaUpEnabledChange(nil);
chkClUpEnabled.Checked := cqrini.ReadBool('OnlineLog','ClUP',False); chkClUpEnabled.Checked := cqrini.ReadBool('OnlineLog','ClUP',False);
@ -3326,6 +3335,8 @@ begin
edtClPasswd.Text := cqrini.ReadString('OnlineLog','ClPasswd',''); edtClPasswd.Text := cqrini.ReadString('OnlineLog','ClPasswd','');
edtClEmail.Text := cqrini.ReadString('OnlineLog','ClEmail',''); edtClEmail.Text := cqrini.ReadString('OnlineLog','ClEmail','');
cmbClColor.Selected := cqrini.ReadInteger('OnlineLog','ClColor',clRed); cmbClColor.Selected := cqrini.ReadInteger('OnlineLog','ClColor',clRed);
edtClubLogUrl.Text := cqrini.ReadString('OnlineLog','ClUrl','https://secure.clublog.org/realtime.php');
edtClubLogUrlDel.Text := cqrini.ReadString('OnlineLog','ClUrlDel','https://secure.clublog.org/delete.php');
chkClUpEnabledChange(nil); chkClUpEnabledChange(nil);
chkHrUpEnabled.Checked := cqrini.ReadBool('OnlineLog','HrUP',False); chkHrUpEnabled.Checked := cqrini.ReadBool('OnlineLog','HrUP',False);
@ -3335,6 +3346,7 @@ begin
cmbHrColor.Selected := cqrini.ReadInteger('OnlineLog','HrColor',clPurple); cmbHrColor.Selected := cqrini.ReadInteger('OnlineLog','HrColor',clPurple);
chkCloseAfterUpload.Checked := cqrini.ReadBool('OnlineLog','CloseAfterUpload',False); chkCloseAfterUpload.Checked := cqrini.ReadBool('OnlineLog','CloseAfterUpload',False);
chkIgnoreLoTW.Checked := cqrini.ReadBool('OnlineLog','IgnoreLoTWeQSL',False); chkIgnoreLoTW.Checked := cqrini.ReadBool('OnlineLog','IgnoreLoTWeQSL',False);
edtHrdUrl.Text := cqrini.ReadString('OnlineLog','HrUrl','http://robot.hrdlog.net/NewEntry.aspx');
chkHrUpEnabledChange(nil); chkHrUpEnabledChange(nil);
edtCondxImageUrl.Text := cqrini.ReadString('prop','Url','http://www.hamqsl.com/solarbrief.php'); edtCondxImageUrl.Text := cqrini.ReadString('prop','Url','http://www.hamqsl.com/solarbrief.php');

2
src/uVersion.pas
View File

@ -21,7 +21,7 @@ const
cRELEAS = 0; cRELEAS = 0;
cBUILD = 1; cBUILD = 1;
cBUILD_DATE = '2022-07-05'; cBUILD_DATE = '2023-01-02';
implementation implementation