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

reading configuration in thread fixed

Browse Source
This commit is contained in:
Petr Hlozek 2013-09-08 09:59:41 +02:00
parent 89044de835
commit 40fddb93be
5 changed files with 119 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/fBandMap.pas
View File

@ -71,6 +71,7 @@ type
FOnlyCurrMode : Boolean;
FOnlyCurrBand : Boolean;
FxplanetFile : String;
FxplanetExport : Boolean;
procedure RecalcPosition;
procedure SortBandMapArray(l,r : Integer);
@ -101,6 +102,7 @@ type
property OnlyCurrMode : Boolean write FOnlyCurrMode;
property OnlyCurrBand : Boolean write FOnlyCurrBand;
property xplanetFile : String write FxplanetFile;
property DoXplanetExport: Boolean write FxplanetExport;
property OnBandMapClick : TBandMapClick read FBandMapClick write FBandMapClick;
//Freq in kHz
procedure AddToBandMap(Freq : Double; Call, Mode, Band, SplitInfo : String; Lat,Long : Double; ItemColor, BgColor : LongInt;
@ -284,7 +286,7 @@ begin
if RunXplanetExport > 10 then //data for xplanet couln't be exported on every bandmap reload
begin
if (cqrini.ReadInteger('xplanet','ShowFrom',0) > 0) then //data from band map to xplanet
if FxplanetExport then //data from band map to xplanet
xplanetExport;
RunXplanetExport := 0
end;
@ -484,7 +486,9 @@ end;
procedure TfrmBandMap.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
dmUtils.SaveWindowPos(frmBandMap)
dmUtils.SaveWindowPos(frmBandMap);
if cqrini.ReadBool('BandMap', 'Save', False) then
frmBandMap.SaveBandMapItemsToFile(dmData.HomeDir+'bandmap.csv')
end;
procedure TfrmBandMap.LoadFonts;

5
src/fNewQSO.pas
View File

@ -1168,6 +1168,7 @@ begin
frmBandMap.xplanetFile := dmData.HomeDir+'xplanet/marker';
frmBandMap.OnlyCurrBand := cqrini.ReadBool('BnadMap', 'OnlyActiveBand', False);
frmBandMap.OnlyCurrMode := cqrini.ReadBool('BandMap', 'OnlyActiveMode', False);
frmBandMap.DoXplanetExport := (cqrini.ReadInteger('xplanet','ShowFrom',0) > 0);
if cqrini.ReadBool('BandMap', 'Save', False) then
frmBandMap.LoadBandMapItemsFromFile(dmData.HomeDir+'bandmap.csv');
@ -1241,9 +1242,7 @@ begin
if frmBandMap.Showing then
begin
frmBandMap.Close;
cqrini.WriteBool('Window','BandMap',True);
if cqrini.ReadBool('BandMap', 'Save', False) then
frmBandMap.SaveBandMapItemsToFile(dmData.HomeDir+'bandmap.csv')
cqrini.WriteBool('Window','BandMap',True)
end
else
cqrini.WriteBool('Window','BandMap',False);

36
src/fPreferences.lfm
View File

@ -21,10 +21,10 @@ object frmPreferences: TfrmPreferences
Height = 566
Top = 0
Width = 639
ActivePage = tabBandMap
ActivePage = tabXplanet
Align = alClient
Anchors = [akLeft, akRight, akBottom]
TabIndex = 15
TabIndex = 16
TabOrder = 0
OnChange = pgPreferencesChange
OnPageChanged = pgPreferencesChange
@ -5072,7 +5072,7 @@ object frmPreferences: TfrmPreferences
Top = 11
Width = 545
Caption = ' First '
ClientHeight = 73
ClientHeight = 87
ClientWidth = 541
TabOrder = 0
object Label74: TLabel
@ -5124,7 +5124,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 41
ClientHeight = 55
ClientWidth = 180
Items.Strings = (
'before town address'
@ -5156,7 +5156,7 @@ object frmPreferences: TfrmPreferences
Top = 123
Width = 545
Caption = ' Second '
ClientHeight = 73
ClientHeight = 87
ClientWidth = 541
TabOrder = 1
object Label76: TLabel
@ -5208,7 +5208,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 44
ClientHeight = 58
ClientWidth = 180
Items.Strings = (
'before town address'
@ -5240,7 +5240,7 @@ object frmPreferences: TfrmPreferences
Top = 235
Width = 545
Caption = ' Third '
ClientHeight = 73
ClientHeight = 87
ClientWidth = 541
TabOrder = 2
object Label78: TLabel
@ -5292,7 +5292,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 41
ClientHeight = 55
ClientWidth = 180
Items.Strings = (
'before town address'
@ -5353,7 +5353,7 @@ object frmPreferences: TfrmPreferences
Top = 6
Width = 513
Caption = ' Data for access to ARRL LoTW website '
ClientHeight = 41
ClientHeight = 55
ClientWidth = 509
TabOrder = 2
object Label80: TLabel
@ -5423,7 +5423,7 @@ object frmPreferences: TfrmPreferences
Top = 91
Width = 513
Caption = ' Data for access to eQSL website '
ClientHeight = 41
ClientHeight = 55
ClientWidth = 509
TabOrder = 6
object Label108: TLabel
@ -5522,7 +5522,7 @@ object frmPreferences: TfrmPreferences
Top = 54
Width = 497
Caption = ' WinKeyer USB '
ClientHeight = 89
ClientHeight = 103
ClientWidth = 493
TabOrder = 1
object Label84: TLabel
@ -5628,7 +5628,7 @@ object frmPreferences: TfrmPreferences
Top = 182
Width = 497
Caption = ' cwdaemon '
ClientHeight = 74
ClientHeight = 88
ClientWidth = 493
TabOrder = 2
object Label87: TLabel
@ -5710,7 +5710,7 @@ object frmPreferences: TfrmPreferences
Top = 6
Width = 587
Caption = ' Reading data from fldigi'
ClientHeight = 369
ClientHeight = 383
ClientWidth = 583
TabOrder = 0
object Label91: TLabel
@ -5753,7 +5753,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 83
ClientHeight = 97
ClientWidth = 205
ItemIndex = 0
Items.Strings = (
@ -5785,7 +5785,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 81
ClientHeight = 95
ClientWidth = 220
Items.Strings = (
'CQRLOG'
@ -5818,7 +5818,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 74
ClientHeight = 88
ClientWidth = 181
Items.Strings = (
'fldigi'
@ -5943,7 +5943,7 @@ object frmPreferences: TfrmPreferences
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 57
ClientHeight = 71
ClientWidth = 492
Items.Strings = (
'callsign, date and time (yourcall__yyyy-mm-dd__hh-mm-ss.adi)'
@ -6040,7 +6040,7 @@ object frmPreferences: TfrmPreferences
Top = 8
Width = 585
Caption = ' Callbook search '
ClientHeight = 129
ClientHeight = 143
ClientWidth = 581
TabOrder = 0
object rbHamQTH: TRadioButton

184
src/fPreferences.lrs
View File

@ -9,8 +9,8 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+'oseQuery'#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7
+#16'poMainFormCenter'#10'LCLVersion'#6#8'0.9.30.2'#0#12'TPageControl'#13'pgP'
+'references'#4'Left'#3#160#0#6'Height'#3'6'#2#3'Top'#2#0#5'Width'#3#127#2#10
+'ActivePage'#7#10'tabBandMap'#5'Align'#7#8'alClient'#7'Anchors'#11#6'akLeft'
+#7'akRight'#8'akBottom'#0#8'TabIndex'#2#15#8'TabOrder'#2#0#8'OnChange'#7#19
+'ActivePage'#7#10'tabXplanet'#5'Align'#7#8'alClient'#7'Anchors'#11#6'akLeft'
+#7'akRight'#8'akBottom'#0#8'TabIndex'#2#16#8'TabOrder'#2#0#8'OnChange'#7#19
+'pgPreferencesChange'#13'OnPageChanged'#7#19'pgPreferencesChange'#0#9'TTabSh'
+'eet'#10'tabProgram'#7'Caption'#6#7'Program'#12'ClientHeight'#3#17#2#11'Clie'
+'ntWidth'#3'w'#2#0#6'TLabel'#7'Label60'#4'Left'#3'l'#1#6'Height'#2#17#3'Top'
@ -1151,7 +1151,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+'or'#8'TabOrder'#2#9#0#0#0#9'TTabSheet'#10'tabZipCode'#7'Caption'#6#17'Zip c'
+'ode tracking'#12'ClientHeight'#3#17#2#11'ClientWidth'#3'w'#2#0#9'TGroupBox'
+#10'GroupBox25'#4'Left'#2#6#6'Height'#2'h'#3'Top'#2#11#5'Width'#3'!'#2#7'Cap'
+'tion'#6#7' First '#12'ClientHeight'#2'I'#11'ClientWidth'#3#29#2#8'TabOrder'
+'tion'#6#7' First '#12'ClientHeight'#2'W'#11'ClientWidth'#3#29#2#8'TabOrder'
+#2#0#0#6'TLabel'#7'Label74'#4'Left'#2#14#6'Height'#2#16#3'Top'#2'2'#5'Width'
,#2'S'#7'Caption'#6#14'Save county to'#11'ParentColor'#8#0#0#6'TLabel'#7'Labe'
+'l75'#4'Left'#3#254#0#6'Height'#2#16#3'Top'#2'2'#5'Width'#2#26#7'Caption'#6#5
@ -1167,13 +1167,13 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
+'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
+'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHei'
+'ght'#2')'#11'ClientWidth'#3#180#0#13'Items.Strings'#1#6#19'before town addr'
+'ght'#2'7'#11'ClientWidth'#3#180#0#13'Items.Strings'#1#6#19'before town addr'
+'ess'#6#18'after town address'#0#8'TabOrder'#2#2#0#0#9'TComboBox'#14'cmbFirs'
+'tSaveTo'#4'Left'#2'v'#6'Height'#2#27#3'Top'#2'.'#5'Width'#2'x'#10'ItemHeigh'
+'t'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#6'county'#6#3'QTH'#6#5'award'
+#6#5'state'#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#3#4'Text'#6#6'coun'
+'ty'#0#0#0#9'TGroupBox'#10'GroupBox26'#4'Left'#2#6#6'Height'#2'h'#3'Top'#2'{'
+#5'Width'#3'!'#2#7'Caption'#6#8' Second '#12'ClientHeight'#2'I'#11'ClientWid'
+#5'Width'#3'!'#2#7'Caption'#6#8' Second '#12'ClientHeight'#2'W'#11'ClientWid'
+'th'#3#29#2#8'TabOrder'#2#1#0#6'TLabel'#7'Label76'#4'Left'#2#14#6'Height'#2
+#16#3'Top'#2'2'#5'Width'#2'S'#7'Caption'#6#14'Save county to'#11'ParentColor'
+#8#0#0#6'TLabel'#7'Label77'#4'Left'#3#254#0#6'Height'#2#16#3'Top'#2'2'#5'Wid'
@ -1189,14 +1189,14 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+'argeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizonta'
+'l'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'
+#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.C'
+'ontrolsPerLine'#2#1#12'ClientHeight'#2','#11'ClientWidth'#3#180#0#13'Items.'
+'ontrolsPerLine'#2#1#12'ClientHeight'#2':'#11'ClientWidth'#3#180#0#13'Items.'
+'Strings'#1#6#19'before town address'#6#18'after town address'#0#8'TabOrder'
+#2#2#0#0#9'TComboBox'#15'cmbSecondSaveTo'#4'Left'#2'v'#6'Height'#2#27#3'Top'
+#2'.'#5'Width'#2'x'#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6
+#6'county'#6#3'QTH'#6#5'award'#6#5'state'#0#5'Style'#7#14'csDropDownList'#8
+'TabOrder'#2#3#4'Text'#6#6'county'#0#0#0#9'TGroupBox'#10'GroupBox27'#4'Left'
+#2#6#6'Height'#2'h'#3'Top'#3#235#0#5'Width'#3'!'#2#7'Caption'#6#7' Third '#12
+'ClientHeight'#2'I'#11'ClientWidth'#3#29#2#8'TabOrder'#2#2#0#6'TLabel'#7'Lab'
+'ClientHeight'#2'W'#11'ClientWidth'#3#29#2#8'TabOrder'#2#2#0#6'TLabel'#7'Lab'
+'el78'#4'Left'#2#14#6'Height'#2#16#3'Top'#2'2'#5'Width'#2'S'#7'Caption'#6#14
+'Save county to'#11'ParentColor'#8#0#0#6'TLabel'#7'Label79'#4'Left'#3#254#0#6
+'Height'#2#16#3'Top'#2'2'#5'Width'#2#26#7'Caption'#6#5'field'#11'ParentColor'
@ -1211,7 +1211,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi'
+'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
+#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
+'m'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2')'#11'ClientWidth'
+'m'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'7'#11'ClientWidth'
+#3#180#0#13'Items.Strings'#1#6#19'before town address'#6#18'after town addre'
+'ss'#0#8'TabOrder'#2#2#0#0#9'TComboBox'#14'cmbThirdSaveTo'#4'Left'#2'v'#6'He'
+'ight'#2#27#3'Top'#2','#5'Width'#2'x'#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13
@ -1228,7 +1228,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+' countries for New country or New band country etc. info'#8'TabOrder'#2#1#0
+#0#9'TGroupBox'#10'GroupBox28'#4'Left'#2#15#6'Height'#2'H'#3'Top'#2#6#5'Widt'
+'h'#3#1#2#7'Caption'#6'& Data for access to ARRL LoTW website '#12'ClientHei'
+'ght'#2')'#11'ClientWidth'#3#253#1#8'TabOrder'#2#2#0#6'TLabel'#7'Label80'#4
+'ght'#2'7'#11'ClientWidth'#3#253#1#8'TabOrder'#2#2#0#6'TLabel'#7'Label80'#4
+'Left'#2#14#6'Height'#2#16#3'Top'#2#15#5'Width'#2'@'#7'Caption'#6#10'User na'
+'me:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label81'#4'Left'#3#254#0#6'Height'#2
+#16#3'Top'#2#15#5'Width'#2'<'#7'Caption'#6#10'Password: '#11'ParentColor'#8#0
@ -1245,7 +1245,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+#12'clMoneyGreen'#5'Style'#11#16'cbStandardColors'#16'cbExtendedColors'#14'c'
+'bSystemColors'#13'cbPrettyNames'#0#10'ItemHeight'#2#0#8'TabOrder'#2#5#0#0#9
+'TGroupBox'#10'GroupBox36'#4'Left'#2#15#6'Height'#2'H'#3'Top'#2'['#5'Width'#3
+#1#2#7'Caption'#6'! Data for access to eQSL website '#12'ClientHeight'#2')'
+#1#2#7'Caption'#6'! Data for access to eQSL website '#12'ClientHeight'#2'7'
+#11'ClientWidth'#3#253#1#8'TabOrder'#2#6#0#6'TLabel'#8'Label108'#4'Left'#2#14
+#6'Height'#2#16#3'Top'#2#15#5'Width'#2'@'#7'Caption'#6#10'User name:'#11'Par'
+'entColor'#8#0#0#6'TLabel'#8'Label109'#4'Left'#3#254#0#6'Height'#2#16#3'Top'
@ -1270,7 +1270,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+#1#6#4'None'#6#12'WinKeyer USB'#6#8'cwdaemon'#0#8'OnChange'#7#18'cmbIfaceTyp'
+'eChange'#8'TabOrder'#2#0#4'Text'#6#4'None'#0#0#9'TGroupBox'#10'GroupBox29'#4
+'Left'#2#15#6'Height'#2'x'#3'Top'#2'6'#5'Width'#3#241#1#7'Caption'#6#14' Win'
+'Keyer USB '#12'ClientHeight'#2'Y'#11'ClientWidth'#3#237#1#8'TabOrder'#2#1#0
+'Keyer USB '#12'ClientHeight'#2'g'#11'ClientWidth'#3#237#1#8'TabOrder'#2#1#0
+#6'TLabel'#7'Label84'#4'Left'#2#11#6'Height'#2#16#3'Top'#2#7#5'Width'#2#29#7
+'Caption'#6#5'Port:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label85'#4'Left'#3#206
+#0#6'Height'#2#16#3'Top'#2#7#5'Width'#2'g'#7'Caption'#6#16'Default CW speed'
@ -1293,7 +1293,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+'Height'#2#21#3'Top'#2'?'#5'Width'#2'2'#8'MaxValue'#2'c'#8'MinValue'#2#5#8'O'
+'nChange'#7#20'edtWinMaxSpeedChange'#8'TabOrder'#2#4#5'Value'#2'<'#7'Visible'
+#8#0#0#0#9'TGroupBox'#10'GroupBox30'#4'Left'#2#15#6'Height'#2'i'#3'Top'#3#182
+#0#5'Width'#3#241#1#7'Caption'#6#10' cwdaemon '#12'ClientHeight'#2'J'#11'Cli'
+#0#5'Width'#3#241#1#7'Caption'#6#10' cwdaemon '#12'ClientHeight'#2'X'#11'Cli'
+'entWidth'#3#237#1#8'TabOrder'#2#2#0#6'TLabel'#7'Label87'#4'Left'#2#11#6'Hei'
+'ght'#2#16#3'Top'#2#13#5'Width'#2'1'#7'Caption'#6#8'Address:'#11'ParentColor'
+#8#0#0#6'TLabel'#7'Label88'#4'Left'#3#174#0#6'Height'#2#16#3'Top'#2#13#5'Wid'
@ -1311,89 +1311,89 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+'btnKeyTextClick'#8'TabOrder'#2#3#0#0#0#9'TTabSheet'#10'tabFldigi1'#7'Captio'
+'n'#6#16'fldigi interface'#12'ClientHeight'#3#17#2#11'ClientWidth'#3'w'#2#0#9
+'TGroupBox'#10'GroupBox31'#4'Left'#2#12#6'Height'#3#144#1#3'Top'#2#6#5'Width'
+#3'K'#2#7'Caption'#6#25' Reading data from fldigi'#12'ClientHeight'#3'q'#1#11
+'ClientWidth'#3'G'#2#8'TabOrder'#2#0#0#6'TLabel'#7'Label91'#4'Left'#3#224#0#6
+'Height'#2#16#3'Top'#3#21#1#5'Width'#3#185#0#7'Caption'#6'"Try to load QSO f'
+'rom fldigi every '#11'ParentColor'#8#0#0#6'TLabel'#7'Label92'#4'Left'#3#1#2
+#6'Height'#2#16#3'Top'#3#21#1#5'Width'#2'0'#7'Caption'#6#7'seconds'#11'Paren'
+'tColor'#8#0#0#9'TSpinEdit'#17'edtLoadFromFldigi'#4'Left'#3#193#1#6'Height'#2
+#21#3'Top'#3#13#1#5'Width'#2'2'#8'MinValue'#2#1#8'TabOrder'#2#0#5'Value'#2#2
+#0#0#11'TRadioGroup'#10'rgFreqFrom'#4'Left'#2#25#6'Height'#2'r'#3'Top'#3#133
+#0#5'Width'#3#209#0#8'AutoFill'#9#7'Caption'#6#16' Frequency from '#28'Child'
+'Sizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildS'
+'izing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enla'
+'rgeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
+#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
+'rolsPerLine'#2#1#12'ClientHeight'#2'S'#11'ClientWidth'#3#205#0#9'ItemIndex'
+#2#0#13'Items.Strings'#1#6#6'CQRLOG'#6#6'fldigi'#6#7'default'#0#8'TabOrder'#2
+#1#0#0#5'TEdit'#14'edtDefaultFreq'#4'Left'#3#137#0#6'Height'#2#21#3'Top'#3
+#209#0#5'Width'#2'Q'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#10'rgModeFrom'#4'Le'
+'ft'#3#1#1#6'Height'#2'p'#3'Top'#3#135#0#5'Width'#3#224#0#8'AutoFill'#9#7'Ca'
+'ption'#6#11' Mode from '#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizin'
+'g.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenou'
+'sChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'Q'#11
+'ClientWidth'#3#220#0#13'Items.Strings'#1#6#6'CQRLOG'#6#6'fldigi'#6#7'defaul'
+'t'#0#8'TabOrder'#2#3#0#0#9'TComboBox'#14'cmbDefaultMode'#4'Left'#3'Y'#1#6'H'
+'eight'#2#27#3'Top'#3#209#0#5'Width'#3#128#0#8'AutoSize'#8#10'ItemHeight'#2#0
+#8'TabOrder'#2#4#0#0#11'TRadioGroup'#9'rgRSTFrom'#4'Left'#2#25#6'Height'#2'i'
+#3'Top'#3#255#0#5'Width'#3#185#0#8'AutoFill'#9#7'Caption'#6#10' RST from '#28
+#3'K'#2#7'Caption'#6#25' Reading data from fldigi'#12'ClientHeight'#3#127#1
+#11'ClientWidth'#3'G'#2#8'TabOrder'#2#0#0#6'TLabel'#7'Label91'#4'Left'#3#224
+#0#6'Height'#2#16#3'Top'#3#21#1#5'Width'#3#185#0#7'Caption'#6'"Try to load Q'
+'SO from fldigi every '#11'ParentColor'#8#0#0#6'TLabel'#7'Label92'#4'Left'#3
+#1#2#6'Height'#2#16#3'Top'#3#21#1#5'Width'#2'0'#7'Caption'#6#7'seconds'#11'P'
+'arentColor'#8#0#0#9'TSpinEdit'#17'edtLoadFromFldigi'#4'Left'#3#193#1#6'Heig'
+'ht'#2#21#3'Top'#3#13#1#5'Width'#2'2'#8'MinValue'#2#1#8'TabOrder'#2#0#5'Valu'
+'e'#2#2#0#0#11'TRadioGroup'#10'rgFreqFrom'#4'Left'#2#25#6'Height'#2'r'#3'Top'
+#3#133#0#5'Width'#3#209#0#8'AutoFill'#9#7'Caption'#6#16' Frequency from '#28
+'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C'
+'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing'
+'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz'
+'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi'
,'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz'
+'ing.ControlsPerLine'#2#1#12'ClientHeight'#2'J'#11'ClientWidth'#3#181#0#13'I'
+'tems.Strings'#1#6#6'fldigi'#6#7'default'#0#8'TabOrder'#2#5#0#0#5'TEdit'#13
+'edtDefaultRST'#4'Left'#2'q'#6'Height'#2#21#3'Top'#3'='#1#5'Width'#2'Q'#8'Ta'
+'bOrder'#2#6#0#0#9'TGroupBox'#10'GroupBox34'#4'Left'#2#25#6'Height'#2'p'#3'T'
+'op'#2#5#5'Width'#3#31#2#12'ClientHeight'#2'l'#11'ClientWidth'#3#27#2#8'TabO'
+'rder'#2#7#0#6'TLabel'#7'Label95'#4'Left'#2#30#6'Height'#2#16#3'Top'#2'('#5
+'Width'#2'N'#7'Caption'#6#15'Path to fldigi:'#11'ParentColor'#8#0#0#9'TCheck'
+'Box'#12'chkRunFldigi'#4'Left'#2#9#6'Height'#2#26#3'Top'#2#14#5'Width'#3#10#1
+#7'Caption'#6'(Run fldigi after entering to Remote mode'#8'TabOrder'#2#0#0#0
+#5'TEdit'#13'edtFldigiPath'#4'Left'#2#30#6'Height'#2#21#3'Top'#2'@'#5'Width'
+#3#160#1#8'TabOrder'#2#1#0#0#7'TButton'#13'btnFldigiPath'#4'Left'#3#198#1#6
+'Height'#2#25#3'Top'#2'B'#5'Width'#2'K'#7'Caption'#6#6'Browse'#7'OnClick'#7
+#18'btnFldigiPathClick'#8'TabOrder'#2#2#0#0#0#0#0#9'TTabSheet'#13'tabAutoBac'
+'kup'#7'Caption'#6#11'Auto backup'#12'ClientHeight'#3#17#2#11'ClientWidth'#3
+'w'#2#0#9'TGroupBox'#10'GroupBox32'#4'Left'#2#5#6'Height'#3#250#0#3'Top'#2#6
+#5'Width'#3'`'#2#12'ClientHeight'#3#246#0#11'ClientWidth'#3'\'#2#8'TabOrder'
+#2#0#0#6'TLabel'#7'Label93'#4'Left'#2#14#6'Height'#2#16#3'Top'#2'0'#5'Width'
+#2'W'#7'Caption'#6#15'Save backup to:'#11'ParentColor'#8#0#0#9'TCheckBox'#15
+'chkEnableBackup'#4'Left'#2#14#6'Height'#2#26#3'Top'#2#7#5'Width'#3#247#0#7
+'Caption'#6'$Enable autobackup after program ends'#8'TabOrder'#2#0#0#0#5'TEd'
+'it'#13'edtBackupPath'#4'Left'#2#14#6'Height'#2#21#3'Top'#2'G'#5'Width'#3#240
+#1#8'TabOrder'#2#1#0#0#7'TButton'#15'btnBrowseBackup'#4'Left'#3#6#2#6'Height'
+#2#25#3'Top'#2'I'#5'Width'#2'K'#7'Caption'#6#6'Browse'#7'OnClick'#7#20'btnBr'
+'owseBackupClick'#8'TabOrder'#2#2#0#0#9'TCheckBox'#17'chkCompressBackup'#4'L'
+'eft'#2#14#6'Height'#2#26#3'Top'#3#208#0#5'Width'#3#191#0#7'Caption'#6#27'Co'
+'mpress backup with tar.gz'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#12'rgBackupT'
+'ype'#4'Left'#2#14#6'Height'#2'X'#3'Top'#2'p'#5'Width'#3#240#1#8'AutoFill'#9
+#7'Caption'#6#13' Backup file '#28'ChildSizing.LeftRightSpacing'#2#6#28'Chil'
+'dSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHom'
+'ogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChild'
+'Resize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizin'
+'g.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftT'
+'oRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'
+#2'9'#11'ClientWidth'#3#236#1#13'Items.Strings'#1#6'<callsign, date and time'
+' (yourcall__yyyy-mm-dd__hh-mm-ss.adi)'#6'$callsign only (yourcall__backup.a'
+'di)'#0#8'TabOrder'#2#4#0#0#0#0#9'TTabSheet'#13'tabExtViewers'#7'Caption'#6
+#16'External viewers'#12'ClientHeight'#3#17#2#11'ClientWidth'#3'w'#2#0#6'TLa'
+'bel'#7'Label99'#4'Left'#2#23#6'Height'#2#16#3'Top'#2#30#5'Width'#2'['#7'Cap'
+'tion'#6#18'Text files(*.txt):'#11'ParentColor'#8#0#0#6'TLabel'#8'Label100'#4
+'Left'#2#23#6'Height'#2#16#3'Top'#2'V'#5'Width'#2'\'#7'Caption'#6#18'PDF fil'
+'es (*.pdf):'#11'ParentColor'#8#0#0#6'TLabel'#8'Label101'#4'Left'#2#23#6'Hei'
+'ght'#2#16#3'Top'#3#142#0#5'Width'#3#135#0#7'Caption'#6#25'Images (*.jpg;*.p'
+'ng*.gif)'#11'ParentColor'#8#0#0#6'TLabel'#8'Label102'#4'Left'#2#21#6'Height'
+#2#16#3'Top'#3#240#0#5'Width'#3#140#0#7'Caption'#6#24'HTML files(*.html;*.ht'
+'m)'#11'ParentColor'#8#0#0#5'TEdit'#11'edtTxtFiles'#4'Left'#2'/'#6'Height'#2
+#21#3'Top'#2'1'#5'Width'#3'A'#1#8'TabOrder'#2#0#4'Text'#6#5'gedit'#0#0#5'TEd'
+'it'#11'edtPdfFiles'#4'Left'#2'/'#6'Height'#2#21#3'Top'#2'i'#5'Width'#3'@'#1
+#8'TabOrder'#2#1#4'Text'#6#6'evince'#0#0#5'TEdit'#11'edtImgFiles'#4'Left'#2
+'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz'
+'ing.ControlsPerLine'#2#1#12'ClientHeight'#2'a'#11'ClientWidth'#3#205#0#9'It'
+'emIndex'#2#0#13'Items.Strings'#1#6#6'CQRLOG'#6#6'fldigi'#6#7'default'#0#8'T'
+'abOrder'#2#1#0#0#5'TEdit'#14'edtDefaultFreq'#4'Left'#3#137#0#6'Height'#2#21
+#3'Top'#3#209#0#5'Width'#2'Q'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#10'rgModeF'
+'rom'#4'Left'#3#1#1#6'Height'#2'p'#3'Top'#3#135#0#5'Width'#3#224#0#8'AutoFil'
+'l'#9#7'Caption'#6#11' Mode from '#28'ChildSizing.LeftRightSpacing'#2#6#28'C'
+'hildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crs'
+'HomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousCh'
+'ildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSi'
+'zing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLe'
+'ftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeig'
+'ht'#2'_'#11'ClientWidth'#3#220#0#13'Items.Strings'#1#6#6'CQRLOG'#6#6'fldigi'
+#6#7'default'#0#8'TabOrder'#2#3#0#0#9'TComboBox'#14'cmbDefaultMode'#4'Left'#3
+'Y'#1#6'Height'#2#27#3'Top'#3#209#0#5'Width'#3#128#0#8'AutoSize'#8#10'ItemHe'
+'ight'#2#0#8'TabOrder'#2#4#0#0#11'TRadioGroup'#9'rgRSTFrom'#4'Left'#2#25#6'H'
+'eight'#2'i'#3'Top'#3#255#0#5'Width'#3#185#0#8'AutoFill'#9#7'Caption'#6#10' '
+'RST from '#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpa'
+'cing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
+#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi'
+'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
,#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
+'m'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'X'#11'ClientWidth'
+#3#181#0#13'Items.Strings'#1#6#6'fldigi'#6#7'default'#0#8'TabOrder'#2#5#0#0#5
+'TEdit'#13'edtDefaultRST'#4'Left'#2'q'#6'Height'#2#21#3'Top'#3'='#1#5'Width'
+#2'Q'#8'TabOrder'#2#6#0#0#9'TGroupBox'#10'GroupBox34'#4'Left'#2#25#6'Height'
+#2'p'#3'Top'#2#5#5'Width'#3#31#2#12'ClientHeight'#2'l'#11'ClientWidth'#3#27#2
+#8'TabOrder'#2#7#0#6'TLabel'#7'Label95'#4'Left'#2#30#6'Height'#2#16#3'Top'#2
+'('#5'Width'#2'N'#7'Caption'#6#15'Path to fldigi:'#11'ParentColor'#8#0#0#9'T'
+'CheckBox'#12'chkRunFldigi'#4'Left'#2#9#6'Height'#2#26#3'Top'#2#14#5'Width'#3
+#10#1#7'Caption'#6'(Run fldigi after entering to Remote mode'#8'TabOrder'#2#0
+#0#0#5'TEdit'#13'edtFldigiPath'#4'Left'#2#30#6'Height'#2#21#3'Top'#2'@'#5'Wi'
+'dth'#3#160#1#8'TabOrder'#2#1#0#0#7'TButton'#13'btnFldigiPath'#4'Left'#3#198
+#1#6'Height'#2#25#3'Top'#2'B'#5'Width'#2'K'#7'Caption'#6#6'Browse'#7'OnClick'
+#7#18'btnFldigiPathClick'#8'TabOrder'#2#2#0#0#0#0#0#9'TTabSheet'#13'tabAutoB'
+'ackup'#7'Caption'#6#11'Auto backup'#12'ClientHeight'#3#17#2#11'ClientWidth'
+#3'w'#2#0#9'TGroupBox'#10'GroupBox32'#4'Left'#2#5#6'Height'#3#250#0#3'Top'#2
+#6#5'Width'#3'`'#2#12'ClientHeight'#3#246#0#11'ClientWidth'#3'\'#2#8'TabOrde'
+'r'#2#0#0#6'TLabel'#7'Label93'#4'Left'#2#14#6'Height'#2#16#3'Top'#2'0'#5'Wid'
+'th'#2'W'#7'Caption'#6#15'Save backup to:'#11'ParentColor'#8#0#0#9'TCheckBox'
+#15'chkEnableBackup'#4'Left'#2#14#6'Height'#2#26#3'Top'#2#7#5'Width'#3#247#0
+#7'Caption'#6'$Enable autobackup after program ends'#8'TabOrder'#2#0#0#0#5'T'
+'Edit'#13'edtBackupPath'#4'Left'#2#14#6'Height'#2#21#3'Top'#2'G'#5'Width'#3
+#240#1#8'TabOrder'#2#1#0#0#7'TButton'#15'btnBrowseBackup'#4'Left'#3#6#2#6'He'
+'ight'#2#25#3'Top'#2'I'#5'Width'#2'K'#7'Caption'#6#6'Browse'#7'OnClick'#7#20
+'btnBrowseBackupClick'#8'TabOrder'#2#2#0#0#9'TCheckBox'#17'chkCompressBackup'
+#4'Left'#2#14#6'Height'#2#26#3'Top'#3#208#0#5'Width'#3#191#0#7'Caption'#6#27
+'Compress backup with tar.gz'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#12'rgBacku'
+'pType'#4'Left'#2#14#6'Height'#2'X'#3'Top'#2'p'#5'Width'#3#240#1#8'AutoFill'
+#9#7'Caption'#6#13' Backup file '#28'ChildSizing.LeftRightSpacing'#2#6#28'Ch'
+'ildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsH'
+'omogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChi'
+'ldResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSiz'
+'ing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLef'
+'tToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeigh'
+'t'#2'G'#11'ClientWidth'#3#236#1#13'Items.Strings'#1#6'<callsign, date and t'
+'ime (yourcall__yyyy-mm-dd__hh-mm-ss.adi)'#6'$callsign only (yourcall__backu'
+'p.adi)'#0#8'TabOrder'#2#4#0#0#0#0#9'TTabSheet'#13'tabExtViewers'#7'Caption'
+#6#16'External viewers'#12'ClientHeight'#3#17#2#11'ClientWidth'#3'w'#2#0#6'T'
+'Label'#7'Label99'#4'Left'#2#23#6'Height'#2#16#3'Top'#2#30#5'Width'#2'['#7'C'
+'aption'#6#18'Text files(*.txt):'#11'ParentColor'#8#0#0#6'TLabel'#8'Label100'
+#4'Left'#2#23#6'Height'#2#16#3'Top'#2'V'#5'Width'#2'\'#7'Caption'#6#18'PDF f'
+'iles (*.pdf):'#11'ParentColor'#8#0#0#6'TLabel'#8'Label101'#4'Left'#2#23#6'H'
+'eight'#2#16#3'Top'#3#142#0#5'Width'#3#135#0#7'Caption'#6#25'Images (*.jpg;*'
+'.png*.gif)'#11'ParentColor'#8#0#0#6'TLabel'#8'Label102'#4'Left'#2#21#6'Heig'
+'ht'#2#16#3'Top'#3#240#0#5'Width'#3#140#0#7'Caption'#6#24'HTML files(*.html;'
+'*.htm)'#11'ParentColor'#8#0#0#5'TEdit'#11'edtTxtFiles'#4'Left'#2'/'#6'Heigh'
+'t'#2#21#3'Top'#2'1'#5'Width'#3'A'#1#8'TabOrder'#2#0#4'Text'#6#5'gedit'#0#0#5
+'TEdit'#11'edtPdfFiles'#4'Left'#2'/'#6'Height'#2#21#3'Top'#2'i'#5'Width'#3'@'
+#1#8'TabOrder'#2#1#4'Text'#6#6'evince'#0#0#5'TEdit'#11'edtImgFiles'#4'Left'#2
+'/'#6'Height'#2#21#3'Top'#3#166#0#5'Width'#3'@'#1#8'TabOrder'#2#2#4'Text'#6#3
+'eog'#0#0#5'TEdit'#12'edtHtmlFiles'#4'Left'#2'-'#6'Height'#2#21#3'Top'#3#8#1
+#5'Width'#3'@'#1#8'TabOrder'#2#3#4'Text'#6#7'firefox'#0#0#9'TCheckBox'#15'ch'
@ -1402,7 +1402,7 @@ LazarusResources.Add('TfrmPreferences','FORMDATA',[
+#9'TTabSheet'#11'tabCallbook'#7'Caption'#6#16'Callbook support'#12'ClientHei'
+'ght'#3#17#2#11'ClientWidth'#3'w'#2#0#9'TGroupBox'#10'GroupBox38'#4'Left'#2
+#13#6'Height'#3#160#0#3'Top'#2#8#5'Width'#3'I'#2#7'Caption'#6#17' Callbook s'
+'earch '#12'ClientHeight'#3#129#0#11'ClientWidth'#3'E'#2#8'TabOrder'#2#0#0#12
+'earch '#12'ClientHeight'#3#143#0#11'ClientWidth'#3'E'#2#8'TabOrder'#2#0#0#12
+'TRadioButton'#8'rbHamQTH'#4'Left'#2#6#6'Height'#2#26#3'Top'#2#7#5'Width'#2
+'l'#7'Caption'#6#11'HamQTH.com '#7'Checked'#9#8'TabOrder'#2#0#7'TabStop'#9#0
+#0#12'TRadioButton'#5'rbQRZ'#4'Left'#2#6#6'Height'#2#26#3'Top'#2#31#5'Width'

1
src/fPreferences.pas
View File

@ -1505,6 +1505,7 @@ begin
frmBandMap.FirstInterval := StrToint(edtFirst.Text)*60;
frmBandMap.SecondInterval := StrToInt(edtSecond.Text)*60;
frmBandMap.DeleteAfter := StrToint(edtDelAfter.Text)*60;
frmBandMap.DoXplanetExport := (rgShowFrom.ItemIndex > 0);
if frmGrayline.Showing then
frmGrayline.Repaint;