mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
Fix for Online Logs Url
Problem arised with hadcoded Online logs Url address change. Made Urls changeable via preferences/online log upload.
This commit is contained in:
parent
98a8ba5d0d
commit
68de955383
@ -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)
|
||||||
|
Binary file not shown.
Before Width: | Height: | Size: 37 KiB After Width: | Height: | Size: 68 KiB |
@ -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;
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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');
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user