mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
Grayline fix
Fixed great circle plot follwing ways: - max pathline points added to 5000 - default step set to 0.1 (degrees). This makes polar plottings lot better - added adjustable ploth width 1-5 pixels - removed black background from plotted line - added adjustable colors to short- and longpath lines - fixed help page - fixed prferences/program layout and changed old qso color selector same as with path line color settings. Thanks Martin, OK1RR, for help and ideas. Squashed commit of the following: commit a6b5022db53fdae5499bfcec304f824ada9c001d Author: OH1KH <oh1kh@sral.fi> Date: Mon Jun 6 08:37:47 2022 +0300 defaults fix commit eda8ce2d7195e04efe1f5a3b2c375381d3e5c9c9 Author: OH1KH <oh1kh@sral.fi> Date: Mon Jun 6 08:23:05 2022 +0300 Plot line black background remove. Plot line widith and colors adjustable, help fix commit b35f08601b3efa2649ab6651924b39a554df484e Author: OH1KH <oh1kh@sral.fi> Date: Mon Jun 6 05:18:33 2022 +0300 change of defaults and max of plotting points
This commit is contained in:
parent
823332ccb2
commit
b344a59fd4
@ -102,7 +102,8 @@
|
||||
You can set your own correction.
|
||||
<br><br>
|
||||
<strong>Great circle </strong> Short and Long path line plotting may be adjusted here. Plotting step is decimal degrees > 0.0 and < 40.0. In polar areas where distance/degree is smaller this value is divided by integer divisor value > 0 and < 40.
|
||||
<br>You may test different values if you like. If Columns are left empty the default values 1.5 and 10 are replaced.
|
||||
<br>You may test different values if you like. If Columns are left empty the default values 0.1 and 10 are replaced.
|
||||
<br>Color for Short- and Longpath lines can be selected, as well as the line plot width (1 -5 pixels)
|
||||
<br><br>
|
||||
<strong>Check for newer version of DXCC tables after program startup</strong></a> - if checked,
|
||||
CQRLOG will check if any update of the country files is available. If a new version is found,
|
||||
|
BIN
help/img/h5.png
BIN
help/img/h5.png
Binary file not shown.
Before Width: | Height: | Size: 115 KiB After Width: | Height: | Size: 126 KiB |
@ -546,7 +546,9 @@ var
|
||||
Begin
|
||||
BaseStep := cqrini.ReadFloat('Program', 'GraylineGCstep',15E-001) * pi/180;
|
||||
PolarStep := Basestep/cqrini.ReadInteger('Program', 'GraylineGCstep',10);
|
||||
|
||||
ob^.GC_LWidth := cqrini.ReadInteger('Program', 'GraylineGCLineWidth',2);
|
||||
ob^.GC_SP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineSPColor', 'clYellow' ));
|
||||
ob^.GC_LP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineLPColor', 'clFuchsia' ));
|
||||
|
||||
if LocalDbg then
|
||||
begin
|
||||
|
@ -30,8 +30,8 @@ object frmPreferences: TfrmPreferences
|
||||
OnChange = pgPreferencesChange
|
||||
object tabProgram: TTabSheet
|
||||
Caption = 'Program'
|
||||
ClientHeight = 672
|
||||
ClientWidth = 836
|
||||
ClientHeight = 621
|
||||
ClientWidth = 845
|
||||
object lblWebBrowser: TLabel
|
||||
AnchorSideLeft.Control = gbInternet
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
@ -40,10 +40,11 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 350
|
||||
Height = 17
|
||||
Top = 78
|
||||
Width = 259
|
||||
Width = 249
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'Web browser for cqrlog (if not default)'
|
||||
ParentColor = False
|
||||
end
|
||||
object gbInternet: TGroupBox
|
||||
AnchorSideLeft.Control = tabProgram
|
||||
@ -64,18 +65,20 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 7
|
||||
Height = 17
|
||||
Top = 24
|
||||
Width = 41
|
||||
Width = 40
|
||||
Caption = 'Proxy:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblIntPort: TLabel
|
||||
AnchorSideLeft.Control = lblIntPasswd
|
||||
AnchorSideTop.Control = edtPort
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 169
|
||||
Left = 173
|
||||
Height = 17
|
||||
Top = 24
|
||||
Width = 34
|
||||
Width = 30
|
||||
Caption = 'Port:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblIntUser: TLabel
|
||||
AnchorSideLeft.Control = lblintProxy
|
||||
@ -84,26 +87,28 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 7
|
||||
Height = 17
|
||||
Top = 67
|
||||
Width = 35
|
||||
Width = 34
|
||||
Caption = 'User:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblIntPasswd: TLabel
|
||||
AnchorSideTop.Control = edtPasswd
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = edtPasswd
|
||||
Left = 169
|
||||
Left = 173
|
||||
Height = 17
|
||||
Top = 67
|
||||
Width = 70
|
||||
Width = 66
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'Password:'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtProxy: TEdit
|
||||
AnchorSideLeft.Control = lblintProxy
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = gbInternet
|
||||
Left = 54
|
||||
Left = 53
|
||||
Height = 34
|
||||
Top = 15
|
||||
Width = 100
|
||||
@ -127,7 +132,7 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideLeft.Control = edtProxy
|
||||
AnchorSideTop.Control = edtProxy
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 54
|
||||
Left = 53
|
||||
Height = 34
|
||||
Top = 58
|
||||
Width = 100
|
||||
@ -195,7 +200,7 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 135
|
||||
Width = 434
|
||||
Width = 423
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'Check for newer version of dxcc tables after program startup'
|
||||
TabOrder = 3
|
||||
@ -207,7 +212,7 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 204
|
||||
Width = 262
|
||||
Width = 257
|
||||
Caption = 'Show deleted countries in statistics'
|
||||
TabOrder = 4
|
||||
end
|
||||
@ -218,7 +223,7 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 227
|
||||
Width = 207
|
||||
Width = 206
|
||||
Caption = 'Show sunrise/sunset in UTC'
|
||||
TabOrder = 5
|
||||
end
|
||||
@ -229,33 +234,34 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 158
|
||||
Width = 517
|
||||
Width = 505
|
||||
Caption = 'Check for newer version of qsl managers database after program startup'
|
||||
TabOrder = 6
|
||||
end
|
||||
object gbOffsets: TGroupBox
|
||||
AnchorSideLeft.Control = gbInternet
|
||||
AnchorSideTop.Control = lblQsoColorDate
|
||||
AnchorSideTop.Control = edtQSOColorDate
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 195
|
||||
Top = 327
|
||||
Height = 203
|
||||
Top = 333
|
||||
Width = 626
|
||||
BorderSpacing.Top = 3
|
||||
Caption = ' Offsets '
|
||||
ClientHeight = 177
|
||||
BorderSpacing.Top = 9
|
||||
Caption = ' Offsets and colors'
|
||||
ClientHeight = 185
|
||||
ClientWidth = 624
|
||||
TabOrder = 7
|
||||
object lblUtc: TLabel
|
||||
AnchorSideLeft.Control = edtOffset
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = edtOffset
|
||||
Left = 469
|
||||
Left = 193
|
||||
Height = 17
|
||||
Top = 3
|
||||
Top = 11
|
||||
Width = 27
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'UTC'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGrayline: TLabel
|
||||
AnchorSideLeft.Control = LblTimes
|
||||
@ -263,33 +269,35 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 64
|
||||
Width = 58
|
||||
Top = 79
|
||||
Width = 59
|
||||
BorderSpacing.Top = 15
|
||||
Caption = 'Grayline:'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblSunRiseSet: TLabel
|
||||
AnchorSideLeft.Control = edtSunOffset
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = edtSunOffset
|
||||
Left = 532
|
||||
Left = 233
|
||||
Height = 17
|
||||
Top = 3
|
||||
Width = 79
|
||||
Top = 11
|
||||
Width = 76
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Sun rise/set'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtOffset: TEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = chkSysUTC
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = edtSunOffset
|
||||
Left = 452
|
||||
Left = 176
|
||||
Height = 34
|
||||
Top = 20
|
||||
Top = 28
|
||||
Width = 60
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 30
|
||||
BorderSpacing.Right = 6
|
||||
TabOrder = 0
|
||||
Text = '0'
|
||||
end
|
||||
@ -300,7 +308,7 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 128
|
||||
Height = 34
|
||||
Top = 81
|
||||
Top = 96
|
||||
Width = 50
|
||||
TabOrder = 1
|
||||
Text = '0'
|
||||
@ -309,15 +317,14 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtOffset
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = gbOffsets
|
||||
AnchorSideRight.Control = lblGraylineHint
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 542
|
||||
Left = 242
|
||||
Height = 34
|
||||
Top = 20
|
||||
Top = 28
|
||||
Width = 58
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 24
|
||||
TabOrder = 2
|
||||
Text = '0'
|
||||
end
|
||||
@ -326,12 +333,12 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideTop.Control = LblTimes
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 3
|
||||
Height = 23
|
||||
Height = 38
|
||||
Top = 26
|
||||
Width = 252
|
||||
Width = 122
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'get UTC time from computer time'
|
||||
Caption = 'get UTC from '#10'computer time'
|
||||
OnClick = chkSysUTCClick
|
||||
TabOrder = 3
|
||||
end
|
||||
@ -341,9 +348,10 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 115
|
||||
Top = 130
|
||||
Width = 294
|
||||
Caption = 'Sometimes grayline is not accurate, you can '#10'enter the correction here (in hours, try -1.25)'
|
||||
ParentColor = False
|
||||
end
|
||||
object LblTimes: TLabel
|
||||
AnchorSideLeft.Control = gbOffsets
|
||||
@ -351,34 +359,35 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 3
|
||||
Width = 37
|
||||
Width = 36
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
Caption = 'Time:'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtGCStep: TEdit
|
||||
AnchorSideLeft.Control = lblGCHint
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = edtGrayLineOffset
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = edtOffset
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 432
|
||||
Left = 430
|
||||
Height = 34
|
||||
Top = 81
|
||||
Top = 96
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
OnExit = edtGCStepExit
|
||||
TabOrder = 4
|
||||
end
|
||||
object edtGCPolarDivisor: TEdit
|
||||
AnchorSideTop.Control = edtGrayLineOffset
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = lblSunRiseSet
|
||||
AnchorSideRight.Control = gbOffsets
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 531
|
||||
Left = 538
|
||||
Height = 34
|
||||
Top = 81
|
||||
Top = 96
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
NumbersOnly = True
|
||||
OnExit = edtGCPolarDivisorExit
|
||||
TabOrder = 5
|
||||
@ -387,47 +396,128 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideLeft.Control = edtGCStep
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = edtGCStep
|
||||
Left = 457
|
||||
Left = 456
|
||||
Height = 17
|
||||
Top = 64
|
||||
Width = 31
|
||||
Top = 79
|
||||
Width = 29
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Step'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGCDivisor: TLabel
|
||||
AnchorSideLeft.Control = edtGCPolarDivisor
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = edtGCPolarDivisor
|
||||
Left = 548
|
||||
Left = 555
|
||||
Height = 17
|
||||
Top = 64
|
||||
Width = 47
|
||||
Top = 79
|
||||
Width = 46
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Divisor'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGCHint: TLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtGCPolarDivisor
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = edtGCPolarDivisor
|
||||
AnchorSideRight.Control = gbOffsets
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 309
|
||||
Left = 322
|
||||
Height = 51
|
||||
Top = 115
|
||||
Width = 302
|
||||
Top = 130
|
||||
Width = 296
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Great circle plotting setps in desimal degrees'#10'Step divisor is used in polar areas N and S '#10'where distance/degree is smaller'
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'Great circle plotting setps in decimal degrees'#10'Step divisor is used in N and S polar areas'#10'where distance/degree is smaller'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGLOffset: TLabel
|
||||
AnchorSideLeft.Control = edtGrayLineOffset
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = edtGrayLineOffset
|
||||
Left = 132
|
||||
Left = 133
|
||||
Height = 17
|
||||
Top = 64
|
||||
Width = 43
|
||||
Top = 79
|
||||
Width = 40
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Offset'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtGCLineWidth: TEdit
|
||||
AnchorSideLeft.Control = lblGCHint
|
||||
AnchorSideTop.Control = edtGCStep
|
||||
Left = 322
|
||||
Height = 34
|
||||
Top = 96
|
||||
Width = 80
|
||||
NumbersOnly = True
|
||||
OnExit = edtGCLineWidthExit
|
||||
TabOrder = 6
|
||||
end
|
||||
object lblGCwidth: TLabel
|
||||
AnchorSideLeft.Control = edtGCLineWidth
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = edtGCLineWidth
|
||||
Left = 328
|
||||
Height = 17
|
||||
Top = 79
|
||||
Width = 69
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Line Width'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGC_SP_Color: TLabel
|
||||
AnchorSideLeft.Control = btnSPColor
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = lblUtc
|
||||
Left = 342
|
||||
Height = 17
|
||||
Top = 11
|
||||
Width = 91
|
||||
Caption = 'ShortPath line'
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGC_LP_Color: TLabel
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = lblUtc
|
||||
Left = 503
|
||||
Height = 17
|
||||
Top = 11
|
||||
Width = 88
|
||||
Caption = 'LongPath line'
|
||||
ParentColor = False
|
||||
end
|
||||
object btnSPColor: TButton
|
||||
AnchorSideLeft.Control = lblGCHint
|
||||
AnchorSideTop.Control = edtOffset
|
||||
Left = 322
|
||||
Height = 34
|
||||
Hint = 'Click to select color'
|
||||
Top = 28
|
||||
Width = 130
|
||||
Caption = 'Select Color'
|
||||
Color = clYellow
|
||||
OnClick = btnSPColorClick
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 7
|
||||
end
|
||||
object btnLPColor: TButton
|
||||
AnchorSideTop.Control = edtOffset
|
||||
AnchorSideRight.Control = lblGCHint
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 488
|
||||
Height = 34
|
||||
Hint = 'Click to select color'
|
||||
Top = 28
|
||||
Width = 130
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Select Color'
|
||||
Color = clFuchsia
|
||||
OnClick = btnLPColorClick
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 8
|
||||
end
|
||||
end
|
||||
object chkShowMiles: TCheckBox
|
||||
@ -437,7 +527,7 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 250
|
||||
Width = 175
|
||||
Width = 176
|
||||
Caption = 'Show distance in miles'
|
||||
TabOrder = 8
|
||||
end
|
||||
@ -447,8 +537,8 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Top = 528
|
||||
Width = 220
|
||||
Top = 542
|
||||
Width = 213
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Configuration storage settings'
|
||||
@ -457,22 +547,23 @@ object frmPreferences: TfrmPreferences
|
||||
end
|
||||
object chkQSOColor: TCheckBox
|
||||
AnchorSideLeft.Control = chkNewDXCCTables
|
||||
AnchorSideTop.Control = chkShowMiles
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideTop.Control = edtQSOColorDate
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 273
|
||||
Width = 128
|
||||
Top = 296
|
||||
Width = 124
|
||||
Caption = 'QSO older than'
|
||||
TabOrder = 10
|
||||
end
|
||||
object edtQSOColorDate: TEdit
|
||||
AnchorSideLeft.Control = chkQSOColor
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = chkQSOColor
|
||||
Left = 137
|
||||
AnchorSideTop.Control = lblQsoColorDate
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 133
|
||||
Height = 34
|
||||
Top = 273
|
||||
Top = 290
|
||||
Width = 104
|
||||
BorderSpacing.Left = 3
|
||||
TabOrder = 11
|
||||
@ -482,51 +573,43 @@ object frmPreferences: TfrmPreferences
|
||||
AnchorSideLeft.Control = edtQSOColorDate
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtQSOColorDate
|
||||
Left = 244
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 240
|
||||
Height = 17
|
||||
Top = 273
|
||||
Width = 167
|
||||
Top = 299
|
||||
Width = 162
|
||||
BorderSpacing.Left = 3
|
||||
Caption = 'show with different color'
|
||||
end
|
||||
object pnlQSOColor: TPanel
|
||||
AnchorSideLeft.Control = lblDiffColor
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = lblDiffColor
|
||||
Left = 414
|
||||
Height = 42
|
||||
Top = 273
|
||||
Width = 106
|
||||
BorderSpacing.Left = 3
|
||||
BevelInner = bvRaised
|
||||
TabOrder = 12
|
||||
OnClick = pnlQSOColorClick
|
||||
ParentColor = False
|
||||
end
|
||||
object btnSelectQSOColor: TButton
|
||||
AnchorSideLeft.Control = pnlQSOColor
|
||||
AnchorSideLeft.Control = lblDiffColor
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pnlQSOColor
|
||||
AnchorSideTop.Control = edtQSOColorDate
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 532
|
||||
Left = 414
|
||||
Height = 33
|
||||
Top = 278
|
||||
Width = 57
|
||||
AutoSize = True
|
||||
Hint = 'Click to select color'
|
||||
Top = 291
|
||||
Width = 130
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'Select'
|
||||
Caption = 'Select Color'
|
||||
OnClick = btnSelectQSOColorClick
|
||||
TabOrder = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 12
|
||||
end
|
||||
object lblQsoColorDate: TLabel
|
||||
AnchorSideLeft.Control = edtQSOColorDate
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = edtQSOColorDate
|
||||
AnchorSideTop.Control = chkShowMiles
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 140
|
||||
Left = 138
|
||||
Height = 17
|
||||
Top = 307
|
||||
Width = 99
|
||||
Top = 273
|
||||
Width = 94
|
||||
Caption = '(YYYY-MM-DD)'
|
||||
ParentColor = False
|
||||
end
|
||||
object chkNewDOKTables: TCheckBox
|
||||
AnchorSideLeft.Control = chkNewDXCCTables
|
||||
@ -535,9 +618,9 @@ object frmPreferences: TfrmPreferences
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 181
|
||||
Width = 458
|
||||
Width = 446
|
||||
Caption = 'Check for newer version of DOK database after program startup'
|
||||
TabOrder = 14
|
||||
TabOrder = 13
|
||||
end
|
||||
end
|
||||
object tabStation: TTabSheet
|
||||
|
@ -32,6 +32,7 @@ type
|
||||
btnBrowseBackup1: TButton;
|
||||
btnDefineProfile1: TButton;
|
||||
btnHelp1: TButton;
|
||||
btnLPColor: TButton;
|
||||
btnWsjtPath: TButton;
|
||||
btnSecondLoad: TButton;
|
||||
btnFrequencies1: TButton;
|
||||
@ -74,6 +75,7 @@ type
|
||||
btnAddTrxMem : TButton;
|
||||
btnSelectQSOColor : TButton;
|
||||
btnForceMembershipUpdate : TButton;
|
||||
btnSPColor: TButton;
|
||||
cb10m1: TCheckBox;
|
||||
cb12m1: TCheckBox;
|
||||
cb136kHz: TCheckBox;
|
||||
@ -513,6 +515,7 @@ type
|
||||
DateEditCall: TDateEdit;
|
||||
DateEditLoc: TDateEdit;
|
||||
dlgColor : TColorDialog;
|
||||
edtGCLineWidth: TEdit;
|
||||
edtGCStep: TEdit;
|
||||
edtGCPolarDivisor: TEdit;
|
||||
edtUsrBtn: TEdit;
|
||||
@ -734,6 +737,9 @@ type
|
||||
Label1: TLabel;
|
||||
Label10: TLabel;
|
||||
Label108: TLabel;
|
||||
lblGC_SP_Color: TLabel;
|
||||
lblGC_LP_Color: TLabel;
|
||||
lblGCwidth: TLabel;
|
||||
lblGLOffset: TLabel;
|
||||
lblGCStep: TLabel;
|
||||
lblGCDivisor: TLabel;
|
||||
@ -988,7 +994,6 @@ type
|
||||
odFindBrowser: TOpenDialog;
|
||||
pnl2Host: TPanel;
|
||||
pnlHost1: TPanel;
|
||||
pnlQSOColor : TPanel;
|
||||
pgTRXControl: TPageControl;
|
||||
pgPreferences: TPageControl;
|
||||
Panel1: TPanel;
|
||||
@ -1068,6 +1073,8 @@ type
|
||||
procedure btnChangeDefFreqClick(Sender: TObject);
|
||||
procedure btnChangeDefModeClick(Sender: TObject);
|
||||
procedure btnHelp1Click(Sender: TObject);
|
||||
procedure btnLPColorClick(Sender: TObject);
|
||||
procedure btnSPColorClick(Sender: TObject);
|
||||
procedure btnWsjtPathClick(Sender: TObject);
|
||||
procedure btnFldigiPathClick(Sender: TObject);
|
||||
procedure btnSelectQSOColorClick(Sender : TObject);
|
||||
@ -1099,6 +1106,7 @@ type
|
||||
procedure cmbModelRot1Change(Sender: TObject);
|
||||
procedure cmbModelRot2Change(Sender: TObject);
|
||||
procedure edtAlertCmdExit(Sender: TObject);
|
||||
procedure edtGCLineWidthExit(Sender: TObject);
|
||||
procedure edtGCPolarDivisorExit(Sender: TObject);
|
||||
procedure edtGCStepExit(Sender: TObject);
|
||||
procedure edtHtmlFilesClick(Sender: TObject);
|
||||
@ -1147,7 +1155,6 @@ type
|
||||
procedure edtPoll2Exit(Sender: TObject);
|
||||
procedure edtPoll1Exit(Sender: TObject);
|
||||
procedure pgPreferencesChange(Sender: TObject);
|
||||
procedure pnlQSOColorClick(Sender : TObject);
|
||||
private
|
||||
wasOnlineLogSupportEnabled : Boolean;
|
||||
|
||||
@ -1236,6 +1243,9 @@ begin
|
||||
cqrini.WriteFloat('Program', 'GraylineOffset', StrToCurr(edtGrayLineOffset.Text));
|
||||
cqrini.WriteFloat('Program', 'GraylineGCstep',StrToCurr(edtGCStep.Caption));
|
||||
cqrini.WriteInteger('Program', 'GraylineGCPolarDivisor',StrToInt(edtGCPolarDivisor.Caption));
|
||||
cqrini.WriteInteger('Program', 'GraylineGCLineWidth',StrToInt(edtGCLineWidth.Caption));
|
||||
cqrini.WriteString('Program', 'GraylineGCLineSPColor', ColorToString(btnSPColor.Color));
|
||||
cqrini.WriteString('Program', 'GraylineGCLineLPColor', ColorToString(btnLPColor.Color));
|
||||
|
||||
if edtWebBrowser.Text = '' then edtWebBrowser.Text:= dmUtils.MyDefaultBrowser; //may not be empty string
|
||||
cqrini.WriteString('Program', 'WebBrowser', edtWebBrowser.Text);
|
||||
@ -1249,7 +1259,7 @@ begin
|
||||
cqrini.WriteBool('Program', 'SysUTC', chkSysUTC.Checked);
|
||||
cqrini.WriteBool('Program','ShowMiles',chkShowMiles.Checked);
|
||||
cqrini.WriteBool('Program', 'QSODiffColor', chkQSOColor.Checked);
|
||||
cqrini.WriteInteger('Program', 'QSOColor', pnlQSOColor.Color);
|
||||
cqrini.WriteInteger('Program', 'QSOColor', btnSelectQSOColor.Color);
|
||||
cqrini.WriteString('Program', 'QSOColorDate', edtQSOColorDate.Text);
|
||||
|
||||
cqrini.WriteBool('Columns', 'Date', chkDate.Checked);
|
||||
@ -2150,9 +2160,10 @@ end;
|
||||
|
||||
procedure TfrmPreferences.btnSelectQSOColorClick(Sender : TObject);
|
||||
begin
|
||||
dlgColor.Color := pnlQSOColor.Color;
|
||||
dlgColor.Color := btnSelectQSOColor.Color;
|
||||
if dlgColor.Execute then
|
||||
pnlQSOColor.Color := dlgColor.Color
|
||||
btnSelectQSOColor.Color := dlgColor.Color;
|
||||
btnSelectQSOColor.Repaint;
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.btnChangeDefFreqClick(Sender: TObject);
|
||||
@ -2204,6 +2215,23 @@ begin
|
||||
dmUtils.OpenInApp('file://' + dmData.HelpDir + 'index.html' );
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.btnLPColorClick(Sender: TObject);
|
||||
begin
|
||||
dlgColor.Color := btnLPColor.Color;
|
||||
if dlgColor.Execute then
|
||||
btnLPColor.Color := dlgColor.Color;
|
||||
btnLPColor.Repaint;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmPreferences.btnSPColorClick(Sender: TObject);
|
||||
begin
|
||||
dlgColor.Color := btnSPColor.Color;
|
||||
if dlgColor.Execute then
|
||||
btnSPColor.Color := dlgColor.Color;
|
||||
btnSPColor.Repaint;
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.btnWsjtPathClick(Sender: TObject);
|
||||
begin
|
||||
dlgOpen.Title := 'Locate wsjtx binary ...';
|
||||
@ -2568,6 +2596,18 @@ begin
|
||||
// ~ in command causes DXCluster spot flow stop (!?)
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.edtGCLineWidthExit(Sender: TObject);
|
||||
var v:integer;
|
||||
begin
|
||||
if TryStrToInt(edtGCLineWidth.Caption,v) then
|
||||
begin
|
||||
if ((v<=0) or (v>5)) then
|
||||
edtGCLineWidth.Caption:='2' //replace with default
|
||||
end
|
||||
else
|
||||
edtGCLineWidth.Caption:='2' //replace with default
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.edtGCPolarDivisorExit(Sender: TObject);
|
||||
var v:integer;
|
||||
begin
|
||||
@ -2586,10 +2626,10 @@ begin
|
||||
if TryStrToFloat(edtGCStep.Caption,v) then
|
||||
Begin
|
||||
if ((v<=0) or (v>40)) then
|
||||
edtGCStep.Caption:='1.5'; //error use default value;
|
||||
edtGCStep.Caption:='0.1'; //error use default value;
|
||||
end
|
||||
else
|
||||
edtGCStep.Caption:='1.5'; //on convert error use default value;
|
||||
edtGCStep.Caption:='0.1'; //on convert error use default value;
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.edtHtmlFilesClick(Sender: TObject);
|
||||
@ -2806,8 +2846,13 @@ begin
|
||||
edtOffset.Text := CurrToStr(cqrini.ReadFloat('Program', 'offset', 0));
|
||||
pgPreferences.ActivePageIndex := cqrini.ReadInteger('Program', 'Options', 0);
|
||||
edtGrayLineOffset.Text := CurrToStr(cqrini.ReadFloat('Program', 'GraylineOffset', 0));
|
||||
edtGCStep.Caption := CurrToStr(cqrini.ReadFloat('Program', 'GraylineGCstep',15E-001));
|
||||
edtGCStep.Caption := CurrToStr(cqrini.ReadFloat('Program', 'GraylineGCstep',0.1));
|
||||
edtGCPolarDivisor.Caption := IntToStr(cqrini.ReadInteger('Program', 'GraylineGCPolarDivisor',10));
|
||||
edtGCLineWidth.Caption := IntToStr(cqrini.ReadInteger('Program', 'GraylineGCLineWidth',2));
|
||||
btnSPColor.Color := StringToColor(cqrini.ReadString('Program', 'GraylineGCLineSPColor', 'clYellow' ));
|
||||
btnLPColor.Color := StringToColor(cqrini.ReadString('Program', 'GraylineGCLineLPColor', 'clFuchsia' ));
|
||||
|
||||
|
||||
edtWebBrowser.Text := cqrini.ReadString('Program', 'WebBrowser', dmUtils.MyDefaultBrowser);
|
||||
chkNewDXCCTables.Checked := cqrini.ReadBool('Program', 'CheckDXCCTabs', True);
|
||||
chkShowDeleted.Checked := cqrini.ReadBool('Program', 'ShowDeleted', False);
|
||||
@ -2818,7 +2863,7 @@ begin
|
||||
chkSysUTC.Checked := cqrini.ReadBool('Program', 'SysUTC', True);
|
||||
chkShowMiles.Checked := cqrini.ReadBool('Program','ShowMiles',False);
|
||||
chkQSOColor.Checked := cqrini.ReadBool('Program', 'QSODiffColor', False);
|
||||
pnlQSOColor.Color := cqrini.ReadInteger('Program', 'QSOColor', clBlack);
|
||||
btnSelectQSOColor.Color := cqrini.ReadInteger('Program', 'QSOColor', clPurple);
|
||||
edtQSOColorDate.Text := cqrini.ReadString('Program', 'QSOColorDate', '');
|
||||
|
||||
if cqrini.ReadBool('Program', 'BandStatMHz', True) then
|
||||
@ -3340,10 +3385,6 @@ begin
|
||||
lbPreferences.Selected[pgPreferences.ActivePageIndex] := True;
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.pnlQSOColorClick(Sender : TObject);
|
||||
begin
|
||||
btnSelectQSOColor.Click
|
||||
end;
|
||||
|
||||
procedure TfrmPreferences.SaveClubSection;
|
||||
begin
|
||||
|
@ -53,7 +53,10 @@ var star_time_u:extended;
|
||||
|
||||
type
|
||||
Tgrayline=object
|
||||
const GC_Points_Max = 500;
|
||||
GC_LWidth : integer; //plot line wdth;
|
||||
GC_SP_Color : TColor;
|
||||
GC_LP_Color : TColor;
|
||||
const GC_Points_Max = 5000;
|
||||
constructor init(naz_sou:string);
|
||||
destructor done;
|
||||
procedure VypocitejSunClock(cas:Tdatetime);
|
||||
@ -65,6 +68,7 @@ type
|
||||
procedure body_add(typ:byte;x1,y1,x2,y2:extended;popis:string;barva:tcolor;vel_bodu:longint);
|
||||
procedure body_smaz;
|
||||
|
||||
// procedure GC_line_width(LWidth:Integer); //set plot line width
|
||||
procedure GC_line_part(x1,y1,x2,y2:double); //add ShortPath point
|
||||
procedure GC_Lline_part(x1,y1,x2,y2:double); //add LongPath point
|
||||
procedure GC_line_clear(what:integer=-1); //clear S&LPath points
|
||||
@ -701,7 +705,7 @@ end;
|
||||
procedure Tgrayline.kresli(r:Trect;can:Tcanvas); //kresli =draw
|
||||
var z,x,c:longint;
|
||||
ze,zez,ze2,zez2,ze2s,zez2s:extended;
|
||||
|
||||
LWidht:integer;
|
||||
var
|
||||
|
||||
xptr:^byte;
|
||||
@ -709,15 +713,15 @@ var
|
||||
//-----------------------------------------------------------
|
||||
procedure cmarniu(x1,y1,x2,y2:longint);
|
||||
begin
|
||||
can.pen.color:=clblack;
|
||||
{ can.pen.color:=clblack;
|
||||
can.pen.Width:=5;
|
||||
can.moveto(x1,y1);
|
||||
can.lineto(x2,y2);
|
||||
can.lineto(x2,y2); }
|
||||
If LP then
|
||||
can.pen.color:=clFuchsia
|
||||
can.pen.color:=GC_LP_Color
|
||||
else
|
||||
can.pen.color:=clyellow;
|
||||
can.pen.Width:=2;
|
||||
can.pen.color:=GC_SP_Color;
|
||||
can.pen.Width:=GC_LWidth;
|
||||
can.moveto(x1,y1);
|
||||
can.lineto(x2,y2);
|
||||
end;
|
||||
@ -882,7 +886,7 @@ begin
|
||||
else
|
||||
Can.StretchDraw(r,obmap);
|
||||
|
||||
if caraen then
|
||||
if caraen then //caraen = do
|
||||
begin
|
||||
cmarni(carax1,caray1,carax2,caray2,true);
|
||||
// can.Font.Color:=clBlack;
|
||||
@ -948,7 +952,7 @@ procedure Tgrayline.jachcucaru(en:boolean;x1,y1,x2,y2:extended); //jachcucar
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure Tgrayline.body_add(typ:byte;x1,y1,x2,y2:extended;popis:string;barva:tcolor;vel_bodu:longint);
|
||||
procedure Tgrayline.body_add(typ:byte;x1,y1,x2,y2:extended;popis:string;barva:tcolor;vel_bodu:longint); //barva = color
|
||||
begin
|
||||
if chcipni then exit;
|
||||
if body_poc<body_max-1 then
|
||||
@ -1009,5 +1013,10 @@ begin
|
||||
1: GCLpointer:=0;
|
||||
end;
|
||||
end;
|
||||
|
||||
{
|
||||
procedure GC_line_width(LWidth:Integer);
|
||||
Begin
|
||||
GC_LWidth:=LWidth;
|
||||
end;
|
||||
}
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user