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

Grayline fix

Browse Source 
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:
OH1KH 2022-06-06 08:38:53 +03:00
parent 823332ccb2
commit b344a59fd4
6 changed files with 265 additions and 129 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
help/h1.html
View File

@ -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 &gt; 0.0 and &lt; 40.0. In polar areas where distance/degree is smaller this value is divided by integer divisor value &gt; 0 and &lt; 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
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 115 KiB

After

Width:  |  Height:  |  Size: 126 KiB

4
src/fGrayline.pas
View File

@ -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

291
src/fPreferences.lfm
View File

@ -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

67
src/fPreferences.pas
View File

@ -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

29
src/gline2.pas
View File

@ -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.