diff --git a/src/cqrlog.lpi b/src/cqrlog.lpi index 26e2741..b0fdabf 100644 --- a/src/cqrlog.lpi +++ b/src/cqrlog.lpi @@ -924,7 +924,7 @@ - + diff --git a/src/fGrayline.lfm b/src/fGrayline.lfm index dbf484b..67f9e2c 100644 --- a/src/fGrayline.lfm +++ b/src/fGrayline.lfm @@ -121,7 +121,7 @@ object frmGrayline: TfrmGrayline OnPaint = FormPaint OnShow = FormShow ShowHint = True - LCLVersion = '2.2.6.0' + LCLVersion = '3.0.0.3' object sbtnGrayLine: TSpeedButton Left = 400 Height = 16 @@ -168,8 +168,8 @@ object frmGrayline: TfrmGrayline end object sbGrayLine: TStatusBar Left = 0 - Height = 19 - Top = 229 + Height = 20 + Top = 228 Width = 419 Panels = <> end diff --git a/src/fGrayline.pas b/src/fGrayline.pas index d0fdbfc..d5a1779 100644 --- a/src/fGrayline.pas +++ b/src/fGrayline.pas @@ -100,6 +100,7 @@ type function SpotterExists(spotter : String) : Word; procedure RemoveOldSpots(RemoveAfter:integer); procedure AddSpotToList(spot : String); + procedure LoadSettings(); end; var @@ -312,17 +313,13 @@ end; procedure TfrmGrayline.FormShow(Sender: TObject); begin dmUtils.LoadWindowPos(frmGrayline); - sbGrayLine.Visible := cqrini.ReadBool('Grayline','Statusbar',True); - pumShowShortPath.Checked := cqrini.ReadBool('Grayline','ShortPath',False); - pumShowLongPath.Checked := cqrini.ReadBool('Grayline','LongPath',False); - pumShowBeamPath.Checked := cqrini.ReadBool('Grayline','BeamPath',False); + LoadSettings(); acShowStatusBar.Checked := sbGrayLine.Visible; rbn_status :='Disconnected'; sbGrayLine.SimpleText := rbn_status; tmrGrayLine.Enabled := True; tmrGrayLineTimer(nil); tmrAutoConnect.Enabled := True; - delAfter := cqrini.ReadInteger('RBN','deleteAfter',60); tmrSpotDots.Interval :=1000; //remove Spots(DOts) timer will always run 1 sec period. tmrSpotDots.Enabled :=true; ob^.GC_line_clear; @@ -618,11 +615,7 @@ while GC_lock do GC_lock:=true; 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^.GB_LWidth := cqrini.ReadInteger('Program', 'GraylineGBeamLineWidth',2); -ob^.GC_SP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineSPColor', 'clYellow' )); -ob^.GC_LP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineLPColor', 'clFuchsia' )); -ob^.GC_BE_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineBEColor', 'clRed' )); +LoadSettings(); if LocalDbg then begin @@ -912,5 +905,20 @@ begin end; end; +procedure TfrmGrayline.LoadSettings(); +begin + sbGrayLine.Visible := cqrini.ReadBool('Grayline','Statusbar',True); + pumShowShortPath.Checked := cqrini.ReadBool('Grayline','ShortPath',False); + pumShowLongPath.Checked := cqrini.ReadBool('Grayline','LongPath',False); + pumShowBeamPath.Checked := cqrini.ReadBool('Grayline','BeamPath',False); + delAfter := cqrini.ReadInteger('RBN','deleteAfter',60); + + ob^.GC_LWidth := cqrini.ReadInteger('Program', 'GraylineGCLineWidth',2); + ob^.GB_LWidth := cqrini.ReadInteger('Program', 'GraylineGBeamLineWidth',2); + ob^.GC_SP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineSPColor', 'clYellow' )); + ob^.GC_LP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineLPColor', 'clFuchsia' )); + ob^.GC_BE_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineBEColor', 'clRed' )); +end; + end. diff --git a/src/fPreferences.lfm b/src/fPreferences.lfm index 73f63d6..baba88b 100644 --- a/src/fPreferences.lfm +++ b/src/fPreferences.lfm @@ -1,28 +1,28 @@ object frmPreferences: TfrmPreferences Left = 2 Height = 709 - Top = 3 + Top = 32 Width = 1095 HelpType = htKeyword HelpKeyword = 'help/h1.html' - HorzScrollBar.Page = 1082 - VertScrollBar.Page = 696 + HorzScrollBar.Page = 1094 + VertScrollBar.Page = 709 ActiveControl = lbPreferences AutoScroll = True BorderIcons = [biSystemMenu] Caption = 'Preferences' - ClientHeight = 696 - ClientWidth = 1082 + ClientHeight = 709 + ClientWidth = 1095 OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow Position = poMainFormCenter - LCLVersion = '2.2.6.0' + LCLVersion = '3.0.0.3' object pgPreferences: TPageControl Left = 160 - Height = 753 + Height = 789 Top = 0 - Width = 846 + Width = 847 ActivePage = tabProgram Align = alClient TabIndex = 0 @@ -30,17 +30,17 @@ object frmPreferences: TfrmPreferences OnChange = pgPreferencesChange object tabProgram: TTabSheet Caption = 'Program' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object lblWebBrowser: TLabel AnchorSideLeft.Control = gbInternet AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = rgStatistics AnchorSideTop.Side = asrBottom Left = 350 - Height = 17 + Height = 18 Top = 78 - Width = 249 + Width = 259 BorderSpacing.Left = 3 BorderSpacing.Top = 3 Caption = 'Web browser for cqrlog (if not default)' @@ -56,16 +56,16 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 3 Caption = ' Internet connection ' - ClientHeight = 111 + ClientHeight = 110 ClientWidth = 339 TabOrder = 0 object lblintProxy: TLabel AnchorSideTop.Control = edtProxy AnchorSideTop.Side = asrCenter Left = 7 - Height = 17 - Top = 24 - Width = 40 + Height = 18 + Top = 23 + Width = 41 Caption = 'Proxy:' ParentColor = False end @@ -73,10 +73,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblIntPasswd AnchorSideTop.Control = edtPort AnchorSideTop.Side = asrCenter - Left = 173 - Height = 17 - Top = 24 - Width = 30 + Left = 171 + Height = 18 + Top = 23 + Width = 34 Caption = 'Port:' ParentColor = False end @@ -85,7 +85,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtUser AnchorSideTop.Side = asrCenter Left = 7 - Height = 17 + Height = 18 Top = 67 Width = 34 Caption = 'User:' @@ -95,10 +95,10 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtPasswd AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edtPasswd - Left = 173 - Height = 17 + Left = 171 + Height = 18 Top = 67 - Width = 66 + Width = 68 Anchors = [akTop, akRight] BorderSpacing.Right = 6 Caption = 'Password:' @@ -108,8 +108,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblintProxy AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbInternet - Left = 53 - Height = 34 + Left = 54 + Height = 35 Top = 15 Width = 100 BorderSpacing.Left = 6 @@ -121,7 +121,7 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = gbInternet AnchorSideRight.Side = asrBottom Left = 245 - Height = 34 + Height = 35 Top = 15 Width = 88 Anchors = [akTop, akRight] @@ -132,9 +132,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtProxy AnchorSideTop.Control = edtProxy AnchorSideTop.Side = asrBottom - Left = 53 - Height = 34 - Top = 58 + Left = 54 + Height = 35 + Top = 59 Width = 100 BorderSpacing.Top = 9 TabOrder = 2 @@ -145,8 +145,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = edtPort AnchorSideRight.Side = asrBottom Left = 245 - Height = 34 - Top = 58 + Height = 35 + Top = 59 Width = 88 Anchors = [akTop, akRight] BorderSpacing.Top = 9 @@ -172,7 +172,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 54 + ClientHeight = 53 ClientWidth = 134 Items.Strings = ( 'MHz' @@ -185,13 +185,13 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblWebBrowser AnchorSideTop.Side = asrBottom Left = 350 - Height = 34 - Top = 98 + Height = 35 + Top = 99 Width = 176 BorderSpacing.Top = 3 + TabOrder = 2 OnClick = edtWebBrowserClick OnExit = edtWebBrowserExit - TabOrder = 2 end object chkNewDXCCTables: TCheckBox AnchorSideLeft.Control = gbInternet @@ -200,7 +200,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 135 - Width = 423 + Width = 430 BorderSpacing.Top = 3 Caption = 'Check for newer version of dxcc tables after program startup' TabOrder = 3 @@ -212,7 +212,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 204 - Width = 257 + Width = 259 Caption = 'Show deleted countries in statistics' TabOrder = 4 end @@ -223,7 +223,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 227 - Width = 206 + Width = 203 Caption = 'Show sunrise/sunset in UTC' TabOrder = 5 end @@ -234,7 +234,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 158 - Width = 505 + Width = 511 Caption = 'Check for newer version of qsl managers database after program startup' TabOrder = 6 end @@ -244,19 +244,19 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 6 Height = 230 - Top = 333 + Top = 335 Width = 666 BorderSpacing.Top = 9 Caption = ' Offsets and colors' - ClientHeight = 212 + ClientHeight = 211 ClientWidth = 664 TabOrder = 7 object lblUtc: TLabel AnchorSideLeft.Control = edtOffset AnchorSideBottom.Control = edtOffset - Left = 176 - Height = 17 - Top = 26 + Left = 175 + Height = 18 + Top = 27 Width = 27 Anchors = [akLeft, akBottom] Caption = 'UTC' @@ -267,8 +267,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkSysUTC AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 94 + Height = 18 + Top = 97 Width = 59 BorderSpacing.Top = 15 Caption = 'Grayline:' @@ -278,9 +278,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtSunOffset AnchorSideLeft.Side = asrCenter AnchorSideBottom.Control = edtSunOffset - Left = 233 - Height = 17 - Top = 26 + Left = 232 + Height = 18 + Top = 27 Width = 76 Anchors = [akLeft, akBottom] Caption = 'Sun rise/set' @@ -291,9 +291,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkSysUTC AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edtSunOffset - Left = 176 - Height = 34 - Top = 43 + Left = 175 + Height = 35 + Top = 45 Width = 60 Anchors = [akTop, akRight] BorderSpacing.Right = 6 @@ -305,9 +305,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = lblGrayline AnchorSideTop.Side = asrBottom - Left = 128 - Height = 34 - Top = 111 + Left = 127 + Height = 35 + Top = 115 Width = 50 TabOrder = 1 Text = '0' @@ -318,9 +318,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrCenter AnchorSideRight.Control = lblGraylineHint AnchorSideRight.Side = asrBottom - Left = 242 - Height = 34 - Top = 43 + Left = 241 + Height = 35 + Top = 45 Width = 58 Anchors = [akTop, akRight] BorderSpacing.Left = 6 @@ -332,23 +332,23 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = LblTimes AnchorSideTop.Side = asrBottom Left = 3 - Height = 38 - Top = 41 - Width = 122 + Height = 40 + Top = 42 + Width = 126 BorderSpacing.Left = 3 BorderSpacing.Top = 21 Caption = 'get UTC from '#10'computer time' - OnClick = chkSysUTCClick TabOrder = 3 + OnClick = chkSysUTCClick end object lblGraylineHint: TLabel AnchorSideLeft.Control = LblTimes AnchorSideTop.Control = edtGrayLineOffset AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 148 - Width = 294 + Height = 36 + Top = 153 + Width = 293 BorderSpacing.Top = 3 Caption = 'Sometimes grayline is not accurate, you can '#10'enter the correction here (in hours, try -1.25)' ParentColor = False @@ -357,9 +357,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = gbOffsets AnchorSideTop.Control = gbOffsets Left = 6 - Height = 17 + Height = 18 Top = 3 - Width = 36 + Width = 37 BorderSpacing.Left = 6 BorderSpacing.Top = 3 Caption = 'Time:' @@ -370,14 +370,14 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtGrayLineOffset AnchorSideTop.Side = asrCenter - Left = 392 - Height = 34 - Top = 111 + Left = 389 + Height = 35 + Top = 115 Width = 55 BorderSpacing.Left = 9 MaxLength = 4 - OnExit = edtGCStepExit TabOrder = 4 + OnExit = edtGCStepExit end object edtGCPolarDivisor: TEdit AnchorSideLeft.Control = edtGCStep @@ -385,23 +385,23 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtGrayLineOffset AnchorSideTop.Side = asrCenter AnchorSideRight.Side = asrBottom - Left = 456 - Height = 34 - Top = 111 + Left = 453 + Height = 35 + Top = 115 Width = 55 BorderSpacing.Left = 9 MaxLength = 2 NumbersOnly = True - OnExit = edtGCPolarDivisorExit TabOrder = 5 + OnExit = edtGCPolarDivisorExit end object lblGCStep: TLabel AnchorSideLeft.Control = edtGCStep AnchorSideBottom.Control = edtGCStep - Left = 392 - Height = 17 - Top = 94 - Width = 29 + Left = 389 + Height = 18 + Top = 97 + Width = 31 Anchors = [akLeft, akBottom] Caption = 'Step' ParentColor = False @@ -409,9 +409,9 @@ object frmPreferences: TfrmPreferences object lblGCDivisor: TLabel AnchorSideLeft.Control = edtGCPolarDivisor AnchorSideBottom.Control = edtGCPolarDivisor - Left = 456 - Height = 17 - Top = 94 + Left = 453 + Height = 18 + Top = 97 Width = 46 Anchors = [akLeft, akBottom] Caption = 'Divisor' @@ -423,10 +423,10 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbOffsets AnchorSideRight.Side = asrBottom - Left = 328 - Height = 51 - Top = 148 - Width = 296 + Left = 325 + Height = 54 + Top = 153 + Width = 299 Anchors = [akTop, akRight] BorderSpacing.Top = 3 BorderSpacing.Right = 40 @@ -436,10 +436,10 @@ object frmPreferences: TfrmPreferences object lblGLOffset: TLabel AnchorSideLeft.Control = edtGrayLineOffset AnchorSideBottom.Control = edtGrayLineOffset - Left = 128 - Height = 17 - Top = 94 - Width = 40 + Left = 127 + Height = 18 + Top = 97 + Width = 42 Anchors = [akLeft, akBottom] Caption = 'Offset' ParentColor = False @@ -447,22 +447,22 @@ object frmPreferences: TfrmPreferences object edtGCLineWidth: TEdit AnchorSideLeft.Control = lblGCHint AnchorSideTop.Control = edtGrayLineOffset - Left = 328 - Height = 34 - Top = 111 + Left = 325 + Height = 35 + Top = 115 Width = 55 MaxLength = 2 NumbersOnly = True - OnExit = edtGCLineWidthExit TabOrder = 6 + OnExit = edtGCLineWidthExit end object lblGCwidth: TLabel AnchorSideLeft.Control = edtGCLineWidth AnchorSideBottom.Control = edtGCLineWidth - Left = 328 - Height = 17 - Top = 94 - Width = 50 + Left = 325 + Height = 18 + Top = 97 + Width = 54 Anchors = [akLeft, akBottom] Caption = 'P-Width' ParentColor = False @@ -470,38 +470,38 @@ object frmPreferences: TfrmPreferences object lblGC_SP_Color: TLabel AnchorSideTop.Control = lblUtc Left = 342 - Height = 17 - Top = 26 - Width = 34 + Height = 18 + Top = 27 + Width = 37 Caption = 'Short' ParentColor = False end object lblGC_LP_Color: TLabel AnchorSideLeft.Control = btnLPColor AnchorSideTop.Control = lblUtc - Left = 442 - Height = 17 - Top = 26 - Width = 31 + Left = 439 + Height = 18 + Top = 27 + Width = 32 Caption = 'Long' ParentColor = False end object Label12: TLabel AnchorSideLeft.Control = lblGCHint AnchorSideTop.Control = LblTimes - Left = 328 - Height = 17 + Left = 325 + Height = 18 Top = 3 - Width = 127 + Width = 126 Caption = 'Grayline path lines:' ParentColor = False end object lblGC_BP_Color: TLabel AnchorSideLeft.Control = btnBPColor AnchorSideTop.Control = lblUtc - Left = 544 - Height = 17 - Top = 26 + Left = 541 + Height = 18 + Top = 27 Width = 38 Caption = 'Beam' ParentColor = False @@ -512,24 +512,24 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtGrayLineOffset AnchorSideTop.Side = asrCenter AnchorSideRight.Side = asrBottom - Left = 520 - Height = 34 - Top = 111 + Left = 517 + Height = 35 + Top = 115 Width = 55 BorderSpacing.Left = 9 MaxLength = 2 NumbersOnly = True + TabOrder = 7 OnChange = edtGCBeamWidthChange OnExit = edtGCPolarDivisorExit - TabOrder = 7 end object lblGCBeamWidth: TLabel AnchorSideLeft.Control = edtGCBeamWidth AnchorSideBottom.Control = edtGCBeamWidth - Left = 520 - Height = 17 - Top = 94 - Width = 52 + Left = 517 + Height = 18 + Top = 97 + Width = 54 Anchors = [akLeft, akBottom] Caption = 'B-Width' ParentColor = False @@ -540,24 +540,24 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtGrayLineOffset AnchorSideTop.Side = asrCenter AnchorSideRight.Side = asrBottom - Left = 581 - Height = 34 - Top = 111 + Left = 580 + Height = 35 + Top = 115 Width = 55 BorderSpacing.Left = 9 MaxLength = 4 NumbersOnly = True + TabOrder = 8 OnChange = edtGCBeamWidthChange OnExit = edtGCPolarDivisorExit - TabOrder = 8 end object lblGCBeamLength: TLabel AnchorSideLeft.Control = edtGCBeamLength AnchorSideBottom.Control = edtGCBeamWidth - Left = 581 - Height = 17 - Top = 94 - Width = 44 + Left = 580 + Height = 18 + Top = 97 + Width = 45 Anchors = [akLeft, akBottom] Caption = 'Length' ParentColor = False @@ -565,9 +565,9 @@ object frmPreferences: TfrmPreferences object btnSPColor: TColorButton AnchorSideLeft.Control = lblGCHint AnchorSideTop.Control = edtOffset - Left = 340 + Left = 337 Height = 34 - Top = 43 + Top = 45 Width = 90 BorderSpacing.Left = 12 BorderWidth = 1 @@ -581,9 +581,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = btnSPColor AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtOffset - Left = 442 + Left = 439 Height = 34 - Top = 43 + Top = 45 Width = 90 BorderSpacing.Left = 12 BorderWidth = 1 @@ -597,9 +597,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = btnLPColor AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtOffset - Left = 544 + Left = 541 Height = 34 - Top = 43 + Top = 45 Width = 90 BorderSpacing.Left = 12 BorderWidth = 1 @@ -617,7 +617,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 250 - Width = 176 + Width = 174 Caption = 'Show distance in miles' TabOrder = 8 end @@ -626,14 +626,14 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = gbOffsets AnchorSideTop.Side = asrBottom Left = 6 - Height = 33 - Top = 569 - Width = 213 + Height = 34 + Top = 571 + Width = 217 AutoSize = True BorderSpacing.Top = 6 Caption = 'Configuration storage settings' - OnClick = btnCfgStorageClick TabOrder = 9 + OnClick = btnCfgStorageClick end object chkQSOColor: TCheckBox AnchorSideLeft.Control = chkNewDXCCTables @@ -641,8 +641,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrCenter Left = 6 Height = 23 - Top = 296 - Width = 124 + Top = 297 + Width = 128 Caption = 'QSO older than' TabOrder = 10 end @@ -651,9 +651,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblQsoColorDate AnchorSideTop.Side = asrBottom - Left = 133 - Height = 34 - Top = 290 + Left = 137 + Height = 35 + Top = 291 Width = 104 BorderSpacing.Left = 3 TabOrder = 11 @@ -664,10 +664,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtQSOColorDate AnchorSideTop.Side = asrCenter - Left = 240 - Height = 17 + Left = 244 + Height = 18 Top = 299 - Width = 162 + Width = 167 BorderSpacing.Left = 3 Caption = 'show with different color' ParentColor = False @@ -677,10 +677,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = chkShowMiles AnchorSideTop.Side = asrBottom - Left = 138 - Height = 17 + Left = 140 + Height = 18 Top = 273 - Width = 94 + Width = 99 Caption = '(YYYY-MM-DD)' ParentColor = False end @@ -691,7 +691,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 181 - Width = 446 + Width = 454 Caption = 'Check for newer version of DOK database after program startup' TabOrder = 12 end @@ -699,9 +699,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblDiffColor AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtQSOColorDate - Left = 414 + Left = 423 Height = 34 - Top = 290 + Top = 291 Width = 90 BorderSpacing.Left = 12 BorderWidth = 1 @@ -714,28 +714,28 @@ object frmPreferences: TfrmPreferences end object tabStation: TTabSheet Caption = 'Station' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox5: TGroupBox Left = 16 Height = 168 Top = 16 Width = 312 Caption = 'General' - ClientHeight = 150 + ClientHeight = 166 ClientWidth = 310 TabOrder = 0 object Label4: TLabel Left = 104 - Height = 17 + Height = 18 Top = 112 - Width = 26 + Width = 27 Caption = 'Loc:' ParentColor = False end object Label3: TLabel Left = 103 - Height = 17 + Height = 18 Top = 16 Width = 29 Caption = 'Call:' @@ -743,7 +743,7 @@ object frmPreferences: TfrmPreferences end object edtCall: TEdit Left = 147 - Height = 34 + Height = 35 Top = 11 Width = 128 CharCase = ecUppercase @@ -751,7 +751,7 @@ object frmPreferences: TfrmPreferences end object Label1: TLabel Left = 88 - Height = 17 + Height = 18 Top = 48 Width = 43 Caption = 'Name:' @@ -759,34 +759,34 @@ object frmPreferences: TfrmPreferences end object edtName: TEdit Left = 147 - Height = 34 + Height = 35 Top = 43 Width = 128 TabOrder = 1 end object Label2: TLabel Left = 98 - Height = 17 + Height = 18 Top = 80 - Width = 32 + Width = 33 Caption = 'QTH:' ParentColor = False end object edtQTH: TEdit Left = 147 - Height = 34 + Height = 35 Top = 75 Width = 128 TabOrder = 2 end object edtLoc: TEdit Left = 147 - Height = 34 + Height = 35 Top = 107 Width = 128 + TabOrder = 3 OnChange = edtLocChange OnExit = edtLocExit - TabOrder = 3 end end object GroupBox6: TGroupBox @@ -795,28 +795,28 @@ object frmPreferences: TfrmPreferences Top = 208 Width = 312 Caption = 'Contest Info' - ClientHeight = 178 + ClientHeight = 194 ClientWidth = 310 TabOrder = 1 object Label10: TLabel Left = 20 - Height = 17 + Height = 18 Top = 45 - Width = 108 + Width = 110 Caption = 'Mailing Address:' ParentColor = False end object edtMailingAddress: TEdit Left = 147 - Height = 34 + Height = 35 Top = 40 Width = 128 - OnChange = edtLocChange TabOrder = 0 + OnChange = edtLocChange end object Label26: TLabel Left = 76 - Height = 17 + Height = 18 Top = 77 Width = 54 Caption = 'ZIP City:' @@ -824,15 +824,15 @@ object frmPreferences: TfrmPreferences end object edtZipCity: TEdit Left = 147 - Height = 34 + Height = 35 Top = 72 Width = 128 - OnChange = edtLocChange TabOrder = 1 + OnChange = edtLocChange end object Label80: TLabel Left = 86 - Height = 17 + Height = 18 Top = 109 Width = 45 Caption = 'E-Mail:' @@ -840,33 +840,33 @@ object frmPreferences: TfrmPreferences end object edtEmail: TEdit Left = 147 - Height = 34 + Height = 35 Top = 104 Width = 128 - OnChange = edtLocChange TabOrder = 2 + OnChange = edtLocChange end object Label81: TLabel Left = 8 - Height = 17 + Height = 18 Top = 141 - Width = 118 + Width = 121 Caption = 'Club Membership:' ParentColor = False end object edtClub: TEdit Left = 147 - Height = 34 + Height = 35 Top = 136 Width = 128 - OnChange = edtLocChange TabOrder = 3 + OnChange = edtLocChange end object Label108: TLabel Left = 8 - Height = 17 + Height = 18 Top = 8 - Width = 142 + Width = 144 Caption = '(used for EDI exports)' ParentColor = False end @@ -876,17 +876,17 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Caption = 'New QSO' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object Label82: TLabel AnchorSideLeft.Control = edtRecetQSOs AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRecetQSOs AnchorSideTop.Side = asrCenter - Left = 330 - Height = 17 - Top = 404 - Width = 31 + Left = 335 + Height = 18 + Top = 403 + Width = 30 BorderSpacing.Left = 5 Caption = 'days' ParentColor = False @@ -901,7 +901,7 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 20 BorderSpacing.Top = 3 Caption = ' Default values ' - ClientHeight = 152 + ClientHeight = 168 ClientWidth = 634 TabOrder = 0 object Label5: TLabel @@ -909,7 +909,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox1 AnchorSideBottom.Side = asrBottom Left = 5 - Height = 17 + Height = 18 Top = 10 Width = 40 BorderSpacing.Top = 10 @@ -920,7 +920,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRST_R AnchorSideTop.Control = Label5 Left = 74 - Height = 17 + Height = 18 Top = 10 Width = 41 Caption = 'RST_R' @@ -930,9 +930,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtPWR AnchorSideTop.Control = Label5 Left = 143 - Height = 17 + Height = 18 Top = 10 - Width = 30 + Width = 32 Caption = 'PWR' ParentColor = False end @@ -940,9 +940,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbFreq AnchorSideTop.Control = Label5 Left = 263 - Height = 17 + Height = 18 Top = 10 - Width = 35 + Width = 36 Caption = 'FREQ' ParentColor = False end @@ -950,9 +950,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbMode AnchorSideTop.Control = Label5 Left = 433 - Height = 17 + Height = 18 Top = 10 - Width = 36 + Width = 39 Caption = 'Mode' ParentColor = False end @@ -960,9 +960,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtComments AnchorSideBottom.Control = edtComments Left = 5 - Height = 17 - Top = 96 - Width = 118 + Height = 18 + Top = 110 + Width = 123 Anchors = [akLeft, akBottom] Caption = 'Comment for QSO' ParentColor = False @@ -971,7 +971,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 Left = 5 - Height = 34 + Height = 35 Top = 30 Width = 64 BorderSpacing.Left = 5 @@ -983,7 +983,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRST_S Left = 74 - Height = 34 + Height = 35 Top = 30 Width = 64 BorderSpacing.Left = 5 @@ -994,7 +994,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRST_R Left = 143 - Height = 34 + Height = 35 Top = 30 Width = 80 BorderSpacing.Left = 5 @@ -1018,8 +1018,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = GroupBox1 AnchorSideBottom.Side = asrBottom Left = 5 - Height = 34 - Top = 113 + Height = 35 + Top = 128 Width = 216 Anchors = [akLeft, akBottom] BorderSpacing.Left = 5 @@ -1049,8 +1049,8 @@ object frmPreferences: TfrmPreferences Width = 159 BorderSpacing.Top = 5 Caption = 'Change default values' - OnClick = btnChangeDefFreqClick TabOrder = 6 + OnClick = btnChangeDefFreqClick end object btnChangeDefMode: TButton AnchorSideLeft.Control = cmbMode @@ -1062,29 +1062,29 @@ object frmPreferences: TfrmPreferences Width = 159 BorderSpacing.Top = 5 Caption = 'Change default values' - OnClick = btnChangeDefModeClick TabOrder = 7 + OnClick = btnChangeDefModeClick end object edtOperator: TEdit AnchorSideLeft.Control = cmbFreq AnchorSideBottom.Control = GroupBox1 AnchorSideBottom.Side = asrBottom Left = 263 - Height = 34 - Top = 113 + Height = 35 + Top = 128 Width = 216 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 5 - OnExit = edtOperatorExit TabOrder = 8 + OnExit = edtOperatorExit end object Label13: TLabel AnchorSideLeft.Control = edtOperator AnchorSideBottom.Control = edtComments Left = 263 - Height = 17 - Top = 96 - Width = 276 + Height = 18 + Top = 110 + Width = 284 Anchors = [akLeft, akBottom] Caption = 'Operator (if different than station callsign)' ParentColor = False @@ -1109,7 +1109,7 @@ object frmPreferences: TfrmPreferences Left = 20 Height = 23 Top = 303 - Width = 211 + Width = 213 BorderSpacing.Left = 20 Caption = 'Refresh data after save QSO' TabOrder = 2 @@ -1121,7 +1121,7 @@ object frmPreferences: TfrmPreferences Left = 20 Height = 23 Top = 280 - Width = 387 + Width = 390 BorderSpacing.Left = 20 Caption = 'Skip over mode and frequency when radio is connected' TabOrder = 3 @@ -1133,7 +1133,7 @@ object frmPreferences: TfrmPreferences Left = 20 Height = 23 Top = 326 - Width = 415 + Width = 422 BorderSpacing.Left = 20 Caption = 'Enable auto search on HamQTH.com/QRZ.COM/QRZCQ.com' TabOrder = 4 @@ -1145,7 +1145,7 @@ object frmPreferences: TfrmPreferences Left = 20 Height = 23 Top = 401 - Width = 244 + Width = 249 BorderSpacing.Left = 20 Caption = 'Show recent QSO records for last ' TabOrder = 5 @@ -1155,14 +1155,14 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkMvToRem AnchorSideTop.Side = asrBottom - Left = 269 - Height = 34 + Left = 274 + Height = 35 Top = 395 Width = 56 BorderSpacing.Left = 5 - OnKeyPress = edtRecetQSOsKeyPress TabOrder = 6 Text = '5' + OnKeyPress = edtRecetQSOsKeyPress end object chkIgnoreQRZQSL: TCheckBox AnchorSideLeft.Control = tabNewQSO @@ -1171,7 +1171,7 @@ object frmPreferences: TfrmPreferences Left = 20 Height = 23 Top = 349 - Width = 281 + Width = 286 BorderSpacing.Left = 20 Caption = 'Ignore HamQTH.com/QRZ.COM qsl info' TabOrder = 7 @@ -1183,7 +1183,7 @@ object frmPreferences: TfrmPreferences Left = 20 Height = 23 Top = 372 - Width = 578 + Width = 576 BorderSpacing.Left = 20 Caption = 'If ''QSL via'' field contains other info than a call sign, move to ''Comment to QSO'' field' TabOrder = 8 @@ -1235,7 +1235,7 @@ object frmPreferences: TfrmPreferences Left = 40 Height = 23 Top = 234 - Width = 387 + Width = 392 BorderSpacing.Left = 40 Caption = 'Mark only the first QSO, first band QSO, first mode QSO' TabOrder = 12 @@ -1246,8 +1246,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 429 - Width = 458 + Top = 430 + Width = 459 BorderSpacing.Left = 20 Caption = 'In previous QSO list show also QSO with call/p, call/m, W6/call etc.' TabOrder = 13 @@ -1258,7 +1258,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 452 + Top = 453 Width = 199 BorderSpacing.Left = 20 Caption = 'Clear RIT after saving QSO' @@ -1270,8 +1270,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 475 - Width = 419 + Top = 476 + Width = 426 BorderSpacing.Left = 20 Caption = 'Always overwrite info from previous QSO with callbook data' TabOrder = 15 @@ -1282,8 +1282,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 521 - Width = 241 + Top = 522 + Width = 243 BorderSpacing.Left = 20 Caption = 'Capitalise first letter in QTH field' TabOrder = 16 @@ -1294,8 +1294,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 40 Height = 23 - Top = 498 - Width = 405 + Top = 499 + Width = 402 BorderSpacing.Left = 40 Caption = 'Always overwrite only CQ, ITU zones, county and US state' TabOrder = 17 @@ -1306,8 +1306,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 544 - Width = 253 + Top = 545 + Width = 258 BorderSpacing.Left = 20 Caption = 'Fill Award field from previous QSO ' TabOrder = 18 @@ -1318,8 +1318,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 567 - Width = 168 + Top = 568 + Width = 170 BorderSpacing.Left = 20 Caption = 'Enable satellite mode' TabOrder = 19 @@ -1329,10 +1329,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label82 AnchorSideTop.Side = asrCenter - Left = 366 + Left = 370 Height = 23 Top = 401 - Width = 345 + Width = 346 BorderSpacing.Left = 5 Caption = 'instead of recent, show QSOs B4 with logged call' TabOrder = 20 @@ -1343,8 +1343,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 20 Height = 23 - Top = 590 - Width = 279 + Top = 591 + Width = 281 BorderSpacing.Left = 20 Caption = 'Upload SAT info to AMSAT status page' TabOrder = 21 @@ -1354,9 +1354,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkUpdateAMSATstatus AnchorSideTop.Side = asrBottom Left = 40 - Height = 17 - Top = 613 - Width = 528 + Height = 18 + Top = 614 + Width = 536 BorderSpacing.Left = 40 Caption = 'User defined web button. Macros: $CALL, $BAND, $FREQ, $MODE, $LOC, $MYLOC' ParentColor = False @@ -1366,8 +1366,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblUsrBtn AnchorSideTop.Side = asrBottom Left = 20 - Height = 34 - Top = 630 + Height = 35 + Top = 632 Width = 548 BorderSpacing.Left = 20 TabOrder = 22 @@ -1375,15 +1375,15 @@ object frmPreferences: TfrmPreferences end object tabVisibleColumns: TTabSheet Caption = 'Visible columns' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object chkDate: TCheckBox AnchorSideLeft.Control = tabVisibleColumns AnchorSideTop.Control = tabVisibleColumns Left = 18 Height = 23 Top = 6 - Width = 57 + Width = 58 BorderSpacing.Left = 18 BorderSpacing.Top = 6 Caption = 'Date' @@ -1396,7 +1396,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 32 - Width = 78 + Width = 79 BorderSpacing.Top = 3 Caption = 'Time on' TabOrder = 1 @@ -1408,7 +1408,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 58 - Width = 80 + Width = 82 BorderSpacing.Top = 3 Caption = 'Time off' TabOrder = 2 @@ -1432,7 +1432,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 110 - Width = 62 + Width = 65 BorderSpacing.Top = 3 Caption = 'Mode' TabOrder = 4 @@ -1444,7 +1444,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 136 - Width = 54 + Width = 56 BorderSpacing.Top = 3 Caption = 'Freq' TabOrder = 5 @@ -1468,7 +1468,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 292 - Width = 111 + Width = 112 BorderSpacing.Top = 3 Caption = 'QSL received' TabOrder = 7 @@ -1480,7 +1480,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 162 - Width = 83 + Width = 82 BorderSpacing.Top = 3 Caption = 'RST sent' TabOrder = 8 @@ -1492,7 +1492,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 188 - Width = 115 + Width = 114 BorderSpacing.Top = 3 Caption = 'RST Received' TabOrder = 9 @@ -1516,7 +1516,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 240 - Width = 54 + Width = 55 BorderSpacing.Top = 3 Caption = 'QTH' TabOrder = 11 @@ -1527,7 +1527,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 6 - Width = 113 + Width = 114 BorderSpacing.Left = 145 Caption = 'QSL manager' TabOrder = 12 @@ -1539,7 +1539,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 32 - Width = 74 + Width = 78 BorderSpacing.Top = 3 Caption = 'Locator' TabOrder = 13 @@ -1551,7 +1551,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 58 - Width = 95 + Width = 98 BorderSpacing.Top = 3 Caption = 'My locator' TabOrder = 14 @@ -1563,7 +1563,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 133 - Width = 57 + Width = 58 BorderSpacing.Top = 3 Caption = 'IOTA' TabOrder = 15 @@ -1575,7 +1575,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 159 - Width = 67 + Width = 69 BorderSpacing.Top = 3 Caption = 'Award' TabOrder = 16 @@ -1587,7 +1587,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 185 - Width = 72 + Width = 73 BorderSpacing.Top = 3 Caption = 'County' TabOrder = 17 @@ -1599,7 +1599,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 211 - Width = 66 + Width = 69 BorderSpacing.Top = 3 Caption = 'Power' TabOrder = 18 @@ -1623,7 +1623,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 263 - Width = 139 + Width = 143 BorderSpacing.Top = 3 Caption = 'Comment to QSO' TabOrder = 20 @@ -1659,7 +1659,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 341 - Width = 60 + Width = 62 BorderSpacing.Top = 3 Caption = 'State' TabOrder = 23 @@ -1670,7 +1670,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 6 - Width = 159 + Width = 161 BorderSpacing.Left = 145 Caption = 'LoTW QSL send date' TabOrder = 24 @@ -1682,7 +1682,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 32 - Width = 184 + Width = 187 BorderSpacing.Top = 3 Caption = 'LoTW QSL received date' TabOrder = 25 @@ -1694,7 +1694,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 58 - Width = 123 + Width = 124 BorderSpacing.Top = 3 Caption = 'LoTW QSL sent' TabOrder = 26 @@ -1706,7 +1706,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 84 - Width = 151 + Width = 153 BorderSpacing.Top = 3 Caption = 'LoTW QSL received' TabOrder = 27 @@ -1718,7 +1718,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 110 - Width = 89 + Width = 92 BorderSpacing.Top = 3 Caption = 'Continent' TabOrder = 28 @@ -1730,7 +1730,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 136 - Width = 116 + Width = 117 BorderSpacing.Top = 3 Caption = 'QSL sent date' TabOrder = 29 @@ -1742,7 +1742,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 162 - Width = 144 + Width = 146 BorderSpacing.Top = 3 Caption = 'QSL received date' TabOrder = 30 @@ -1766,7 +1766,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 214 - Width = 124 + Width = 125 BorderSpacing.Top = 3 Caption = 'eQSL sent date' TabOrder = 32 @@ -1778,7 +1778,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 240 - Width = 119 + Width = 120 BorderSpacing.Top = 3 Caption = 'eQSL received' TabOrder = 33 @@ -1790,7 +1790,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 266 - Width = 152 + Width = 154 BorderSpacing.Top = 3 Caption = 'eQSL received date' TabOrder = 34 @@ -1802,7 +1802,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 292 - Width = 196 + Width = 198 BorderSpacing.Top = 3 Caption = 'Received QSL,LoTW,eQSL ' TabOrder = 35 @@ -1812,9 +1812,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkQSLRAll AnchorSideTop.Side = asrBottom Left = 329 - Height = 17 + Height = 18 Top = 315 - Width = 169 + Width = 165 BorderSpacing.Left = 21 Caption = '(all values in one column)' ParentColor = False @@ -1826,7 +1826,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 318 - Width = 118 + Width = 119 BorderSpacing.Top = 3 Caption = 'Country name' TabOrder = 36 @@ -1838,7 +1838,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 344 - Width = 104 + Width = 110 BorderSpacing.Top = 3 Caption = 'Propagation' TabOrder = 37 @@ -1850,7 +1850,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 367 - Width = 121 + Width = 122 BorderSpacing.Top = 3 Caption = 'Satellite name' TabOrder = 38 @@ -1862,7 +1862,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 393 - Width = 113 + Width = 114 BorderSpacing.Top = 3 Caption = 'RX frequency' TabOrder = 39 @@ -1874,7 +1874,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 344 - Width = 117 + Width = 118 BorderSpacing.Top = 29 Caption = 'Contest name' TabOrder = 40 @@ -1898,7 +1898,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 396 - Width = 114 + Width = 115 BorderSpacing.Top = 3 Caption = 'SerialNR rcvd' TabOrder = 42 @@ -1910,7 +1910,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 370 - Width = 118 + Width = 120 BorderSpacing.Top = 3 Caption = 'ContMSG sent' TabOrder = 43 @@ -1922,7 +1922,7 @@ object frmPreferences: TfrmPreferences Left = 308 Height = 23 Top = 396 - Width = 118 + Width = 121 BorderSpacing.Top = 3 Caption = 'ContMSG rcvd' TabOrder = 44 @@ -1934,7 +1934,7 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 107 - Width = 133 + Width = 132 BorderSpacing.Top = 3 Caption = 'Distance (in pnl)' TabOrder = 45 @@ -1945,7 +1945,7 @@ object frmPreferences: TfrmPreferences Left = 307 Height = 23 Top = 424 - Width = 96 + Width = 97 BorderSpacing.Top = 5 Caption = 'DARC DOK' TabOrder = 46 @@ -1957,22 +1957,22 @@ object frmPreferences: TfrmPreferences Left = 163 Height = 23 Top = 81 - Width = 83 + Width = 89 Caption = 'Operator' TabOrder = 47 end end object tabBands: TTabSheet Caption = 'Bands' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object cb136kHz: TCheckBox AnchorSideLeft.Control = tabBands AnchorSideTop.Control = tabBands Left = 16 Height = 23 Top = 16 - Width = 79 + Width = 77 BorderSpacing.Left = 16 BorderSpacing.Top = 16 Caption = '136 kHz' @@ -1982,7 +1982,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb136kHz AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cb136kHz - Left = 111 + Left = 109 Height = 23 Top = 16 Width = 79 @@ -1994,7 +1994,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb160m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 39 Width = 79 @@ -2005,7 +2005,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb60m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 85 Width = 67 @@ -2016,7 +2016,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb40m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 108 Width = 87 @@ -2027,7 +2027,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb30m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 131 Width = 75 @@ -2038,7 +2038,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb20m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 154 Width = 75 @@ -2049,7 +2049,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb17m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 177 Width = 75 @@ -2060,7 +2060,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb15m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 200 Width = 75 @@ -2071,7 +2071,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb12m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 223 Width = 75 @@ -2082,7 +2082,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb8m AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 39 Width = 75 @@ -2093,7 +2093,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb4m AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 108 Width = 83 @@ -2104,7 +2104,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb125m AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 154 Width = 83 @@ -2115,7 +2115,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cb8m - Left = 293 + Left = 292 Height = 23 Top = 16 Width = 91 @@ -2127,7 +2127,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb23cm AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 39 Width = 91 @@ -2138,7 +2138,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb13cm AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 62 Width = 91 @@ -2149,7 +2149,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb8cm AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 85 Width = 91 @@ -2160,10 +2160,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb5cm AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 108 - Width = 73 + Width = 72 Caption = '10 GHz' TabOrder = 17 end @@ -2171,10 +2171,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb3cm AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 131 - Width = 73 + Width = 72 Caption = '24 GHz' TabOrder = 18 end @@ -2182,10 +2182,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb1cm AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 154 - Width = 73 + Width = 72 Caption = '47 GHz' TabOrder = 19 end @@ -2193,10 +2193,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb47GHz AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 177 - Width = 73 + Width = 72 Caption = '76 GHz' TabOrder = 20 end @@ -2204,10 +2204,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb76GHz AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 200 - Width = 81 + Width = 80 Caption = '122 GHz' TabOrder = 21 end @@ -2215,10 +2215,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb122GHz AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 223 - Width = 81 + Width = 80 Caption = '134 GHz' TabOrder = 22 end @@ -2226,10 +2226,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideTop.Control = cb134GHz AnchorSideTop.Side = asrBottom - Left = 293 + Left = 292 Height = 23 Top = 246 - Width = 81 + Width = 80 Caption = '241 GHz' TabOrder = 23 end @@ -2237,24 +2237,24 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb23cm AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cb23cm - Left = 400 + Left = 399 Height = 25 Top = 16 Width = 94 BorderSpacing.Left = 16 BorderSpacing.InnerBorder = 4 Caption = 'Frequencies' - OnClick = btnFrequenciesClick TabOrder = 24 + OnClick = btnFrequenciesClick end object cb4m: TCheckBox AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb5m AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 85 - Width = 71 + Width = 72 Caption = '70MHz' TabOrder = 25 end @@ -2262,7 +2262,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideTop.Control = cb80m AnchorSideTop.Side = asrBottom - Left = 111 + Left = 109 Height = 23 Top = 62 Width = 67 @@ -2273,7 +2273,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb2m AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 131 Width = 83 @@ -2284,7 +2284,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb70cm AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 177 Width = 83 @@ -2298,7 +2298,7 @@ object frmPreferences: TfrmPreferences Left = 16 Height = 23 Top = 39 - Width = 79 + Width = 77 Caption = '472 kHz' TabOrder = 29 end @@ -2306,10 +2306,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb8m AnchorSideTop.Control = cb6m AnchorSideTop.Side = asrBottom - Left = 206 + Left = 204 Height = 23 Top = 62 - Width = 71 + Width = 72 Caption = '60MHz' TabOrder = 30 end @@ -2317,10 +2317,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cb160m AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cb160m - Left = 206 + Left = 204 Height = 23 Top = 16 - Width = 71 + Width = 72 BorderSpacing.Left = 16 Caption = '40MHz' TabOrder = 31 @@ -2328,37 +2328,37 @@ object frmPreferences: TfrmPreferences end object tabTRXcontrol: TTabSheet Caption = 'TRX control' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 OnExit = cmbRadioNrCloseUp OnShow = tabTRXcontrolEnter object btnChangeDefaultFreq: TButton AnchorSideTop.Control = grbRadio AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 471 + Left = 472 Height = 25 Top = 549 Width = 192 Anchors = [akTop, akRight] BorderSpacing.Top = 6 Caption = 'Change default frequencies' - OnClick = btnChangeDefaultFreqClick TabOrder = 4 + OnClick = btnChangeDefaultFreqClick end object btnSplit: TButton AnchorSideTop.Control = btnAddTrxMem AnchorSideTop.Side = asrBottom AnchorSideRight.Control = btnAddTrxMem AnchorSideRight.Side = asrBottom - Left = 559 + Left = 560 Height = 25 Top = 599 Width = 104 Anchors = [akTop, akRight] Caption = 'Split settings' - OnClick = btnSplitClick TabOrder = 6 + OnClick = btnSplitClick end object grbRigctldPath: TGroupBox AnchorSideLeft.Control = tabTRXcontrol @@ -2370,16 +2370,16 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 4 Caption = ' rigctld ' - ClientHeight = 70 + ClientHeight = 86 ClientWidth = 655 TabOrder = 0 object lblRigctdPath: TLabel AnchorSideLeft.Control = grbRigctldPath AnchorSideTop.Control = grbRigctldPath Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 139 + Width = 145 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Path to rigctld binary:' @@ -2390,20 +2390,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblRigctdPath AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 29 + Height = 35 + Top = 30 Width = 503 BorderSpacing.Top = 6 - OnChange = TRXParamsChange TabOrder = 0 + OnChange = TRXParamsChange end object edtRigCount: TSpinEdit AnchorSideLeft.Control = edtRigCtldPath AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRigCtldPath Left = 542 - Height = 34 - Top = 29 + Height = 35 + Top = 30 Width = 50 BorderSpacing.Left = 33 MaxValue = 6 @@ -2416,9 +2416,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRigCount AnchorSideTop.Control = lblRigctdPath Left = 542 - Height = 17 + Height = 18 Top = 6 - Width = 76 + Width = 79 Caption = 'Nr of radios' ParentColor = False end @@ -2430,7 +2430,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 575 - Width = 298 + Width = 299 Caption = 'Show communication with TRX in console' TabOrder = 3 end @@ -2439,9 +2439,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = btnSplit AnchorSideTop.Side = asrCenter Left = 18 - Height = 17 - Top = 603 - Width = 397 + Height = 18 + Top = 602 + Width = 396 Caption = 'You have to run cqrlog in console to see the debug messages' ParentColor = False end @@ -2452,7 +2452,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 550 - Width = 322 + Width = 326 BorderSpacing.Left = 18 Caption = 'Switch only between mode related memories' TabOrder = 2 @@ -2462,14 +2462,14 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom AnchorSideRight.Control = btnChangeDefaultFreq AnchorSideRight.Side = asrBottom - Left = 472 + Left = 473 Height = 25 Top = 574 Width = 191 Anchors = [akTop, akRight] Caption = 'Add/Modify memory' - OnClick = btnAddTrxMemClick TabOrder = 5 + OnClick = btnAddTrxMemClick end object grbRadio: TGroupBox AnchorSideLeft.Control = grbRigctldPath @@ -2492,8 +2492,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblModelR Left = 236 - Height = 17 - Top = 59 + Height = 18 + Top = 61 Width = 157 BorderSpacing.Left = 30 Caption = 'Device (e.g. /dev/ttyS0):' @@ -2504,9 +2504,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbRadioNr AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 59 - Width = 72 + Height = 18 + Top = 61 + Width = 73 BorderSpacing.Left = 6 BorderSpacing.Top = 5 Caption = 'RIG model:' @@ -2517,9 +2517,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblDeviceR Left = 439 - Height = 17 - Top = 59 - Width = 58 + Height = 18 + Top = 61 + Width = 61 BorderSpacing.Left = 30 Caption = 'Poll rate:' ParentColor = False @@ -2529,32 +2529,32 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblDeviceR AnchorSideTop.Side = asrBottom Left = 236 - Height = 34 + Height = 35 Hint = 'Device that commacts rig. It can be /dev/ttyXXXX or /dev/serial/by-id/XXXXXXXXXXX'#10'or if rig has eternet connection IPaddress:port (10.11.12.13:1234)' - Top = 76 + Top = 79 Width = 173 - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 4 + OnChange = TRXParamsChange end object edtPoll: TEdit AnchorSideLeft.Control = lblPollR AnchorSideTop.Control = lblPollR AnchorSideTop.Side = asrBottom Left = 439 - Height = 34 + Height = 35 Hint = 'How often rig is polled (in MIlliseconds). Suitable value is around 500-3000'#10'This also effects how fast changes made with TRXControl will show up.' - Top = 76 + Top = 79 Width = 80 MaxLength = 5 NumbersOnly = True - OnChange = TRXParamsChange - OnExit = edtPollExit ParentShowHint = False ShowHint = True TabOrder = 5 Text = '500' + OnChange = TRXParamsChange + OnExit = edtPollExit end object chkRSendCWR: TCheckBox AnchorSideLeft.Control = edtRRigCtldArgs @@ -2562,12 +2562,12 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblExtra Left = 273 Height = 23 - Top = 113 - Width = 185 + Top = 117 + Width = 184 BorderSpacing.Left = 12 Caption = 'Use CWR instead of CW ' - OnChange = TRXParamsChange TabOrder = 8 + OnChange = TRXParamsChange end object chkRunRigCtld: TCheckBox AnchorSideLeft.Control = chkRSendCWR @@ -2576,22 +2576,22 @@ object frmPreferences: TfrmPreferences Left = 273 Height = 23 Hint = 'Cqrlog will start rigctld if checked. This is not needed when rigctld runs on'#10'other PC, or is started separately, or emulator (sdr rig, flrig, WFview...etc.)'#10'is used.' - Top = 136 - Width = 235 + Top = 140 + Width = 239 Caption = 'Run rigctld when program starts' - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 9 + OnChange = TRXParamsChange end object lblExtra: TLabel AnchorSideLeft.Control = lblModelR AnchorSideTop.Control = cmbModelRig AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 113 - Width = 209 + Height = 18 + Top = 117 + Width = 210 BorderSpacing.Top = 3 Caption = 'Extra command line arguments:' ParentColor = False @@ -2601,23 +2601,23 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblExtra AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 + Height = 35 Hint = 'Extra arguments for rigctld command line that do not belong in TRXConrol tab''s'#10'setting. These could be for example "--vfo", "-vvvvv" etc.' - Top = 130 + Top = 135 Width = 255 - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 7 + OnChange = TRXParamsChange end object lblPortR: TLabel AnchorSideLeft.Control = edtPoll AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblPollR Left = 549 - Height = 17 - Top = 59 - Width = 84 + Height = 18 + Top = 61 + Width = 89 BorderSpacing.Left = 30 Caption = 'Port number:' ParentColor = False @@ -2627,14 +2627,14 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblPortR AnchorSideTop.Side = asrBottom Left = 549 - Height = 34 - Top = 76 + Height = 35 + Top = 79 Width = 80 MaxLength = 5 NumbersOnly = True - OnChange = TRXParamsChange TabOrder = 6 Text = '4532' + OnChange = TRXParamsChange end object grbSerialR: TGroupBox AnchorSideLeft.Control = lblModelR @@ -2642,20 +2642,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 6 Height = 148 - Top = 167 + Top = 173 Width = 511 BorderSpacing.Top = 3 Caption = 'Radio one serial parameters' - ClientHeight = 130 + ClientHeight = 146 ClientWidth = 509 TabOrder = 11 object lblSerialRSpd: TLabel AnchorSideLeft.Control = grbSerialR AnchorSideTop.Control = grbSerialR Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 84 + Width = 85 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Serial speed:' @@ -2665,9 +2665,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbDataBitsR AnchorSideTop.Control = lblSerialRSpd Left = 125 - Height = 17 + Height = 18 Top = 6 - Width = 59 + Width = 60 Caption = 'Data bits' ParentColor = False end @@ -2675,9 +2675,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbStopBitsR AnchorSideTop.Control = lblSerialRSpd Left = 244 - Height = 17 + Height = 18 Top = 6 - Width = 57 + Width = 60 Caption = 'Stop bits' ParentColor = False end @@ -2686,8 +2686,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbSpeedR AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 70 + Height = 18 + Top = 72 Width = 72 BorderSpacing.Top = 6 Caption = 'Handshake' @@ -2697,9 +2697,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbParityR AnchorSideTop.Control = lblSerialRSpd Left = 356 - Height = 17 + Height = 18 Top = 6 - Width = 38 + Width = 40 Caption = 'Parity' ParentColor = False end @@ -2708,8 +2708,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblSerialRHand AnchorSideTop.Side = asrBottom Left = 6 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 107 BorderSpacing.Top = 6 ItemHeight = 0 @@ -2720,18 +2720,18 @@ object frmPreferences: TfrmPreferences 'XON/XOFF' 'HARDWARE' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 4 Text = 'default' + OnChange = TRXParamsChange end object cmbParityR: TComboBox AnchorSideLeft.Control = cmbStopBitsR AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedR Left = 356 - Height = 29 - Top = 35 + Height = 30 + Top = 36 Width = 109 BorderSpacing.Left = 12 ItemHeight = 0 @@ -2744,18 +2744,18 @@ object frmPreferences: TfrmPreferences 'Mark' 'Space' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 3 Text = 'default' + OnChange = TRXParamsChange end object cmbDataBitsR: TComboBox AnchorSideLeft.Control = cmbSpeedR AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedR Left = 125 - Height = 29 - Top = 35 + Height = 30 + Top = 36 Width = 107 BorderSpacing.Left = 12 ItemHeight = 0 @@ -2768,18 +2768,18 @@ object frmPreferences: TfrmPreferences '8' '9' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 1 Text = 'default' + OnChange = TRXParamsChange end object cmbStopBitsR: TComboBox AnchorSideLeft.Control = cmbDataBitsR AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedR Left = 244 - Height = 29 - Top = 35 + Height = 30 + Top = 36 Width = 100 BorderSpacing.Left = 12 ItemHeight = 0 @@ -2791,18 +2791,18 @@ object frmPreferences: TfrmPreferences '2' '3' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 2 Text = 'default' + OnChange = TRXParamsChange end object cmbSpeedR: TComboBox AnchorSideLeft.Control = lblSerialRSpd AnchorSideTop.Control = lblSerialRSpd AnchorSideTop.Side = asrBottom Left = 6 - Height = 29 - Top = 35 + Height = 30 + Top = 36 Width = 107 BorderSpacing.Top = 12 ItemHeight = 0 @@ -2819,18 +2819,18 @@ object frmPreferences: TfrmPreferences '57600' '115200' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 0 Text = 'default' + OnChange = TRXParamsChange end object cmbDTRR: TComboBox AnchorSideLeft.Control = cmbHanshakeR AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbHanshakeR Left = 125 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 107 BorderSpacing.Left = 12 ItemHeight = 0 @@ -2841,17 +2841,17 @@ object frmPreferences: TfrmPreferences 'ON' 'OFF' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 5 Text = 'default' + OnChange = TRXParamsChange end object lblSerialRDtr: TLabel AnchorSideLeft.Control = cmbDTRR AnchorSideTop.Control = lblSerialRHand Left = 125 - Height = 17 - Top = 70 + Height = 18 + Top = 72 Width = 27 Caption = 'DTR' ParentColor = False @@ -2861,8 +2861,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbDTRR Left = 244 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 100 BorderSpacing.Left = 12 ItemHeight = 0 @@ -2873,17 +2873,17 @@ object frmPreferences: TfrmPreferences 'ON' 'OFF' ) - OnChange = TRXParamsChange Style = csDropDownList TabOrder = 6 Text = 'default' + OnChange = TRXParamsChange end object lblSerialRRts: TLabel AnchorSideLeft.Control = cmbRTSR AnchorSideTop.Control = lblSerialRHand Left = 244 - Height = 17 - Top = 70 + Height = 18 + Top = 72 Width = 25 Caption = 'RTS' ParentColor = False @@ -2894,20 +2894,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblModelR AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 76 + Height = 35 + Top = 79 Width = 200 ItemHeight = 0 - OnChange = cmbModelRigChange TabOrder = 3 + OnChange = cmbModelRigChange end object lblHost: TLabel AnchorSideLeft.Control = edtRHost AnchorSideTop.Control = lblRName Left = 439 - Height = 17 + Height = 18 Top = 3 - Width = 30 + Width = 31 BorderSpacing.Right = 6 Caption = 'Host' ParentColor = False @@ -2918,28 +2918,28 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 236 - Height = 34 + Height = 35 Hint = 'Name of rig. This will show up in radio selector.' - Top = 20 + Top = 21 Width = 100 - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 1 + OnChange = TRXParamsChange end object edtRHost: TEdit AnchorSideLeft.Control = edtPoll AnchorSideTop.Control = edtRadioName AnchorSideRight.Side = asrBottom Left = 439 - Height = 34 + Height = 35 Hint = 'IP address of rinnig rigctld or emulator. Usually "127.0.0.1" or "localhost"' - Top = 20 + Top = 21 Width = 128 - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 2 + OnChange = TRXParamsChange end object grpUsrCmds: TGroupBox AnchorSideLeft.Control = grbRadio @@ -2950,8 +2950,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = grbRadio AnchorSideBottom.Side = asrBottom Left = 6 - Height = 119 - Top = 318 + Height = 113 + Top = 324 Width = 643 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 6 @@ -2959,7 +2959,7 @@ object frmPreferences: TfrmPreferences BorderSpacing.Right = 6 BorderSpacing.Bottom = 6 Caption = 'User defined TRX control buttons' - ClientHeight = 101 + ClientHeight = 94 ClientWidth = 641 TabOrder = 12 object lblUsr1R: TLabel @@ -2967,8 +2967,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtUsr1R AnchorSideTop.Side = asrCenter Left = 3 - Height = 17 - Top = 9 + Height = 18 + Top = 8 Width = 30 BorderSpacing.Left = 3 BorderSpacing.Top = 6 @@ -2980,7 +2980,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtUsr2R AnchorSideTop.Side = asrCenter Left = 3 - Height = 17 + Height = 18 Top = 43 Width = 30 Caption = 'Usr2' @@ -2991,8 +2991,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtUsr3R AnchorSideTop.Side = asrCenter Left = 3 - Height = 17 - Top = 77 + Height = 18 + Top = 78 Width = 30 Caption = 'Usr3' ParentColor = False @@ -3004,7 +3004,7 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = grpUsrCmds AnchorSideRight.Side = asrBottom Left = 102 - Height = 34 + Height = 35 Top = 0 Width = 527 Anchors = [akTop, akLeft, akRight] @@ -3019,8 +3019,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = edtUsr1R AnchorSideRight.Side = asrBottom Left = 102 - Height = 34 - Top = 34 + Height = 35 + Top = 35 Width = 527 Anchors = [akTop, akLeft, akRight] TabOrder = 3 @@ -3032,8 +3032,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = edtUsr2R AnchorSideRight.Side = asrBottom Left = 102 - Height = 34 - Top = 68 + Height = 35 + Top = 70 Width = 527 Anchors = [akTop, akLeft, akRight] TabOrder = 5 @@ -3043,7 +3043,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = grpUsrCmds Left = 39 - Height = 34 + Height = 35 Top = 0 Width = 57 BorderSpacing.Left = 6 @@ -3055,8 +3055,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtUsr1RName AnchorSideTop.Side = asrBottom Left = 39 - Height = 34 - Top = 34 + Height = 35 + Top = 35 Width = 57 MaxLength = 4 TabOrder = 2 @@ -3066,8 +3066,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtUsr2RName AnchorSideTop.Side = asrBottom Left = 39 - Height = 34 - Top = 68 + Height = 35 + Top = 70 Width = 57 MaxLength = 4 TabOrder = 4 @@ -3081,38 +3081,38 @@ object frmPreferences: TfrmPreferences Left = 520 Height = 23 Hint = 'Check if rigctld has started with --vfo parameter. '#10'if response is 1 the polling command format should be'#10'changed from "+f +m +v" to "+f currVFO +m currVFO +v"'#10'And also some other Hamlib commands need "currVFO" then.' - Top = 113 - Width = 103 + Top = 117 + Width = 102 BorderSpacing.Left = 3 Caption = 'Use \chkvfo' Checked = True - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 10 + OnChange = TRXParamsChange end object cmbRadioNr: TComboBox AnchorSideLeft.Control = grbRadio AnchorSideTop.Control = lblRName AnchorSideTop.Side = asrBottom Left = 6 - Height = 33 - Top = 21 + Height = 34 + Top = 22 Width = 120 BorderSpacing.Left = 6 BorderSpacing.Top = 1 ItemHeight = 0 - OnChange = cmbRadioNrChange - OnCloseUp = cmbRadioNrCloseUp Style = csDropDownList TabOrder = 0 + OnChange = cmbRadioNrChange + OnCloseUp = cmbRadioNrCloseUp end object lblRName: TLabel AnchorSideLeft.Control = edtRadioName AnchorSideTop.Control = grbRadio Left = 236 - Height = 17 + Height = 18 Top = 3 Width = 39 BorderSpacing.Top = 3 @@ -3127,23 +3127,23 @@ object frmPreferences: TfrmPreferences Left = 520 Height = 23 Hint = 'When checked Power_ON command will be sent when initializing rig.'#10'This is done with extra rigctld command line argument "-C auto_power_on=1"' - Top = 136 - Width = 131 + Top = 140 + Width = 132 Caption = 'Rig pwr ON cmd' Checked = True - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 13 + OnChange = TRXParamsChange end object lblRadio: TLabel AnchorSideLeft.Control = cmbRadioNr AnchorSideTop.Control = grbRadio Left = 6 - Height = 17 + Height = 18 Top = 3 - Width = 37 + Width = 39 BorderSpacing.Top = 3 Caption = 'Radio' ParentColor = False @@ -3155,13 +3155,13 @@ object frmPreferences: TfrmPreferences Left = 520 Height = 23 Hint = 'Send UTC time from PC to rig via Hamlib command.'#10'Sending occurs once after rigctld start.' - Top = 159 + Top = 163 Width = 120 Caption = 'Set UTC to Rig' - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 14 + OnChange = TRXParamsChange end object chkCPollR: TCheckBox AnchorSideLeft.Control = chkRPwrOn @@ -3170,15 +3170,15 @@ object frmPreferences: TfrmPreferences Left = 520 Height = 23 Hint = 'Default rig poll is compound +f +m +v as one command.'#10'Unchecking this breaks compound and every single '#10'command is sent as own line.'#10'This may help poor rigctld emulators like WFview to work.' - Top = 205 - Width = 124 + Top = 209 + Width = 129 Caption = 'Compound poll' Checked = True - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 15 + OnChange = TRXParamsChange end object chkVoiceR: TCheckBox AnchorSideLeft.Control = chkRPwrOn @@ -3187,20 +3187,20 @@ object frmPreferences: TfrmPreferences Left = 520 Height = 23 Hint = 'When in phone modes launch rig''s voice memories'#10'via rigctld command instead of starting voice_keyer'#10'script. (Rig must support \send_voice_mem command)' - Top = 182 + Top = 186 Width = 118 Caption = 'Send rig voice' - OnChange = TRXParamsChange ParentShowHint = False ShowHint = True TabOrder = 16 + OnChange = TRXParamsChange end end end object TabROTcontrol: TTabSheet Caption = 'ROT control' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox41: TGroupBox AnchorSideLeft.Control = TabROTcontrol AnchorSideTop.Control = TabROTcontrol @@ -3211,16 +3211,16 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = ' rotctld ' - ClientHeight = 70 + ClientHeight = 86 ClientWidth = 655 TabOrder = 0 object Label124: TLabel AnchorSideLeft.Control = GroupBox41 AnchorSideTop.Control = GroupBox41 Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 140 + Width = 148 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Path to rotctld binary:' @@ -3231,12 +3231,12 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = Label124 AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 503 - OnChange = TRXParamsChange TabOrder = 0 Text = 'edtRotCtldPath' + OnChange = TRXParamsChange end end object pgROTControl: TPageControl @@ -3259,7 +3259,7 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = pgROTControl AnchorSideBottom.Side = asrBottom Caption = 'Rotor one' - ClientHeight = 361 + ClientHeight = 388 ClientWidth = 647 object gbRot1: TGroupBox AnchorSideLeft.Control = tabRot1 @@ -3271,14 +3271,14 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 12 Caption = ' Rotor one, desc.:' - ClientHeight = 323 + ClientHeight = 339 ClientWidth = 622 TabOrder = 0 object lblDevice1: TLabel AnchorSideLeft.Control = edtRot1Device AnchorSideTop.Control = lblRotId1 Left = 218 - Height = 17 + Height = 18 Top = 18 Width = 157 Caption = 'Device (e.g. /dev/ttyS0):' @@ -3288,9 +3288,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = gbRot1 AnchorSideTop.Control = gbRot1 Left = 6 - Height = 17 + Height = 18 Top = 18 - Width = 94 + Width = 95 BorderSpacing.Left = 6 BorderSpacing.Top = 18 Caption = 'ROT ID model:' @@ -3300,9 +3300,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRot1Poll AnchorSideTop.Control = lblRotId1 Left = 438 - Height = 17 + Height = 18 Top = 18 - Width = 58 + Width = 61 Caption = 'Poll rate:' ParentColor = False end @@ -3311,27 +3311,27 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbModelRot1 Left = 218 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 208 BorderSpacing.Left = 12 - OnChange = RotorParamsChange TabOrder = 0 + OnChange = RotorParamsChange end object edtRot1Poll: TEdit AnchorSideLeft.Control = edtRot1Device AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbModelRot1 Left = 438 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 80 BorderSpacing.Left = 12 MaxLength = 5 NumbersOnly = True - OnChange = RotorParamsChange TabOrder = 1 Text = '500' + OnChange = RotorParamsChange end object chkRot1RunRotCtld: TCheckBox AnchorSideLeft.Control = edtRot1RotCtldArgs @@ -3339,21 +3339,21 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblExtaArgs1 Left = 285 Height = 23 - Top = 81 - Width = 236 + Top = 83 + Width = 242 BorderSpacing.Left = 24 Caption = 'Run rotctld when program starts' - OnChange = RotorParamsChange TabOrder = 2 + OnChange = RotorParamsChange end object lblExtaArgs1: TLabel AnchorSideLeft.Control = lblRotId1 AnchorSideTop.Control = cmbModelRot1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 81 - Width = 209 + Height = 18 + Top = 83 + Width = 210 BorderSpacing.Top = 12 Caption = 'Extra command line arguments:' ParentColor = False @@ -3363,20 +3363,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblExtaArgs1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 98 + Height = 35 + Top = 101 Width = 255 - OnChange = RotorParamsChange TabOrder = 3 Text = 'edtRot1RotCtldArgs' + OnChange = RotorParamsChange end object lblPort1: TLabel AnchorSideLeft.Control = edtRot1RotCtldPort AnchorSideTop.Control = lblRotId1 Left = 530 - Height = 17 + Height = 18 Top = 18 - Width = 84 + Width = 89 Caption = 'Port number:' ParentColor = False end @@ -3385,15 +3385,15 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbModelRot1 Left = 530 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 80 BorderSpacing.Left = 12 MaxLength = 5 NumbersOnly = True - OnChange = RotorParamsChange TabOrder = 4 Text = '4533' + OnChange = RotorParamsChange end object grbSerialRot1: TGroupBox AnchorSideLeft.Control = gbRot1 @@ -3403,23 +3403,23 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Side = asrBottom Left = 6 Height = 161 - Top = 156 + Top = 172 Width = 610 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 6 BorderSpacing.Right = 6 BorderSpacing.Bottom = 6 Caption = 'Rotor one serial parameters' - ClientHeight = 143 + ClientHeight = 159 ClientWidth = 608 TabOrder = 5 object lblSpeed1: TLabel AnchorSideLeft.Control = grbSerialRot1 AnchorSideTop.Control = grbSerialRot1 Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 84 + Width = 85 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Serial speed:' @@ -3429,9 +3429,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbDataBitsRot1 AnchorSideTop.Control = lblSpeed1 Left = 137 - Height = 17 + Height = 18 Top = 6 - Width = 59 + Width = 60 Caption = 'Data bits' ParentColor = False end @@ -3439,9 +3439,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbStopBitsRot1 AnchorSideTop.Control = lblSpeed1 Left = 268 - Height = 17 + Height = 18 Top = 6 - Width = 57 + Width = 60 Caption = 'Stop bits' ParentColor = False end @@ -3450,8 +3450,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbSpeedRot1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 76 + Height = 18 + Top = 78 Width = 72 BorderSpacing.Top = 24 Caption = 'Handshake' @@ -3461,9 +3461,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbParityRot1 AnchorSideTop.Control = lblSpeed1 Left = 392 - Height = 17 + Height = 18 Top = 6 - Width = 38 + Width = 40 Caption = 'Parity' ParentColor = False end @@ -3472,8 +3472,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblHandshake1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 107 ItemHeight = 0 ItemIndex = 0 @@ -3483,18 +3483,18 @@ object frmPreferences: TfrmPreferences 'XON/XOFF' 'HARDWARE' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 0 Text = 'default' + OnChange = RotorParamsChange end object cmbParityRot1: TComboBox AnchorSideLeft.Control = cmbStopBitsRot1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedRot1 Left = 392 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 109 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3507,18 +3507,18 @@ object frmPreferences: TfrmPreferences 'Mark' 'Space' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 1 Text = 'default' + OnChange = RotorParamsChange end object cmbDataBitsRot1: TComboBox AnchorSideLeft.Control = cmbSpeedRot1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedRot1 Left = 137 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 107 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3531,18 +3531,18 @@ object frmPreferences: TfrmPreferences '8' '9' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 2 Text = 'default' + OnChange = RotorParamsChange end object cmbStopBitsRot1: TComboBox AnchorSideLeft.Control = cmbDataBitsRot1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedRot1 Left = 268 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 100 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3554,18 +3554,18 @@ object frmPreferences: TfrmPreferences '2' '3' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 3 Text = 'default' + OnChange = RotorParamsChange end object cmbSpeedRot1: TComboBox AnchorSideLeft.Control = lblSpeed1 AnchorSideTop.Control = lblSpeed1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 107 ItemHeight = 0 ItemIndex = 0 @@ -3581,18 +3581,18 @@ object frmPreferences: TfrmPreferences '57600' '115200' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 4 Text = 'default' + OnChange = RotorParamsChange end object cmbDTRRot1: TComboBox AnchorSideLeft.Control = cmbHanshakeRot1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbHanshakeRot1 Left = 137 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 107 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3603,17 +3603,17 @@ object frmPreferences: TfrmPreferences 'ON' 'OFF' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 5 Text = 'default' + OnChange = RotorParamsChange end object lblDTR1: TLabel AnchorSideLeft.Control = cmbDTRRot1 AnchorSideTop.Control = lblHandshake1 Left = 137 - Height = 17 - Top = 76 + Height = 18 + Top = 78 Width = 27 Caption = 'DTR' ParentColor = False @@ -3623,8 +3623,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbDTRRot1 Left = 268 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 100 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3635,17 +3635,17 @@ object frmPreferences: TfrmPreferences 'ON' 'OFF' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 6 Text = 'default' + OnChange = RotorParamsChange end object lblRTS1: TLabel AnchorSideLeft.Control = cmbRTSRot1 AnchorSideTop.Control = lblHandshake1 Left = 268 - Height = 17 - Top = 76 + Height = 18 + Top = 78 Width = 25 Caption = 'RTS' ParentColor = False @@ -3655,12 +3655,12 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblRotId1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 200 ItemHeight = 0 - OnChange = cmbModelRot1Change TabOrder = 6 + OnChange = cmbModelRot1Change end object chkRot1AzMinMax: TCheckBox AnchorSideLeft.Control = chkRot1RunRotCtld @@ -3668,24 +3668,24 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 285 Height = 23 - Top = 104 - Width = 276 + Top = 106 + Width = 285 Caption = 'Use rotctrld \dump:state info for limits' - OnChange = RotorParamsChange TabOrder = 7 + OnChange = RotorParamsChange end end object edtRotor1: TEdit AnchorSideLeft.Control = tabRot1 AnchorSideTop.Control = tabRot1 Left = 140 - Height = 34 + Height = 35 Top = 12 Width = 94 BorderSpacing.Left = 140 BorderSpacing.Top = 12 - OnChange = RotorParamsChange TabOrder = 1 + OnChange = RotorParamsChange end object pnlHost1: TPanel AnchorSideLeft.Control = edtRotor1 @@ -3706,12 +3706,12 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRotor1 Left = 305 - Height = 34 + Height = 35 Top = 12 Width = 128 - OnChange = RotorParamsChange TabOrder = 3 Text = 'edtR1Host' + OnChange = RotorParamsChange end end object tabRot2: TTabSheet @@ -3722,7 +3722,7 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = tabRot1 AnchorSideBottom.Side = asrBottom Caption = 'Rotor two' - ClientHeight = 361 + ClientHeight = 388 ClientWidth = 647 object gbRot2: TGroupBox AnchorSideLeft.Control = tabRot2 @@ -3741,7 +3741,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRot2Device AnchorSideTop.Control = lblRotId2 Left = 218 - Height = 17 + Height = 18 Top = 18 Width = 157 Caption = 'Device (e.g. /dev/ttyS0):' @@ -3751,9 +3751,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = gbRot2 AnchorSideTop.Control = gbRot2 Left = 6 - Height = 17 + Height = 18 Top = 18 - Width = 94 + Width = 95 BorderSpacing.Left = 6 BorderSpacing.Top = 18 Caption = 'ROT ID model:' @@ -3763,9 +3763,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRot2Poll AnchorSideTop.Control = lblRotId2 Left = 438 - Height = 17 + Height = 18 Top = 18 - Width = 58 + Width = 61 Caption = 'Poll rate:' ParentColor = False end @@ -3774,27 +3774,27 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbModelRot2 Left = 218 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 208 BorderSpacing.Left = 12 - OnChange = RotorParamsChange TabOrder = 0 + OnChange = RotorParamsChange end object edtRot2Poll: TEdit AnchorSideLeft.Control = edtRot2Device AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRot2Device Left = 438 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 80 BorderSpacing.Left = 12 MaxLength = 5 NumbersOnly = True - OnChange = RotorParamsChange TabOrder = 1 Text = '500' + OnChange = RotorParamsChange end object chkRot2RunRotCtld: TCheckBox AnchorSideLeft.Control = edtRot2RotCtldArgs @@ -3802,21 +3802,21 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblExtaArgs2 Left = 285 Height = 23 - Top = 81 - Width = 236 + Top = 83 + Width = 242 BorderSpacing.Left = 24 Caption = 'Run rotctld when program starts' - OnChange = RotorParamsChange TabOrder = 2 + OnChange = RotorParamsChange end object lblExtaArgs2: TLabel AnchorSideLeft.Control = lblRotId2 AnchorSideTop.Control = cmbModelRot2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 81 - Width = 209 + Height = 18 + Top = 83 + Width = 210 BorderSpacing.Top = 12 Caption = 'Extra command line arguments:' ParentColor = False @@ -3826,20 +3826,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblExtaArgs2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 98 + Height = 35 + Top = 101 Width = 255 - OnChange = RotorParamsChange TabOrder = 3 Text = 'edtRot2RotCtldArgs' + OnChange = RotorParamsChange end object lblPort2: TLabel AnchorSideLeft.Control = edtRot2RotCtldPort AnchorSideTop.Control = lblRotId2 Left = 530 - Height = 17 + Height = 18 Top = 18 - Width = 84 + Width = 89 Caption = 'Port number:' ParentColor = False end @@ -3848,15 +3848,15 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRot2Poll Left = 530 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 80 BorderSpacing.Left = 12 MaxLength = 5 NumbersOnly = True - OnChange = RotorParamsChange TabOrder = 4 Text = '4533' + OnChange = RotorParamsChange end object grbSerialRot2: TGroupBox AnchorSideLeft.Control = gbRot2 @@ -3880,9 +3880,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = grbSerialRot2 AnchorSideTop.Control = grbSerialRot2 Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 84 + Width = 85 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Serial speed:' @@ -3892,9 +3892,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbDataBitsRot2 AnchorSideTop.Control = lblSpeed2 Left = 137 - Height = 17 + Height = 18 Top = 6 - Width = 59 + Width = 60 Caption = 'Data bits' ParentColor = False end @@ -3902,9 +3902,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbStopBitsRot2 AnchorSideTop.Control = lblSpeed2 Left = 268 - Height = 17 + Height = 18 Top = 6 - Width = 57 + Width = 60 Caption = 'Stop bits' ParentColor = False end @@ -3913,8 +3913,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbSpeedRot2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 76 + Height = 18 + Top = 78 Width = 72 BorderSpacing.Top = 24 Caption = 'Handshake' @@ -3924,9 +3924,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbParityRot2 AnchorSideTop.Control = lblSpeed2 Left = 392 - Height = 17 + Height = 18 Top = 6 - Width = 38 + Width = 40 Caption = 'Parity' ParentColor = False end @@ -3935,8 +3935,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblHandshake2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 107 ItemHeight = 0 ItemIndex = 0 @@ -3946,18 +3946,18 @@ object frmPreferences: TfrmPreferences 'XON/XOFF' 'HARDWARE' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 0 Text = 'default' + OnChange = RotorParamsChange end object cmbParityRot2: TComboBox AnchorSideLeft.Control = cmbStopBitsRot2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbStopBitsRot2 Left = 392 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 109 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3970,18 +3970,18 @@ object frmPreferences: TfrmPreferences 'Mark' 'Space' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 1 Text = 'default' + OnChange = RotorParamsChange end object cmbDataBitsRot2: TComboBox AnchorSideLeft.Control = cmbSpeedRot2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbSpeedRot2 Left = 137 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 107 BorderSpacing.Left = 24 ItemHeight = 0 @@ -3994,18 +3994,18 @@ object frmPreferences: TfrmPreferences '8' '9' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 2 Text = 'default' + OnChange = RotorParamsChange end object cmbStopBitsRot2: TComboBox AnchorSideLeft.Control = cmbDataBitsRot2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbDataBitsRot2 Left = 268 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 100 BorderSpacing.Left = 24 ItemHeight = 0 @@ -4017,18 +4017,18 @@ object frmPreferences: TfrmPreferences '2' '3' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 3 Text = 'default' + OnChange = RotorParamsChange end object cmbSpeedRot2: TComboBox AnchorSideLeft.Control = lblSpeed2 AnchorSideTop.Control = lblSpeed2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 29 - Top = 23 + Height = 30 + Top = 24 Width = 107 ItemHeight = 0 ItemIndex = 0 @@ -4044,18 +4044,18 @@ object frmPreferences: TfrmPreferences '57600' '115200' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 4 Text = 'default' + OnChange = RotorParamsChange end object cmbDTRRot2: TComboBox AnchorSideLeft.Control = cmbHanshakeRot2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbHanshakeRot2 Left = 137 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 107 BorderSpacing.Left = 24 ItemHeight = 0 @@ -4066,17 +4066,17 @@ object frmPreferences: TfrmPreferences 'ON' 'OFF' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 5 Text = 'default' + OnChange = RotorParamsChange end object lblDTR2: TLabel AnchorSideLeft.Control = cmbDTRRot2 AnchorSideTop.Control = lblHandshake2 Left = 137 - Height = 17 - Top = 76 + Height = 18 + Top = 78 Width = 27 Caption = 'DTR' ParentColor = False @@ -4086,8 +4086,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbDTRRot2 Left = 268 - Height = 29 - Top = 93 + Height = 30 + Top = 96 Width = 100 BorderSpacing.Left = 24 ItemHeight = 0 @@ -4098,17 +4098,17 @@ object frmPreferences: TfrmPreferences 'ON' 'OFF' ) - OnChange = RotorParamsChange Style = csDropDownList TabOrder = 6 Text = 'default' + OnChange = RotorParamsChange end object lblRTS2: TLabel AnchorSideLeft.Control = cmbRTSRot2 AnchorSideTop.Control = lblHandshake2 Left = 268 - Height = 17 - Top = 76 + Height = 18 + Top = 78 Width = 25 Caption = 'RTS' ParentColor = False @@ -4119,12 +4119,12 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblRotId2 AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 35 + Height = 35 + Top = 36 Width = 200 ItemHeight = 0 - OnChange = cmbModelRot2Change TabOrder = 6 + OnChange = cmbModelRot2Change end object chkRot2AzMinMax: TCheckBox AnchorSideLeft.Control = chkRot2RunRotCtld @@ -4132,24 +4132,24 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 285 Height = 23 - Top = 104 - Width = 276 + Top = 106 + Width = 285 Caption = 'Use rotctrld \dump:state info for limits' - OnChange = RotorParamsChange TabOrder = 7 + OnChange = RotorParamsChange end end object edtRotor2: TEdit AnchorSideLeft.Control = tabRot2 AnchorSideTop.Control = tabRot2 Left = 140 - Height = 34 + Height = 35 Top = 12 Width = 94 BorderSpacing.Left = 140 BorderSpacing.Top = 12 - OnChange = RotorParamsChange TabOrder = 1 + OnChange = RotorParamsChange end object pnl2Host: TPanel AnchorSideLeft.Control = edtRotor2 @@ -4171,20 +4171,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = pnl2Host AnchorSideTop.Side = asrCenter Left = 305 - Height = 34 + Height = 35 Top = 12 Width = 128 - OnChange = RotorParamsChange TabOrder = 3 Text = 'edtRot2Host' + OnChange = RotorParamsChange end end end end object tabModes: TTabSheet Caption = 'Modes' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 OnExit = tabModesExit object grpUsrDigitalModes: TGroupBox AnchorSideLeft.Control = tabModes @@ -4200,21 +4200,21 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 12 BorderSpacing.Top = 24 Caption = ' User defined digital modes (use , as delimitter)' - ClientHeight = 55 + ClientHeight = 54 ClientWidth = 522 TabOrder = 0 object edtDigiModes: TEdit AnchorSideLeft.Control = grpUsrDigitalModes AnchorSideTop.Control = grpUsrDigitalModes Left = 6 - Height = 34 + Height = 35 Top = 6 Width = 536 BorderSpacing.Left = 6 BorderSpacing.Top = 6 CharCase = ecUppercase - OnExit = edtDigiModesExit TabOrder = 0 + OnExit = edtDigiModesExit end end object grbRigBandWidths: TGroupBox @@ -4227,7 +4227,7 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 12 BorderSpacing.Top = 12 Caption = ' Radio' - ClientHeight = 274 + ClientHeight = 290 ClientWidth = 522 TabOrder = 1 object lblMode: TLabel @@ -4235,9 +4235,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbRadioModes AnchorSideTop.Side = asrBottom Left = 12 - Height = 17 - Top = 40 - Width = 36 + Height = 18 + Top = 41 + Width = 39 BorderSpacing.Left = 12 BorderSpacing.Top = 6 Caption = 'Mode' @@ -4247,10 +4247,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblMode AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblMode - Left = 81 - Height = 17 - Top = 40 - Width = 69 + Left = 84 + Height = 18 + Top = 41 + Width = 72 BorderSpacing.Left = 33 Caption = 'Bandwidth' ParentColor = False @@ -4260,9 +4260,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtCW AnchorSideTop.Side = asrCenter Left = 12 - Height = 17 - Top = 66 - Width = 22 + Height = 18 + Top = 67 + Width = 23 Caption = 'CW' ParentColor = False end @@ -4271,9 +4271,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblBandWidth AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 81 + Left = 84 Height = 34 - Top = 57 + Top = 59 Width = 90 AutoSize = False Increment = 50 @@ -4287,9 +4287,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtCW AnchorSideTop.Side = asrCenter - Left = 177 - Height = 17 - Top = 66 + Left = 180 + Height = 18 + Top = 67 Width = 17 BorderSpacing.Left = 6 Caption = 'Hz' @@ -4299,9 +4299,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblCWHz AnchorSideTop.Control = edtSSB AnchorSideTop.Side = asrCenter - Left = 177 - Height = 17 - Top = 100 + Left = 180 + Height = 18 + Top = 101 Width = 17 Caption = 'Hz' ParentColor = False @@ -4311,9 +4311,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtCW AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 81 + Left = 84 Height = 34 - Top = 91 + Top = 93 Width = 90 AutoSize = False Increment = 50 @@ -4327,8 +4327,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtSSB AnchorSideTop.Side = asrCenter Left = 12 - Height = 17 - Top = 100 + Height = 18 + Top = 101 Width = 25 Caption = 'SSB' ParentColor = False @@ -4338,9 +4338,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtData AnchorSideTop.Side = asrCenter Left = 12 - Height = 17 - Top = 134 - Width = 31 + Height = 18 + Top = 135 + Width = 32 Caption = 'Data' ParentColor = False end @@ -4349,9 +4349,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtSSB AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 81 + Left = 84 Height = 34 - Top = 125 + Top = 127 Width = 90 AutoSize = False Increment = 50 @@ -4364,10 +4364,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblCWHz AnchorSideTop.Control = edtData AnchorSideTop.Side = asrCenter - Left = 177 - Height = 17 - Top = 134 - Width = 17 + Left = 180 + Height = 18 + Top = 135 + Width = 14 Anchors = [akTop, akLeft, akRight] Caption = 'Hz' ParentColor = False @@ -4376,9 +4376,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblCWHz AnchorSideTop.Control = edtAM AnchorSideTop.Side = asrCenter - Left = 177 - Height = 17 - Top = 168 + Left = 180 + Height = 18 + Top = 169 Width = 17 Caption = 'Hz' ParentColor = False @@ -4388,9 +4388,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtData AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 81 + Left = 84 Height = 34 - Top = 159 + Top = 161 Width = 90 AutoSize = False Increment = 100 @@ -4404,9 +4404,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtAM AnchorSideTop.Side = asrCenter Left = 12 - Height = 17 - Top = 168 - Width = 21 + Height = 18 + Top = 169 + Width = 23 Caption = 'AM' ParentColor = False end @@ -4415,9 +4415,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtFM AnchorSideTop.Side = asrCenter Left = 12 - Height = 17 - Top = 202 - Width = 20 + Height = 18 + Top = 203 + Width = 21 Caption = 'FM' ParentColor = False end @@ -4426,9 +4426,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtAM AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 81 + Left = 84 Height = 34 - Top = 193 + Top = 195 Width = 90 AutoSize = False Increment = 100 @@ -4441,9 +4441,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblCWHz AnchorSideTop.Control = edtFM AnchorSideTop.Side = asrCenter - Left = 177 - Height = 17 - Top = 202 + Left = 180 + Height = 18 + Top = 203 Width = 17 Caption = 'Hz' ParentColor = False @@ -4452,25 +4452,25 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = grbRigBandWidths AnchorSideTop.Control = grbRigBandWidths Left = 12 - Height = 33 + Height = 34 Top = 1 Width = 120 BorderSpacing.Left = 12 BorderSpacing.Top = 1 ItemHeight = 0 - OnChange = cmbRadioModesChange - OnCloseUp = cmbRadioModesCloseUp ReadOnly = True Style = csDropDownList TabOrder = 7 + OnChange = cmbRadioModesChange + OnCloseUp = cmbRadioModesCloseUp end object lblDataMode: TLabel AnchorSideLeft.Control = lblCWHz AnchorSideTop.Control = lblMode - Left = 207 - Height = 17 - Top = 40 - Width = 31 + Left = 210 + Height = 18 + Top = 41 + Width = 32 BorderSpacing.Left = 30 Caption = 'Data' ParentColor = False @@ -4479,10 +4479,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblDataMode AnchorSideTop.Control = edtCW AnchorSideTop.Side = asrCenter - Left = 207 - Height = 17 - Top = 66 - Width = 63 + Left = 210 + Height = 18 + Top = 67 + Width = 66 Caption = 'Log Mode' ParentColor = False end @@ -4490,9 +4490,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblLogDataMode AnchorSideTop.Control = lblSSBHz AnchorSideTop.Side = asrCenter - Left = 207 - Height = 17 - Top = 100 + Left = 210 + Height = 18 + Top = 101 Width = 58 Caption = 'CAT cmd' ParentColor = False @@ -4501,10 +4501,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblDataMode AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblMode - Left = 280 - Height = 17 - Top = 40 - Width = 40 + Left = 284 + Height = 18 + Top = 41 + Width = 42 BorderSpacing.Left = 42 Caption = 'Mode ' ParentColor = False @@ -4513,16 +4513,16 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbDataMode AnchorSideTop.Control = lblRigDataCmd AnchorSideTop.Side = asrCenter - Left = 280 + Left = 284 Height = 34 Hint = '"CAT cmd" is the rigctld mode command needed to'#10'send to rig for working "Log mode" qsos.' - Top = 91 + Top = 93 Width = 100 AutoSize = False - OnChange = edtDataCmdChange ParentShowHint = False ShowHint = True TabOrder = 8 + OnChange = edtDataCmdChange end object lblNoRigForMode: TLabel AnchorSideLeft.Control = cmbRadioModes @@ -4530,9 +4530,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbRadioModes AnchorSideTop.Side = asrCenter Left = 144 - Height = 17 + Height = 18 Top = 9 - Width = 207 + Width = 185 BorderSpacing.Left = 12 Caption = 'There is no radio definition' Font.Color = clRed @@ -4545,11 +4545,11 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblRigDataCmd AnchorSideTop.Control = lblDataHz AnchorSideTop.Side = asrCenter - Left = 207 + Left = 210 Height = 23 Hint = 'Cheking this will cause Cqrlog to set selected "Log mode" if'#10'rigctld reads this mode from rig and NewQSO/Auto is checked.'#10#10'This can be a pitfall if your "Log mode" needs for ex. USB mode'#10'from rig. Then when working phone qso using USB your log gets'#10'mode as "Log mode". '#10'Normally when using remote modes and get mode from remote'#10'program this does not need to be checked.' - Top = 131 - Width = 205 + Top = 133 + Width = 198 BorderSpacing.Top = 5 Caption = 'Use also reverse (cat->log)' ParentShowHint = False @@ -4559,10 +4559,10 @@ object frmPreferences: TfrmPreferences object cmbDataMode: TComboBox AnchorSideLeft.Control = lblDataMode1 AnchorSideTop.Control = edtCW - Left = 280 - Height = 34 + Left = 284 + Height = 35 Hint = '"Log Mode" is the data mode name you want to use.'#10'(most used data mode)'#10'This setting effects to DXCluster spot line colors and'#10'sets wanted rig mode when double click on DXspot line.'#10#10'NOTE: You may have to add your "Log mode" to'#10'"User defined digital modes" first.' - Top = 57 + Top = 59 Width = 100 ItemHeight = 0 ParentShowHint = False @@ -4573,16 +4573,16 @@ object frmPreferences: TfrmPreferences end object tabQTHProfiles: TTabSheet Caption = 'QTH Profiles' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object chkUseProfiles: TCheckBox Left = 9 Height = 23 Top = 12 Width = 136 Caption = 'Use QTH Profiles' - OnChange = chkUseProfilesChange TabOrder = 0 + OnChange = chkUseProfilesChange end object gbProfiles: TGroupBox Left = 8 @@ -4590,7 +4590,7 @@ object frmPreferences: TfrmPreferences Top = 48 Width = 622 Caption = 'Profiles' - ClientHeight = 247 + ClientHeight = 263 ClientWidth = 620 TabOrder = 1 object Bevel1: TBevel @@ -4598,7 +4598,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 9 Height = 15 - Top = 102 + Top = 104 Width = 543 BorderSpacing.Top = 10 Shape = bsTopLine @@ -4608,16 +4608,16 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = Bevel1 AnchorSideTop.Side = asrBottom Left = 14 - Height = 17 - Top = 122 - Width = 244 + Height = 18 + Top = 124 + Width = 249 BorderSpacing.Top = 5 Caption = 'Description of the profile will include:' ParentColor = False end object cmbProfiles: TComboBox Left = 9 - Height = 33 + Height = 34 Top = 12 Width = 539 ItemHeight = 0 @@ -4628,58 +4628,58 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbProfiles AnchorSideTop.Side = asrBottom Left = 9 - Height = 37 - Top = 55 - Width = 158 + Height = 38 + Top = 56 + Width = 164 AutoSize = True BorderSpacing.Top = 10 BorderSpacing.InnerBorder = 2 Caption = 'Define/Modify profile' - OnClick = btnDefineProfileClick TabOrder = 1 + OnClick = btnDefineProfileClick end object chkProfileLocator: TCheckBox AnchorSideTop.Control = Label40 AnchorSideTop.Side = asrBottom Left = 14 Height = 23 - Top = 149 - Width = 74 + Top = 152 + Width = 78 BorderSpacing.Top = 10 Caption = 'Locator' - OnClick = chkProfileLocatorClick TabOrder = 2 + OnClick = chkProfileLocatorClick end object chkProfileQTH: TCheckBox AnchorSideTop.Control = chkProfileLocator AnchorSideTop.Side = asrBottom Left = 14 Height = 23 - Top = 182 - Width = 54 + Top = 185 + Width = 55 BorderSpacing.Top = 10 Caption = 'QTH' - OnClick = chkProfileQTHClick TabOrder = 3 + OnClick = chkProfileQTHClick end object chkProfileRig: TCheckBox AnchorSideTop.Control = chkProfileQTH AnchorSideTop.Side = asrBottom Left = 14 Height = 23 - Top = 215 + Top = 218 Width = 47 BorderSpacing.Top = 10 Caption = 'Rig' - OnClick = chkProfileRigClick TabOrder = 4 + OnClick = chkProfileRigClick end end end object tabExport: TTabSheet Caption = 'Export' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 inline fraExportPref1: TfraExportPref Top = 8 inherited lblField1: TLabel @@ -4696,8 +4696,8 @@ object frmPreferences: TfrmPreferences end object tabDXCluster: TTabSheet Caption = 'DXCluster' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object gbDXCColor: TGroupBox AnchorSideLeft.Control = tabDXCluster AnchorSideTop.Control = tabDXCluster @@ -4708,16 +4708,16 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 1 Caption = 'Colors' - ClientHeight = 87 + ClientHeight = 103 ClientWidth = 598 TabOrder = 0 object Label41: TLabel AnchorSideLeft.Control = gbDXCColor AnchorSideTop.Control = gbDXCColor Left = 3 - Height = 17 + Height = 18 Top = 12 - Width = 85 + Width = 87 BorderSpacing.Left = 3 BorderSpacing.Top = 12 Caption = 'New country:' @@ -4728,9 +4728,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = Label41 AnchorSideTop.Side = asrBottom Left = 3 - Height = 17 - Top = 53 - Width = 109 + Height = 18 + Top = 54 + Width = 111 BorderSpacing.Top = 24 Caption = 'New band count.' ParentColor = False @@ -4740,10 +4740,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label41 AnchorSideTop.Side = asrCenter - Left = 279 - Height = 17 + Left = 281 + Height = 18 Top = 12 - Width = 114 + Width = 116 BorderSpacing.Left = 43 Caption = 'New mode count.' ParentColor = False @@ -4752,10 +4752,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = Label43 AnchorSideTop.Control = Label42 AnchorSideTop.Side = asrCenter - Left = 279 - Height = 17 - Top = 53 - Width = 81 + Left = 281 + Height = 18 + Top = 54 + Width = 83 Caption = 'QSL needed:' ParentColor = False end @@ -4764,8 +4764,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label41 AnchorSideTop.Side = asrCenter - Left = 118 - Height = 29 + Left = 120 + Height = 30 Top = 6 Width = 118 Selected = clRed @@ -4778,9 +4778,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbNewCountry AnchorSideTop.Control = Label42 AnchorSideTop.Side = asrCenter - Left = 118 - Height = 29 - Top = 47 + Left = 120 + Height = 30 + Top = 48 Width = 118 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] ItemHeight = 28 @@ -4791,8 +4791,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label41 AnchorSideTop.Side = asrCenter - Left = 417 - Height = 29 + Left = 421 + Height = 30 Top = 6 Width = 118 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -4804,9 +4804,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbNewMode AnchorSideTop.Control = Label42 AnchorSideTop.Side = asrCenter - Left = 417 - Height = 29 - Top = 47 + Left = 421 + Height = 30 + Top = 48 Width = 118 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] ItemHeight = 28 @@ -4823,16 +4823,16 @@ object frmPreferences: TfrmPreferences Width = 600 BorderSpacing.Left = 6 Caption = ' Show only spots' - ClientHeight = 238 + ClientHeight = 254 ClientWidth = 598 TabOrder = 1 object Label45: TLabel AnchorSideLeft.Control = gbDXCSpots AnchorSideBottom.Control = edtDoNotShow Left = 6 - Height = 17 - Top = 160 - Width = 397 + Height = 18 + Top = 174 + Width = 400 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 BorderSpacing.Bottom = 3 @@ -4845,7 +4845,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 6 - Width = 75 + Width = 74 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = '137kHz' @@ -4855,7 +4855,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow630M AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShow2190M - Left = 188 + Left = 186 Height = 23 Top = 6 Width = 79 @@ -4867,7 +4867,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow160M AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShow2190M - Left = 283 + Left = 281 Height = 23 Top = 6 Width = 79 @@ -4879,7 +4879,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow60M AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShow2190M - Left = 461 + Left = 459 Height = 23 Top = 6 Width = 67 @@ -4901,7 +4901,7 @@ object frmPreferences: TfrmPreferences object chkShow20M: TCheckBox AnchorSideLeft.Control = chkShow630M AnchorSideTop.Control = chkShow30M - Left = 97 + Left = 96 Height = 23 Top = 29 Width = 75 @@ -4911,7 +4911,7 @@ object frmPreferences: TfrmPreferences object chkShow17M: TCheckBox AnchorSideLeft.Control = chkShow160M AnchorSideTop.Control = chkShow30M - Left = 188 + Left = 186 Height = 23 Top = 29 Width = 75 @@ -4921,7 +4921,7 @@ object frmPreferences: TfrmPreferences object chkShow15M: TCheckBox AnchorSideLeft.Control = chkShow80M AnchorSideTop.Control = chkShow30M - Left = 283 + Left = 281 Height = 23 Top = 29 Width = 75 @@ -4931,7 +4931,7 @@ object frmPreferences: TfrmPreferences object chkShow12M: TCheckBox AnchorSideLeft.Control = chkShow60M AnchorSideTop.Control = chkShow30M - Left = 378 + Left = 376 Height = 23 Top = 29 Width = 75 @@ -4941,7 +4941,7 @@ object frmPreferences: TfrmPreferences object chkShow10M: TCheckBox AnchorSideLeft.Control = chkShow40M AnchorSideTop.Control = chkShow30M - Left = 461 + Left = 459 Height = 23 Top = 29 Width = 75 @@ -4951,7 +4951,7 @@ object frmPreferences: TfrmPreferences object chkShow2M: TCheckBox AnchorSideLeft.Control = chkShow60M AnchorSideTop.Control = chkShow8M - Left = 378 + Left = 376 Height = 23 Top = 52 Width = 83 @@ -4961,7 +4961,7 @@ object frmPreferences: TfrmPreferences object chkShow6M: TCheckBox AnchorSideLeft.Control = chkShow630M AnchorSideTop.Control = chkShow8M - Left = 97 + Left = 96 Height = 23 Top = 52 Width = 75 @@ -4983,7 +4983,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow160M AnchorSideTop.Control = chkShow8M AnchorSideTop.Side = asrBottom - Left = 188 + Left = 186 Height = 23 Top = 75 Width = 91 @@ -4993,7 +4993,7 @@ object frmPreferences: TfrmPreferences object chkShow13CM: TCheckBox AnchorSideLeft.Control = chkShow80M AnchorSideTop.Control = chkShow23CM - Left = 283 + Left = 281 Height = 23 Top = 75 Width = 91 @@ -5003,7 +5003,7 @@ object frmPreferences: TfrmPreferences object chkShow9CM: TCheckBox AnchorSideLeft.Control = chkShow60M AnchorSideTop.Control = chkShow23CM - Left = 378 + Left = 376 Height = 23 Top = 75 Width = 91 @@ -5013,7 +5013,7 @@ object frmPreferences: TfrmPreferences object chkShow6CM: TCheckBox AnchorSideLeft.Control = chkShow40M AnchorSideTop.Control = chkShow23CM - Left = 461 + Left = 459 Height = 23 Top = 75 Width = 91 @@ -5027,27 +5027,27 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 98 - Width = 73 + Width = 72 Caption = '10 GHz' TabOrder = 17 end object chkShow125CM: TCheckBox AnchorSideLeft.Control = chkShow630M AnchorSideTop.Control = chkShow3CM - Left = 97 + Left = 96 Height = 23 Top = 98 - Width = 73 + Width = 72 Caption = '24 GHz' TabOrder = 18 end object chkShow6MM: TCheckBox AnchorSideLeft.Control = chkShow160M AnchorSideTop.Control = chkShow3CM - Left = 188 + Left = 186 Height = 23 - Top = 98 - Width = 73 + Top = 105 + Width = 72 Anchors = [akLeft] Caption = '47 GHz' TabOrder = 19 @@ -5055,10 +5055,10 @@ object frmPreferences: TfrmPreferences object chkShow4MM: TCheckBox AnchorSideLeft.Control = chkShow80M AnchorSideTop.Control = chkShow3CM - Left = 283 + Left = 281 Height = 23 - Top = 98 - Width = 73 + Top = 105 + Width = 72 Anchors = [akLeft] Caption = '76 GHz' TabOrder = 20 @@ -5066,20 +5066,20 @@ object frmPreferences: TfrmPreferences object chkShow25MM: TCheckBox AnchorSideLeft.Control = chkShow60M AnchorSideTop.Control = chkShow3CM - Left = 378 + Left = 376 Height = 23 Top = 98 - Width = 81 + Width = 80 Caption = '122 GHz' TabOrder = 21 end object chkShow2MM: TCheckBox AnchorSideLeft.Control = chkShow40M AnchorSideTop.Control = chkShow3CM - Left = 461 + Left = 459 Height = 23 Top = 98 - Width = 81 + Width = 80 Caption = '134 GHz' TabOrder = 22 end @@ -5090,7 +5090,7 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 121 - Width = 81 + Width = 80 Caption = '241 GHz' TabOrder = 23 end @@ -5098,19 +5098,19 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow60M AnchorSideTop.Control = chkShow6MM AnchorSideTop.Side = asrBottom - Left = 378 + Left = 376 Height = 23 - Top = 121 - Width = 48 + Top = 128 + Width = 49 Caption = 'CW' TabOrder = 24 end object chkSSB: TCheckBox AnchorSideLeft.Control = chkShow40M AnchorSideTop.Control = chkCW - Left = 461 + Left = 459 Height = 23 - Top = 121 + Top = 128 Width = 51 Caption = 'SSB' TabOrder = 25 @@ -5119,8 +5119,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = gbDXCSpots AnchorSideBottom.Control = chkShowDxcCountry Left = 6 - Height = 34 - Top = 180 + Height = 35 + Top = 195 Width = 471 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 @@ -5129,10 +5129,10 @@ object frmPreferences: TfrmPreferences object chkShow4M: TCheckBox AnchorSideLeft.Control = chkShow80M AnchorSideTop.Control = chkShow8M - Left = 283 + Left = 281 Height = 23 Top = 52 - Width = 71 + Width = 72 Caption = '70MHz' TabOrder = 27 end @@ -5140,7 +5140,7 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow80M AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShow2190M - Left = 378 + Left = 376 Height = 23 Top = 6 Width = 67 @@ -5151,7 +5151,7 @@ object frmPreferences: TfrmPreferences object chkShow125M: TCheckBox AnchorSideLeft.Control = chkShow40M AnchorSideTop.Control = chkShow8M - Left = 461 + Left = 459 Height = 23 Top = 52 Width = 83 @@ -5161,7 +5161,7 @@ object frmPreferences: TfrmPreferences object chkShow33CM: TCheckBox AnchorSideLeft.Control = chkShow630M AnchorSideTop.Control = chkShow70CM - Left = 97 + Left = 96 Height = 23 Top = 75 Width = 83 @@ -5172,10 +5172,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow2190M AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShow2190M - Left = 97 + Left = 96 Height = 23 Top = 6 - Width = 75 + Width = 74 BorderSpacing.Left = 16 Caption = '472kHz' TabOrder = 31 @@ -5186,7 +5186,7 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Side = asrBottom Left = 6 Height = 23 - Top = 214 + Top = 230 Width = 299 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 @@ -5208,7 +5208,7 @@ object frmPreferences: TfrmPreferences object chkShow5M: TCheckBox AnchorSideLeft.Control = chkShow160M AnchorSideTop.Control = chkShow8M - Left = 188 + Left = 186 Height = 23 Top = 52 Width = 75 @@ -5219,10 +5219,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShow80M AnchorSideTop.Control = chkShow6MM AnchorSideTop.Side = asrBottom - Left = 283 + Left = 281 Height = 23 - Top = 121 - Width = 60 + Top = 128 + Width = 62 Caption = 'DATA' TabOrder = 35 end @@ -5238,7 +5238,7 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 1 Caption = ' Callsign alert ' - ClientHeight = 126 + ClientHeight = 142 ClientWidth = 598 TabOrder = 2 object btnAlertCallsigns: TButton @@ -5251,17 +5251,17 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'List of callsigns' - OnClick = btnAlertCallsignsClick TabOrder = 0 + OnClick = btnAlertCallsignsClick end object Label192: TLabel AnchorSideLeft.Control = gbDXCAlert AnchorSideTop.Control = btnAlertCallsigns AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 + Height = 18 Top = 43 - Width = 287 + Width = 285 BorderSpacing.Left = 6 BorderSpacing.Top = 12 Caption = 'Run this command when callsign is spotted:' @@ -5272,23 +5272,23 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = Label192 AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 63 + Height = 35 + Top = 64 Width = 471 BorderSpacing.Left = 6 BorderSpacing.Top = 3 - OnExit = edtAlertCmdExit TabOrder = 1 Text = 'edtAlertCmd' + OnExit = edtAlertCmdExit end object Label198: TLabel AnchorSideLeft.Control = gbDXCAlert AnchorSideTop.Control = edtAlertCmd AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 103 - Width = 334 + Height = 18 + Top = 105 + Width = 338 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Macros: $CALLSIGN, $BAND, $MODE, $FREQ, $MSG' @@ -5306,7 +5306,7 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 6 BorderSpacing.Top = 1 Caption = 'Connect' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 598 TabOrder = 3 object chkConToDXC: TCheckBox @@ -5316,8 +5316,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Side = asrBottom Left = 5 Height = 23 - Top = 59 - Width = 311 + Top = 75 + Width = 320 Anchors = [akLeft, akBottom] BorderSpacing.Left = 5 Caption = 'Connect to DX cluster after program startup' @@ -5327,8 +5327,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = gbDXCConnect AnchorSideBottom.Control = chkConToDXC Left = 6 - Height = 34 - Top = 24 + Height = 35 + Top = 39 Width = 471 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 @@ -5340,8 +5340,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = gbDXCConnect AnchorSideBottom.Control = edtStartConCmd Left = 6 - Height = 17 - Top = 3 + Height = 18 + Top = 17 Width = 513 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 @@ -5353,30 +5353,30 @@ object frmPreferences: TfrmPreferences end object tabFont: TTabSheet Caption = 'Fonts' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox7: TGroupBox Left = 14 Height = 352 Top = 3 Width = 496 Caption = ' Font settings ' - ClientHeight = 334 + ClientHeight = 350 ClientWidth = 494 TabOrder = 0 object lblButtons: TLabel Left = 12 - Height = 17 + Height = 18 Top = 39 - Width = 287 + Width = 290 Caption = 'Buttons, labels, radiobuttons, checkboxes ...' ParentColor = False end object lblbFont: TLabel Left = 12 - Height = 17 + Height = 18 Top = 71 - Width = 52 + Width = 57 Caption = 'lblbFont' ParentColor = False end @@ -5388,17 +5388,17 @@ object frmPreferences: TfrmPreferences end object lblEdits: TLabel Left = 12 - Height = 17 + Height = 18 Top = 119 - Width = 226 + Width = 228 Caption = 'Edits, comboboxes, memoboxes ...' ParentColor = False end object lbleFont: TLabel Left = 12 - Height = 17 + Height = 18 Top = 151 - Width = 52 + Width = 56 Caption = 'lbleFont' ParentColor = False end @@ -5410,17 +5410,17 @@ object frmPreferences: TfrmPreferences end object lblStatistics: TLabel Left = 12 - Height = 17 + Height = 18 Top = 199 - Width = 60 + Width = 61 Caption = 'Statistics' ParentColor = False end object lblgFont: TLabel Left = 12 - Height = 17 + Height = 18 Top = 231 - Width = 52 + Width = 56 Caption = 'lblgFont' ParentColor = False end @@ -5432,7 +5432,7 @@ object frmPreferences: TfrmPreferences end object lblQSOList: TLabel Left = 12 - Height = 17 + Height = 18 Top = 279 Width = 59 Caption = 'QSO lists' @@ -5440,9 +5440,9 @@ object frmPreferences: TfrmPreferences end object lblqFont: TLabel Left = 12 - Height = 17 + Height = 18 Top = 311 - Width = 52 + Width = 57 Caption = 'lblqFont' ParentColor = False end @@ -5453,8 +5453,8 @@ object frmPreferences: TfrmPreferences Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Select font' - OnClick = btnSelbFontClick TabOrder = 0 + OnClick = btnSelbFontClick end object btnSeleFont: TButton Left = 382 @@ -5463,8 +5463,8 @@ object frmPreferences: TfrmPreferences Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Select font' - OnClick = btnSeleFontClick TabOrder = 1 + OnClick = btnSeleFontClick end object btnSelsFont: TButton Left = 382 @@ -5473,8 +5473,8 @@ object frmPreferences: TfrmPreferences Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Select font' - OnClick = btnSelsFontClick TabOrder = 2 + OnClick = btnSelsFontClick end object btnSelqFont: TButton Left = 382 @@ -5483,8 +5483,8 @@ object frmPreferences: TfrmPreferences Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Select font' - OnClick = btnSelqFontClick TabOrder = 3 + OnClick = btnSelqFontClick end object chkUseDefaultSEttings: TCheckBox Left = 12 @@ -5501,7 +5501,7 @@ object frmPreferences: TfrmPreferences Top = 363 Width = 497 Caption = 'Gridlist settings' - ClientHeight = 70 + ClientHeight = 69 ClientWidth = 495 TabOrder = 1 object chkgridgreenbar: TCheckBox @@ -5509,7 +5509,7 @@ object frmPreferences: TfrmPreferences Height = 23 Hint = 'Set every second line of grid lists to other color' Top = 7 - Width = 137 + Width = 141 Caption = '''green bar'' paper' ParentShowHint = False ShowHint = True @@ -5531,7 +5531,7 @@ object frmPreferences: TfrmPreferences Height = 23 Hint = 'Set title line of gridlists to bold' Top = 7 - Width = 113 + Width = 115 Caption = 'Bold title line' ParentShowHint = False ShowHint = True @@ -5564,44 +5564,44 @@ object frmPreferences: TfrmPreferences end object tabWazItu: TTabSheet Caption = 'WAZ, ITU zones' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox8: TGroupBox Left = 14 Height = 230 Top = 11 Width = 233 Caption = 'WAZ colors ' - ClientHeight = 212 + ClientHeight = 228 ClientWidth = 231 TabOrder = 0 object Label23: TLabel Left = 13 - Height = 17 + Height = 18 Top = 15 - Width = 107 + Width = 105 Caption = 'New WAZ zone: ' ParentColor = False end object Label52: TLabel Left = 13 - Height = 17 + Height = 18 Top = 78 - Width = 143 + Width = 142 Caption = 'New band WAZ zone: ' ParentColor = False end object Label53: TLabel Left = 13 - Height = 17 + Height = 18 Top = 139 - Width = 177 + Width = 179 Caption = 'QSL needed for WAZ zone: ' ParentColor = False end object clboxNewWaz: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 39 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5610,7 +5610,7 @@ object frmPreferences: TfrmPreferences end object clBoxBandWAZ: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 103 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5619,7 +5619,7 @@ object frmPreferences: TfrmPreferences end object clBoxQSLWAZ: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 164 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5633,36 +5633,36 @@ object frmPreferences: TfrmPreferences Top = 11 Width = 233 Caption = 'ITU colors ' - ClientHeight = 212 + ClientHeight = 228 ClientWidth = 231 TabOrder = 1 object Label54: TLabel Left = 13 - Height = 17 + Height = 18 Top = 15 - Width = 98 + Width = 96 Caption = 'New ITU zone: ' ParentColor = False end object Label55: TLabel Left = 13 - Height = 17 + Height = 18 Top = 78 - Width = 134 + Width = 133 Caption = 'New band ITU zone: ' ParentColor = False end object Label56: TLabel Left = 13 - Height = 17 + Height = 18 Top = 139 - Width = 168 + Width = 170 Caption = 'QSL needed for ITU zone: ' ParentColor = False end object clboxNewITU: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 39 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5671,7 +5671,7 @@ object frmPreferences: TfrmPreferences end object clBoxBandITU: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 103 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5680,7 +5680,7 @@ object frmPreferences: TfrmPreferences end object clBoxQSLITU: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 164 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5692,7 +5692,7 @@ object frmPreferences: TfrmPreferences Left = 14 Height = 23 Top = 251 - Width = 90 + Width = 92 Caption = 'Show info' TabOrder = 2 end @@ -5700,43 +5700,43 @@ object frmPreferences: TfrmPreferences Left = 262 Height = 23 Top = 251 - Width = 90 + Width = 92 Caption = 'Show info' TabOrder = 3 end end object tabIOTA: TTabSheet Caption = 'IOTA' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox10: TGroupBox Left = 22 Height = 168 Top = 19 Width = 249 Caption = 'IOTA colors' - ClientHeight = 150 + ClientHeight = 166 ClientWidth = 247 TabOrder = 0 object Label57: TLabel Left = 13 - Height = 17 + Height = 18 Top = 13 - Width = 67 + Width = 68 Caption = 'New IOTA:' ParentColor = False end object Label58: TLabel Left = 13 - Height = 17 + Height = 18 Top = 80 - Width = 141 + Width = 145 Caption = 'QSL needed for IOTA: ' ParentColor = False end object clboxNewIOTA: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 39 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5745,7 +5745,7 @@ object frmPreferences: TfrmPreferences end object clboxQSLIOTA: TColorBox Left = 13 - Height = 29 + Height = 30 Top = 103 Width = 127 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -5757,15 +5757,15 @@ object frmPreferences: TfrmPreferences Left = 22 Height = 23 Top = 203 - Width = 90 + Width = 92 Caption = 'Show info' TabOrder = 1 end end object tabMemebership: TTabSheet Caption = 'Membership' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox11: TGroupBox AnchorSideLeft.Control = tabMemebership AnchorSideTop.Control = tabMemebership @@ -5776,7 +5776,7 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 18 BorderSpacing.Top = 6 Caption = 'First club' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 582 TabOrder = 0 object cmbFirstClub: TComboBox @@ -5784,8 +5784,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox11 AnchorSideTop.Side = asrCenter Left = 12 - Height = 33 - Top = 25 + Height = 34 + Top = 32 Width = 293 BorderSpacing.Left = 12 ItemHeight = 0 @@ -5803,8 +5803,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 3 BorderSpacing.InnerBorder = 4 Caption = 'Settings' - OnClick = btnSetFirstClick TabOrder = 1 + OnClick = btnSetFirstClick end object btnLoadFirst: TButton AnchorSideTop.Control = GroupBox11 @@ -5819,8 +5819,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Right = 12 BorderSpacing.InnerBorder = 4 Caption = 'Load' - OnClick = btnLoadFirstClick TabOrder = 2 + OnClick = btnLoadFirstClick end object Label103: TLabel AnchorSideLeft.Control = cmbFirstClub @@ -5828,8 +5828,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbFirstClub AnchorSideTop.Side = asrCenter Left = 317 - Height = 17 - Top = 33 + Height = 18 + Top = 40 Width = 39 BorderSpacing.Left = 12 Caption = 'Since:' @@ -5841,8 +5841,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbFirstClub AnchorSideTop.Side = asrCenter Left = 368 - Height = 34 - Top = 24 + Height = 35 + Top = 32 Width = 96 BorderSpacing.Left = 12 TabOrder = 3 @@ -5858,7 +5858,7 @@ object frmPreferences: TfrmPreferences Width = 584 BorderSpacing.Top = 6 Caption = 'Second club' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 582 TabOrder = 1 object cmbSecondClub: TComboBox @@ -5866,8 +5866,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox12 AnchorSideTop.Side = asrCenter Left = 12 - Height = 33 - Top = 25 + Height = 34 + Top = 32 Width = 293 BorderSpacing.Left = 12 ItemHeight = 0 @@ -5885,8 +5885,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 3 BorderSpacing.InnerBorder = 4 Caption = 'Settings' - OnClick = btnSetSecondClick TabOrder = 1 + OnClick = btnSetSecondClick end object btnLoadSecond: TButton AnchorSideTop.Control = GroupBox12 @@ -5901,8 +5901,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Right = 12 BorderSpacing.InnerBorder = 4 Caption = 'Load' - OnClick = btnLoadSecondClick TabOrder = 2 + OnClick = btnLoadSecondClick end object Label104: TLabel AnchorSideLeft.Control = cmbSecondClub @@ -5910,8 +5910,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbSecondClub AnchorSideTop.Side = asrCenter Left = 317 - Height = 17 - Top = 33 + Height = 18 + Top = 40 Width = 39 BorderSpacing.Left = 12 Caption = 'Since:' @@ -5923,8 +5923,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbSecondClub AnchorSideTop.Side = asrCenter Left = 368 - Height = 34 - Top = 24 + Height = 35 + Top = 32 Width = 96 BorderSpacing.Left = 12 TabOrder = 3 @@ -5940,7 +5940,7 @@ object frmPreferences: TfrmPreferences Width = 584 BorderSpacing.Top = 6 Caption = 'Third club' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 582 TabOrder = 2 object cmbThirdClub: TComboBox @@ -5948,8 +5948,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox13 AnchorSideTop.Side = asrCenter Left = 12 - Height = 33 - Top = 25 + Height = 34 + Top = 32 Width = 293 BorderSpacing.Left = 12 ItemHeight = 0 @@ -5967,8 +5967,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 3 BorderSpacing.InnerBorder = 4 Caption = 'Settings' - OnClick = btnSetThirdClick TabOrder = 1 + OnClick = btnSetThirdClick end object btnLoadThird: TButton AnchorSideTop.Control = GroupBox13 @@ -5983,8 +5983,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Right = 12 BorderSpacing.InnerBorder = 4 Caption = 'Load' - OnClick = btnLoadThirdClick TabOrder = 2 + OnClick = btnLoadThirdClick end object Label105: TLabel AnchorSideLeft.Control = cmbThirdClub @@ -5992,8 +5992,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbThirdClub AnchorSideTop.Side = asrCenter Left = 317 - Height = 17 - Top = 33 + Height = 18 + Top = 40 Width = 39 BorderSpacing.Left = 12 Caption = 'Since:' @@ -6005,8 +6005,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbThirdClub AnchorSideTop.Side = asrCenter Left = 368 - Height = 34 - Top = 24 + Height = 35 + Top = 32 Width = 96 BorderSpacing.Left = 12 TabOrder = 3 @@ -6022,7 +6022,7 @@ object frmPreferences: TfrmPreferences Width = 584 BorderSpacing.Top = 6 Caption = 'Fourth club' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 582 TabOrder = 3 object cmbFourthClub: TComboBox @@ -6030,8 +6030,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox14 AnchorSideTop.Side = asrCenter Left = 12 - Height = 33 - Top = 25 + Height = 34 + Top = 32 Width = 293 BorderSpacing.Left = 12 ItemHeight = 0 @@ -6049,8 +6049,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 3 BorderSpacing.InnerBorder = 4 Caption = 'Settings' - OnClick = btnSetFourthClick TabOrder = 1 + OnClick = btnSetFourthClick end object btnLoadFourth: TButton AnchorSideTop.Control = GroupBox14 @@ -6065,8 +6065,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Right = 12 BorderSpacing.InnerBorder = 4 Caption = 'Load' - OnClick = btnLoadFourthClick TabOrder = 2 + OnClick = btnLoadFourthClick end object Label106: TLabel AnchorSideLeft.Control = cmbFourthClub @@ -6074,8 +6074,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbFourthClub AnchorSideTop.Side = asrCenter Left = 317 - Height = 17 - Top = 33 + Height = 18 + Top = 40 Width = 39 BorderSpacing.Left = 12 Caption = 'Since:' @@ -6087,8 +6087,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbFourthClub AnchorSideTop.Side = asrCenter Left = 368 - Height = 34 - Top = 24 + Height = 35 + Top = 32 Width = 96 BorderSpacing.Left = 12 TabOrder = 3 @@ -6104,7 +6104,7 @@ object frmPreferences: TfrmPreferences Width = 584 BorderSpacing.Top = 6 Caption = 'Fifth club' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 582 TabOrder = 4 object cmbFifthClub: TComboBox @@ -6112,8 +6112,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox15 AnchorSideTop.Side = asrCenter Left = 12 - Height = 33 - Top = 25 + Height = 34 + Top = 32 Width = 293 BorderSpacing.Left = 12 ItemHeight = 0 @@ -6131,8 +6131,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 3 BorderSpacing.InnerBorder = 4 Caption = 'Settings' - OnClick = btnSetFifthClick TabOrder = 1 + OnClick = btnSetFifthClick end object btnLoadFifth: TButton AnchorSideTop.Control = GroupBox15 @@ -6147,8 +6147,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Right = 12 BorderSpacing.InnerBorder = 4 Caption = 'Load' - OnClick = btnLoadFifthClick TabOrder = 2 + OnClick = btnLoadFifthClick end object Label107: TLabel AnchorSideLeft.Control = cmbFifthClub @@ -6156,8 +6156,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbFifthClub AnchorSideTop.Side = asrCenter Left = 317 - Height = 17 - Top = 33 + Height = 18 + Top = 40 Width = 39 BorderSpacing.Left = 12 Caption = 'Since:' @@ -6169,8 +6169,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbFifthClub AnchorSideTop.Side = asrCenter Left = 368 - Height = 34 - Top = 24 + Height = 35 + Top = 32 Width = 96 BorderSpacing.Left = 12 TabOrder = 3 @@ -6183,7 +6183,7 @@ object frmPreferences: TfrmPreferences Left = 18 Height = 23 Top = 556 - Width = 391 + Width = 397 BorderSpacing.Top = 26 Caption = 'Check for updated list of members when program starts' TabOrder = 5 @@ -6193,28 +6193,28 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrCenter AnchorSideRight.Control = GroupBox14 AnchorSideRight.Side = asrBottom - Left = 508 - Height = 33 - Top = 551 - Width = 94 + Left = 505 + Height = 34 + Top = 550 + Width = 97 Anchors = [akTop, akRight] AutoSize = True Caption = 'Update now' - OnClick = btnForceMembershipUpdateClick TabOrder = 6 + OnClick = btnForceMembershipUpdateClick end end object tabBandMap: TTabSheet Caption = 'Bandmap' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox16: TGroupBox Left = 13 Height = 61 Top = 3 Width = 572 Caption = ' Font ' - ClientHeight = 43 + ClientHeight = 42 ClientWidth = 570 TabOrder = 0 object lblBandMapFont: TLabel @@ -6231,8 +6231,8 @@ object frmPreferences: TfrmPreferences Top = 6 Width = 96 Caption = 'Select font' - OnClick = btnSelectBandFontClick TabOrder = 0 + OnClick = btnSelectBandFontClick end end object GroupBox17: TGroupBox @@ -6241,20 +6241,20 @@ object frmPreferences: TfrmPreferences Top = 74 Width = 572 Caption = ' Color ' - ClientHeight = 44 + ClientHeight = 60 ClientWidth = 570 TabOrder = 1 object Label61: TLabel Left = 6 - Height = 17 + Height = 18 Top = 11 - Width = 326 + Width = 333 Caption = 'Select color of entry added from new qso window ' ParentColor = False end object cmbQSOBandColor: TColorBox Left = 460 - Height = 29 + Height = 30 Top = 0 Width = 100 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -6311,36 +6311,36 @@ object frmPreferences: TfrmPreferences Top = 146 Width = 572 Caption = ' Band Map Entries Aging (in minutes) ' - ClientHeight = 50 + ClientHeight = 66 ClientWidth = 570 TabOrder = 7 object Label62: TLabel Left = 11 - Height = 17 + Height = 18 Top = 14 - Width = 93 + Width = 94 Caption = 'The first after ' ParentColor = False end object Label63: TLabel Left = 163 - Height = 17 + Height = 18 Top = 14 - Width = 110 + Width = 112 Caption = 'the second after ' ParentColor = False end object Label64: TLabel Left = 350 - Height = 17 + Height = 18 Top = 14 - Width = 103 + Width = 107 Caption = 'disappear after ' ParentColor = False end object edtFirst: TEdit Left = 104 - Height = 34 + Height = 35 Top = 11 Width = 50 TabOrder = 0 @@ -6348,7 +6348,7 @@ object frmPreferences: TfrmPreferences end object edtSecond: TEdit Left = 281 - Height = 34 + Height = 35 Top = 11 Width = 50 TabOrder = 1 @@ -6356,7 +6356,7 @@ object frmPreferences: TfrmPreferences end object edtDisep: TEdit Left = 462 - Height = 34 + Height = 35 Top = 11 Width = 50 TabOrder = 2 @@ -6369,14 +6369,14 @@ object frmPreferences: TfrmPreferences Top = 230 Width = 369 Caption = 'Band map entries (from dxcluster)' - ClientHeight = 74 + ClientHeight = 90 ClientWidth = 367 TabOrder = 8 object Label65: TLabel Left = 6 - Height = 17 + Height = 18 Top = 41 - Width = 38 + Width = 41 Caption = 'Color:' ParentColor = False end @@ -6386,8 +6386,8 @@ object frmPreferences: TfrmPreferences Top = 3 Width = 112 Caption = 'Watch settings' - OnClick = Button1Click TabOrder = 0 + OnClick = Button1Click end object Button2: TButton Left = 239 @@ -6395,12 +6395,12 @@ object frmPreferences: TfrmPreferences Top = 35 Width = 112 Caption = 'Ignore settings' - OnClick = Button2Click TabOrder = 1 + OnClick = Button2Click end object cmbFrmDXCColor: TColorBox Left = 67 - Height = 29 + Height = 30 Top = 35 Width = 113 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames] @@ -6411,17 +6411,17 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 6 - Width = 228 + Width = 226 Caption = 'Use the same color as the spot' - OnChange = chkUseDXCColorsChange TabOrder = 3 + OnChange = chkUseDXCColorsChange end end object chkDeleteAfterQSO: TCheckBox Left = 238 Height = 23 Top = 354 - Width = 285 + Width = 294 Caption = 'Delete station from bandmap after QSO' TabOrder = 9 end @@ -6429,7 +6429,7 @@ object frmPreferences: TfrmPreferences Left = 14 Height = 23 Top = 381 - Width = 296 + Width = 303 Caption = 'Add station to bandmap after saving QSO' TabOrder = 10 end @@ -6437,7 +6437,7 @@ object frmPreferences: TfrmPreferences Left = 14 Height = 23 Top = 408 - Width = 625 + Width = 626 Caption = 'Ignore DX spots with freq equals to the start of the band (21.000, 14.000 etc., usually notes)' TabOrder = 11 end @@ -6445,7 +6445,7 @@ object frmPreferences: TfrmPreferences Left = 14 Height = 23 Top = 435 - Width = 545 + Width = 550 Caption = 'When TRX control is not active, use frequency and mode from NewQSO window' TabOrder = 12 end @@ -6453,7 +6453,7 @@ object frmPreferences: TfrmPreferences Left = 16 Height = 23 Top = 464 - Width = 410 + Width = 401 Caption = 'Use ''+'' key to add spots to band map (CTRL+A is a deault)' TabOrder = 13 end @@ -6463,7 +6463,7 @@ object frmPreferences: TfrmPreferences Top = 232 Width = 201 Caption = 'Column widths' - ClientHeight = 71 + ClientHeight = 87 ClientWidth = 199 TabOrder = 14 object seFreqWidth: TSpinEdit @@ -6471,9 +6471,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = lbFreqW AnchorSideTop.Side = asrBottom - Left = 12 - Height = 34 - Top = 29 + Left = 14 + Height = 35 + Top = 30 Width = 55 BorderSpacing.Top = 6 MaxValue = 30 @@ -6487,9 +6487,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lbCallW AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom - Left = 126 - Height = 34 - Top = 29 + Left = 133 + Height = 35 + Top = 30 Width = 55 BorderSpacing.Top = 6 MaxValue = 30 @@ -6501,9 +6501,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = gbWidths AnchorSideTop.Control = gbWidths Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 66 + Width = 71 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'FreqWidth' @@ -6513,10 +6513,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lbFreqW AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lbFreqW - Left = 122 - Height = 17 + Left = 127 + Height = 18 Top = 6 - Width = 63 + Width = 66 BorderSpacing.Left = 50 Caption = 'CallWidth' ParentColor = False @@ -6525,20 +6525,20 @@ object frmPreferences: TfrmPreferences end object tabXplanet: TTabSheet Caption = 'xplanet support' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox21: TGroupBox Left = 14 Height = 89 Top = 11 Width = 521 Caption = ' Path for the xplanet ' - ClientHeight = 71 + ClientHeight = 70 ClientWidth = 519 TabOrder = 10 object edtXplanetPath: TEdit Left = 6 - Height = 34 + Height = 35 Top = 15 Width = 432 TabOrder = 0 @@ -6551,35 +6551,35 @@ object frmPreferences: TfrmPreferences Top = 107 Width = 113 Caption = ' Window size ' - ClientHeight = 94 + ClientHeight = 110 ClientWidth = 111 TabOrder = 1 object Label66: TLabel Left = 8 - Height = 17 + Height = 18 Top = 3 - Width = 47 + Width = 48 Caption = 'Height:' ParentColor = False end object Label67: TLabel Left = 6 - Height = 17 + Height = 18 Top = 43 - Width = 42 + Width = 45 Caption = 'Width:' ParentColor = False end object edtXHeight: TEdit Left = 64 - Height = 34 + Height = 35 Top = 3 Width = 41 TabOrder = 0 end object edtXWidth: TEdit Left = 64 - Height = 34 + Height = 35 Top = 43 Width = 41 TabOrder = 1 @@ -6591,35 +6591,35 @@ object frmPreferences: TfrmPreferences Top = 107 Width = 129 Caption = ' Window position ' - ClientHeight = 94 + ClientHeight = 110 ClientWidth = 127 TabOrder = 2 object Label68: TLabel Left = 8 - Height = 17 + Height = 18 Top = 3 - Width = 26 + Width = 29 Caption = 'Top:' ParentColor = False end object Label69: TLabel Left = 8 - Height = 17 + Height = 18 Top = 43 - Width = 29 + Width = 31 Caption = 'Left:' ParentColor = False end object edtXTop: TEdit Left = 64 - Height = 34 + Height = 35 Top = 3 Width = 52 TabOrder = 0 end object edtXLeft: TEdit Left = 64 - Height = 34 + Height = 35 Top = 43 Width = 52 TabOrder = 1 @@ -6630,15 +6630,15 @@ object frmPreferences: TfrmPreferences Top = 72 Width = 56 Caption = 'Test it!' - OnClick = btnTestXplanetClick TabOrder = 2 + OnClick = btnTestXplanetClick end end object chkShowXplanet: TCheckBox Left = 14 Height = 23 Top = 352 - Width = 258 + Width = 266 Caption = 'Show xplanet after program startup' TabOrder = 3 end @@ -6656,28 +6656,28 @@ object frmPreferences: TfrmPreferences Top = 107 Width = 298 Caption = ' Refresh ' - ClientHeight = 94 + ClientHeight = 110 ClientWidth = 296 TabOrder = 5 object Label70: TLabel Left = 8 - Height = 17 + Height = 18 Top = 3 - Width = 144 + Width = 143 Caption = 'Refresh xplanet every' ParentColor = False end object Label71: TLabel Left = 240 - Height = 17 + Height = 18 Top = 3 - Width = 26 + Width = 25 Caption = 'sec.' ParentColor = False end object Label72: TLabel Left = 6 - Height = 17 + Height = 18 Top = 43 Width = 63 Caption = 'Show last' @@ -6685,22 +6685,22 @@ object frmPreferences: TfrmPreferences end object Label73: TLabel Left = 136 - Height = 17 + Height = 18 Top = 43 - Width = 35 + Width = 36 Caption = 'spots' ParentColor = False end object edtXRefresh: TEdit Left = 168 - Height = 34 + Height = 35 Top = 3 Width = 49 TabOrder = 0 end object edtXLastSpots: TEdit Left = 83 - Height = 34 + Height = 35 Top = 43 Width = 42 TabOrder = 1 @@ -6721,7 +6721,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 94 + ClientHeight = 93 ClientWidth = 255 Items.Strings = ( '3D' @@ -6746,7 +6746,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 94 + ClientHeight = 93 ClientWidth = 254 Items.Strings = ( 'dxcluster' @@ -6757,7 +6757,7 @@ object frmPreferences: TfrmPreferences end object cmbXplanetColor: TColorBox Left = 240 - Height = 29 + Height = 30 Top = 381 Width = 100 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames, cbCustomColors] @@ -6768,7 +6768,7 @@ object frmPreferences: TfrmPreferences Left = 14 Height = 23 Top = 386 - Width = 198 + Width = 200 Caption = 'Use this xplanet font color' TabOrder = 9 end @@ -6778,43 +6778,43 @@ object frmPreferences: TfrmPreferences Top = 424 Width = 521 Caption = ' Center locator for xplanet (if different from default)' - ClientHeight = 54 + ClientHeight = 53 ClientWidth = 519 TabOrder = 0 object edtXplanetLoc: TEdit Left = 6 - Height = 34 + Height = 35 Top = 15 Width = 96 - OnChange = edtXplanetLocChange TabOrder = 0 + OnChange = edtXplanetLocChange end end object chkShowOwnPos: TCheckBox Left = 14 Height = 23 Top = 504 - Width = 245 + Width = 248 Caption = 'Show own position within xplanet' TabOrder = 11 end end object tabZipCode: TTabSheet Caption = 'Zip code tracking' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox25: TGroupBox Left = 6 Height = 104 Top = 11 Width = 545 Caption = ' First ' - ClientHeight = 86 + ClientHeight = 102 ClientWidth = 543 TabOrder = 0 object Label74: TLabel Left = 14 - Height = 17 + Height = 18 Top = 50 Width = 97 Caption = 'Save county to' @@ -6822,15 +6822,15 @@ object frmPreferences: TfrmPreferences end object Label75: TLabel Left = 254 - Height = 17 + Height = 18 Top = 50 - Width = 29 + Width = 30 Caption = 'field' ParentColor = False end object cmbFirstZip: TComboBox Left = 14 - Height = 33 + Height = 34 Top = 7 Width = 224 ItemHeight = 0 @@ -6843,8 +6843,8 @@ object frmPreferences: TfrmPreferences Top = 7 Width = 75 Caption = 'Load' - OnClick = btnFirstLoadClick TabOrder = 1 + OnClick = btnFirstLoadClick end object rgFirstZipPos: TRadioGroup Left = 350 @@ -6861,7 +6861,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 54 + ClientHeight = 53 ClientWidth = 182 Items.Strings = ( 'before town address' @@ -6871,7 +6871,7 @@ object frmPreferences: TfrmPreferences end object cmbFirstSaveTo: TComboBox Left = 118 - Height = 29 + Height = 30 Top = 46 Width = 120 ItemHeight = 0 @@ -6893,12 +6893,12 @@ object frmPreferences: TfrmPreferences Top = 123 Width = 545 Caption = ' Second ' - ClientHeight = 86 + ClientHeight = 102 ClientWidth = 543 TabOrder = 1 object Label76: TLabel Left = 14 - Height = 17 + Height = 18 Top = 50 Width = 97 Caption = 'Save county to' @@ -6906,15 +6906,15 @@ object frmPreferences: TfrmPreferences end object Label77: TLabel Left = 254 - Height = 17 + Height = 18 Top = 50 - Width = 29 + Width = 30 Caption = 'field' ParentColor = False end object cmbSecondZip: TComboBox Left = 14 - Height = 33 + Height = 34 Top = 7 Width = 224 ItemHeight = 0 @@ -6927,8 +6927,8 @@ object frmPreferences: TfrmPreferences Top = 7 Width = 75 Caption = 'Load' - OnClick = btnSecondLoadClick TabOrder = 1 + OnClick = btnSecondLoadClick end object rgSecondZipPos: TRadioGroup Left = 350 @@ -6945,7 +6945,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 57 + ClientHeight = 56 ClientWidth = 182 Items.Strings = ( 'before town address' @@ -6955,7 +6955,7 @@ object frmPreferences: TfrmPreferences end object cmbSecondSaveTo: TComboBox Left = 118 - Height = 29 + Height = 30 Top = 46 Width = 120 ItemHeight = 0 @@ -6977,12 +6977,12 @@ object frmPreferences: TfrmPreferences Top = 235 Width = 545 Caption = ' Third ' - ClientHeight = 86 + ClientHeight = 102 ClientWidth = 543 TabOrder = 2 object Label78: TLabel Left = 14 - Height = 17 + Height = 18 Top = 50 Width = 97 Caption = 'Save county to' @@ -6990,15 +6990,15 @@ object frmPreferences: TfrmPreferences end object Label79: TLabel Left = 254 - Height = 17 + Height = 18 Top = 50 - Width = 29 + Width = 30 Caption = 'field' ParentColor = False end object cmbThirdZip: TComboBox Left = 14 - Height = 33 + Height = 34 Top = 7 Width = 224 ItemHeight = 0 @@ -7011,8 +7011,8 @@ object frmPreferences: TfrmPreferences Top = 7 Width = 75 Caption = 'Load' - OnClick = btnThirdLoadClick TabOrder = 1 + OnClick = btnThirdLoadClick end object rgThirdZipPos: TRadioGroup Left = 350 @@ -7029,7 +7029,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 54 + ClientHeight = 53 ClientWidth = 182 Items.Strings = ( 'before town address' @@ -7039,7 +7039,7 @@ object frmPreferences: TfrmPreferences end object cmbThirdSaveTo: TComboBox Left = 118 - Height = 29 + Height = 30 Top = 44 Width = 120 ItemHeight = 0 @@ -7058,16 +7058,16 @@ object frmPreferences: TfrmPreferences end object tabLoTW: TTabSheet Caption = 'LoTW/eQSL support' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object lblLoTWBkg: TLabel AnchorSideLeft.Control = cmbLoTWBckColor AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbLoTWBckColor - Left = 271 - Height = 34 - Top = 431 - Width = 327 + Left = 268 + Height = 36 + Top = 430 + Width = 328 BorderSpacing.Left = 6 Caption = 'color as a background in DX cluster and band map'#10'for stations using LoTW' ParentColor = False @@ -7079,7 +7079,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 347 - Width = 425 + Width = 428 BorderSpacing.Top = 6 Caption = 'Include LoTW and eQSL confirmed countries in DXCC statistic' TabOrder = 0 @@ -7091,7 +7091,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 376 - Width = 594 + Width = 602 BorderSpacing.Top = 6 Caption = 'Use LoTW and eQSL confirmed countries for New country or New band country etc. info' TabOrder = 1 @@ -7106,16 +7106,16 @@ object frmPreferences: TfrmPreferences BorderSpacing.Left = 12 BorderSpacing.Top = 3 Caption = ' Data for access to ARRL LoTW website ' - ClientHeight = 54 + ClientHeight = 70 ClientWidth = 514 TabOrder = 2 object lblLoUsr: TLabel AnchorSideLeft.Control = gbLoTW AnchorSideTop.Control = gbLoTW Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 75 + Width = 74 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'User name:' @@ -7124,10 +7124,10 @@ object frmPreferences: TfrmPreferences object lblLoTWpass: TLabel AnchorSideTop.Control = lblLoUsr AnchorSideRight.Control = edtLoTWPass - Left = 319 - Height = 17 + Left = 318 + Height = 18 Top = 6 - Width = 70 + Width = 71 Anchors = [akTop, akRight] BorderSpacing.Right = 6 Caption = 'Password: ' @@ -7137,8 +7137,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblLoUsr AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblLoUsr - Left = 87 - Height = 34 + Left = 86 + Height = 35 Top = 6 Width = 88 BorderSpacing.Left = 6 @@ -7149,7 +7149,7 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = gbLoTW AnchorSideRight.Side = asrBottom Left = 395 - Height = 34 + Height = 35 Top = 6 Width = 104 Anchors = [akTop, akRight] @@ -7166,7 +7166,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 405 - Width = 398 + Width = 400 BorderSpacing.Top = 6 Caption = 'Show info in New QSO window if station uses LoTW/eQSL' TabOrder = 3 @@ -7178,7 +7178,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 434 - Width = 83 + Width = 80 BorderSpacing.Top = 6 Caption = 'Use this ' TabOrder = 4 @@ -7188,9 +7188,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShowBckLoTW AnchorSideTop.Side = asrCenter - Left = 101 - Height = 29 - Top = 431 + Left = 98 + Height = 30 + Top = 430 Width = 164 DefaultColorColor = clMoneyGreen NoneColorColor = clMoneyGreen @@ -7210,16 +7210,16 @@ object frmPreferences: TfrmPreferences Width = 516 BorderSpacing.Top = 6 Caption = ' Data for access to eQSL website ' - ClientHeight = 242 + ClientHeight = 258 ClientWidth = 514 TabOrder = 6 object lbleQSLUsr: TLabel AnchorSideLeft.Control = gbeQSL AnchorSideTop.Control = gbeQSL Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 75 + Width = 74 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'User name:' @@ -7228,10 +7228,10 @@ object frmPreferences: TfrmPreferences object lbleQSLPass: TLabel AnchorSideTop.Control = lbleQSLUsr AnchorSideRight.Control = edteQSLPass - Left = 322 - Height = 17 + Left = 321 + Height = 18 Top = 6 - Width = 70 + Width = 71 Anchors = [akTop, akRight] BorderSpacing.Right = 6 Caption = 'Password: ' @@ -7241,8 +7241,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lbleQSLUsr AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lbleQSLUsr - Left = 87 - Height = 34 + Left = 86 + Height = 35 Top = 6 Width = 88 BorderSpacing.Left = 6 @@ -7253,7 +7253,7 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = gbeQSL AnchorSideRight.Side = asrBottom Left = 398 - Height = 34 + Height = 35 Top = 6 Width = 104 Anchors = [akTop, akRight] @@ -7267,9 +7267,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edteQSLName AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 46 - Width = 458 + Height = 18 + Top = 47 + Width = 461 BorderSpacing.Top = 6 Caption = 'eQSL download start address prefix. Your user data is added as suffix.' ParentColor = False @@ -7281,8 +7281,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = gbeQSL AnchorSideRight.Side = asrBottom Left = 6 - Height = 34 - Top = 69 + Height = 35 + Top = 71 Width = 496 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 @@ -7294,9 +7294,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edteQSLStartAddr AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 109 - Width = 436 + Height = 18 + Top = 112 + Width = 435 BorderSpacing.Top = 6 Caption = 'eQSL download file address prefix. Adi filename is added as suffix.' ParentColor = False @@ -7308,8 +7308,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = gbeQSL AnchorSideRight.Side = asrBottom Left = 6 - Height = 34 - Top = 132 + Height = 35 + Top = 136 Width = 496 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 @@ -7321,9 +7321,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edteQSLDnlAddr AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 172 - Width = 392 + Height = 18 + Top = 177 + Width = 389 BorderSpacing.Top = 6 Caption = 'eQSL view address prefix. Your user data is added as suffix.' ParentColor = False @@ -7335,8 +7335,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = gbeQSL AnchorSideRight.Side = asrBottom Left = 6 - Height = 34 - Top = 195 + Height = 35 + Top = 201 Width = 496 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 @@ -7351,7 +7351,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 469 - Width = 83 + Width = 80 BorderSpacing.Top = 12 Caption = 'Use this ' TabOrder = 7 @@ -7361,9 +7361,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkShowBckEQSL AnchorSideTop.Side = asrCenter - Left = 101 - Height = 29 - Top = 466 + Left = 98 + Height = 30 + Top = 465 Width = 164 DefaultColorColor = clSkyBlue NoneColorColor = clMoneyGreen @@ -7377,10 +7377,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbeQSLBckColor AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbeQSLBckColor - Left = 271 - Height = 34 - Top = 466 - Width = 327 + Left = 268 + Height = 36 + Top = 465 + Width = 328 BorderSpacing.Left = 6 Caption = 'color as a background in DX cluster and band map'#10'for stations using eQSL' ParentColor = False @@ -7392,7 +7392,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 504 - Width = 316 + Width = 320 BorderSpacing.Top = 12 Caption = 'Upload to eQSL also data in COMMENT field ' TabOrder = 9 @@ -7400,8 +7400,8 @@ object frmPreferences: TfrmPreferences end object tabCWInterface: TTabSheet Caption = 'CW interface' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 OnContextPopup = tabCWInterfaceContextPopup OnExit = tabCWInterfaceExit object lbIfaceType: TLabel @@ -7409,9 +7409,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblCWRadio Left = 156 - Height = 17 + Height = 18 Top = 6 - Width = 121 + Width = 124 BorderSpacing.Left = 18 Caption = 'CW interface type:' ParentColor = False @@ -7422,21 +7422,21 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 18 Height = 141 - Top = 115 + Top = 117 Width = 497 BorderSpacing.Left = 18 BorderSpacing.Top = 12 Caption = ' WinKeyer' - ClientHeight = 123 + ClientHeight = 139 ClientWidth = 495 TabOrder = 3 object lblWinPort: TLabel AnchorSideLeft.Control = gbWinkeyer AnchorSideTop.Control = gbWinkeyer Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 111 + Width = 115 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Radio keyer Port:' @@ -7447,9 +7447,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtWinPort AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 60 - Width = 117 + Height = 18 + Top = 62 + Width = 119 BorderSpacing.Top = 3 Caption = 'Default CW speed' ParentColor = False @@ -7460,9 +7460,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtWinSpeed AnchorSideTop.Side = asrCenter Left = 62 - Height = 17 - Top = 86 - Width = 33 + Height = 18 + Top = 88 + Width = 36 BorderSpacing.Left = 6 Caption = 'WPM' ParentColor = False @@ -7472,9 +7472,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblWinSpeed AnchorSideTop.Side = asrCenter Left = 162 - Height = 17 - Top = 60 - Width = 71 + Height = 18 + Top = 62 + Width = 72 Caption = 'Min speed:' ParentColor = False end @@ -7484,9 +7484,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrCenter AnchorSideRight.Control = chkPotSpeed AnchorSideRight.Side = asrBottom - Left = 315 - Height = 17 - Top = 60 + Left = 319 + Height = 18 + Top = 62 Width = 75 Anchors = [akTop, akRight] Caption = 'Max speed:' @@ -7497,19 +7497,19 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblWinPort AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 147 - OnChange = edtWinSpeedChange TabOrder = 0 + OnChange = edtWinSpeedChange end object edtWinSpeed: TSpinEdit AnchorSideLeft.Control = lblWinSpeed AnchorSideTop.Control = lblWinSpeed AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 77 + Height = 35 + Top = 80 Width = 50 MaxValue = 99 MinValue = 5 @@ -7525,13 +7525,13 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Side = asrBottom Left = 162 Height = 23 - Top = 29 - Width = 228 + Top = 30 + Width = 232 BorderSpacing.Left = 9 BorderSpacing.Right = 6 Caption = 'Use potentiometer''s CW speed' - OnChange = chkPotSpeedChange TabOrder = 1 + OnChange = chkPotSpeedChange end object edtWinMinSpeed: TSpinEdit AnchorSideLeft.Control = lblWinMinSpeed @@ -7539,8 +7539,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 162 - Height = 34 - Top = 80 + Height = 35 + Top = 83 Width = 50 BorderSpacing.Top = 3 MaxValue = 99 @@ -7552,9 +7552,9 @@ object frmPreferences: TfrmPreferences object edtWinMaxSpeed: TSpinEdit AnchorSideLeft.Control = lblWinMaxSpeed AnchorSideTop.Control = edtWinMinSpeed - Left = 321 - Height = 34 - Top = 80 + Left = 325 + Height = 35 + Top = 83 Width = 50 BorderSpacing.Left = 6 MaxValue = 99 @@ -7570,20 +7570,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 18 Height = 138 - Top = 262 + Top = 264 Width = 497 BorderSpacing.Top = 6 Caption = ' cwdaemon ' - ClientHeight = 120 + ClientHeight = 136 ClientWidth = 495 TabOrder = 4 object lblCWAddr: TLabel AnchorSideLeft.Control = gbCwkeyer AnchorSideTop.Control = gbCwkeyer Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 56 + Width = 58 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Address:' @@ -7594,9 +7594,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblCWAddr Left = 193 - Height = 17 + Height = 18 Top = 6 - Width = 111 + Width = 115 BorderSpacing.Left = 48 Caption = 'Radio keyer Port:' ParentColor = False @@ -7606,9 +7606,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtCWAddress AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 60 - Width = 117 + Height = 18 + Top = 62 + Width = 119 BorderSpacing.Top = 3 Caption = 'Default CW speed' ParentColor = False @@ -7619,9 +7619,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtCWSpeed AnchorSideTop.Side = asrCenter Left = 62 - Height = 17 - Top = 86 - Width = 33 + Height = 18 + Top = 88 + Width = 36 BorderSpacing.Left = 6 Caption = 'WPM' ParentColor = False @@ -7631,30 +7631,30 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblCWAddr AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 139 - OnChange = edtWinSpeedChange TabOrder = 0 + OnChange = edtWinSpeedChange end object edtCWPort: TEdit AnchorSideLeft.Control = lblCWPort1 AnchorSideTop.Control = lblCWPort1 AnchorSideTop.Side = asrBottom Left = 193 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 80 - OnChange = edtWinSpeedChange TabOrder = 1 + OnChange = edtWinSpeedChange end object edtCWSpeed: TSpinEdit AnchorSideLeft.Control = lblCWDefSpeed AnchorSideTop.Control = lblCWDefSpeed AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 77 + Height = 35 + Top = 80 Width = 50 MaxValue = 99 MinValue = 5 @@ -7670,12 +7670,12 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Side = asrBottom Left = 294 Height = 29 - Top = 26 + Top = 27 Width = 120 BorderSpacing.Left = 18 Caption = 'CW Messages' - OnClick = btnKeyMacrosClick TabOrder = 7 + OnClick = btnKeyMacrosClick end object gbK3NGkey: TGroupBox AnchorSideLeft.Control = gbCwkeyer @@ -7683,20 +7683,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 18 Height = 144 - Top = 406 + Top = 408 Width = 497 BorderSpacing.Top = 6 Caption = 'K3NG Key' - ClientHeight = 126 + ClientHeight = 142 ClientWidth = 495 TabOrder = 5 object lblK3NGPort: TLabel AnchorSideLeft.Control = gbK3NGkey AnchorSideTop.Control = gbK3NGkey Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 111 + Width = 115 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Radio keyer Port:' @@ -7707,9 +7707,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtK3NGPort AnchorSideTop.Side = asrBottom Left = 6 - Height = 17 - Top = 60 - Width = 117 + Height = 18 + Top = 62 + Width = 119 BorderSpacing.Top = 3 Caption = 'Default CW speed' ParentColor = False @@ -7718,9 +7718,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtK3NGSpeed AnchorSideLeft.Side = asrBottom Left = 62 - Height = 17 + Height = 18 Top = 31 - Width = 33 + Width = 36 BorderSpacing.Left = 6 Caption = 'WPM' ParentColor = False @@ -7730,19 +7730,19 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblK3NGPort AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 147 - OnChange = edtWinSpeedChange TabOrder = 0 + OnChange = edtWinSpeedChange end object edtK3NGSpeed: TSpinEdit AnchorSideLeft.Control = lblK3NGSpeed AnchorSideTop.Control = lblK3NGSpeed AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 77 + Height = 35 + Top = 80 Width = 50 MaxValue = 99 MinValue = 5 @@ -7755,20 +7755,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblK3NGSerSpeed AnchorSideTop.Side = asrBottom Left = 201 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 118 - OnChange = edtWinSpeedChange TabOrder = 1 + OnChange = edtWinSpeedChange end object lblK3NGSerSpeed: TLabel AnchorSideLeft.Control = edtK3NGPort AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lblK3NGPort Left = 201 - Height = 17 + Height = 18 Top = 6 - Width = 114 + Width = 118 BorderSpacing.Left = 48 Caption = 'Serial port speed:' ParentColor = False @@ -7780,20 +7780,20 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 18 Height = 100 - Top = 556 + Top = 558 Width = 497 BorderSpacing.Top = 6 Caption = 'HamLib' - ClientHeight = 82 + ClientHeight = 98 ClientWidth = 495 TabOrder = 6 object lblHamLibSpeed: TLabel AnchorSideLeft.Control = gbHamlib AnchorSideTop.Control = gbHamlib Left = 6 - Height = 17 + Height = 18 Top = 6 - Width = 117 + Width = 119 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Default CW speed' @@ -7804,8 +7804,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblHamLibSpeed AnchorSideTop.Side = asrBottom Left = 6 - Height = 34 - Top = 23 + Height = 35 + Top = 24 Width = 50 MaxValue = 99 MinValue = 5 @@ -7819,9 +7819,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtHamLibSpeed AnchorSideTop.Side = asrCenter Left = 62 - Height = 17 + Height = 18 Top = 32 - Width = 33 + Width = 36 BorderSpacing.Left = 6 Caption = 'WPM' ParentColor = False @@ -7831,10 +7831,10 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblHamLibSpeed AnchorSideRight.Control = gbHamlib AnchorSideRight.Side = asrBottom - Left = 384 - Height = 68 + Left = 383 + Height = 72 Top = 6 - Width = 99 + Width = 100 Anchors = [akTop, akRight] BorderSpacing.Left = 81 BorderSpacing.Right = 12 @@ -7845,17 +7845,17 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblHamLibSpeed AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtHamLibSpeed - Left = 168 + Left = 170 Height = 23 Hint = 'Hamlib July 2023 and after has 1k CW buffer for long strings.'#10'Setting this ignores letter by letter sending on messages '#10'longer than 10 chrs.' - Top = 23 - Width = 165 + Top = 24 + Width = 164 BorderSpacing.Left = 45 Caption = 'Use Hamlib 1k buffer' - OnChange = cmbIfaceTypeChange ParentShowHint = False ShowHint = True TabOrder = 1 + OnChange = cmbIfaceTypeChange end end object cbNoKeyerReset: TCheckBox @@ -7864,21 +7864,21 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 18 Height = 23 - Top = 80 - Width = 539 + Top = 82 + Width = 538 BorderSpacing.Left = 18 BorderSpacing.Top = 21 Caption = 'Do not reset keyer when switching radios (Same keyer for all, and not HamLib)' - OnChange = cbNoKeyerResetChange TabOrder = 2 + OnChange = cbNoKeyerResetChange end object lblCWRadio: TLabel AnchorSideLeft.Control = tabCWInterface AnchorSideTop.Control = tabCWInterface Left = 18 - Height = 17 + Height = 18 Top = 6 - Width = 37 + Width = 39 BorderSpacing.Left = 18 BorderSpacing.Top = 6 Caption = 'Radio' @@ -7889,24 +7889,24 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblCWRadio AnchorSideTop.Side = asrBottom Left = 18 - Height = 33 - Top = 26 + Height = 34 + Top = 27 Width = 120 BorderSpacing.Top = 3 ItemHeight = 0 - OnChange = cmbCWRadioChange - OnCloseUp = cmbCWRadioCloseUp Style = csDropDownList TabOrder = 0 + OnChange = cmbCWRadioChange + OnCloseUp = cmbCWRadioCloseUp end object lblNoRigForCW: TLabel AnchorSideLeft.Control = cmbCWRadio AnchorSideTop.Control = cmbCWRadio AnchorSideTop.Side = asrBottom Left = 18 - Height = 17 - Top = 62 - Width = 135 + Height = 18 + Top = 64 + Width = 118 BorderSpacing.Top = 3 Caption = 'There is no radio!' Font.Color = clRed @@ -7919,8 +7919,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lbIfaceType AnchorSideTop.Control = cmbCWRadio Left = 156 - Height = 29 - Top = 26 + Height = 30 + Top = 27 Width = 120 ItemHeight = 0 Items.Strings = ( @@ -7930,16 +7930,16 @@ object frmPreferences: TfrmPreferences 'K3NG Key' 'Hamlib' ) - OnChange = cmbIfaceTypeChange - OnCloseUp = cmbIfaceTypeCloseUp Style = csDropDownList TabOrder = 1 + OnChange = cmbIfaceTypeChange + OnCloseUp = cmbIfaceTypeCloseUp end end object tabFldigi1: TTabSheet Caption = 'fldigi/wsjt interface' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox31: TGroupBox AnchorSideLeft.Control = tabFldigi1 AnchorSideTop.Control = tabFldigi1 @@ -7958,9 +7958,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = rgFreqFrom AnchorSideTop.Side = asrBottom Left = 10 - Height = 17 + Height = 18 Top = 270 - Width = 218 + Width = 221 BorderSpacing.Left = 10 BorderSpacing.Top = 26 Caption = 'Try to load QSO from fldigi every ' @@ -7971,8 +7971,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtLoadFromFldigi AnchorSideTop.Side = asrCenter - Left = 298 - Height = 17 + Left = 301 + Height = 18 Top = 270 Width = 53 BorderSpacing.Left = 10 @@ -7984,9 +7984,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label91 AnchorSideTop.Side = asrCenter - Left = 238 - Height = 34 - Top = 261 + Left = 241 + Height = 35 + Top = 262 Width = 50 BorderSpacing.Left = 10 MinValue = 1 @@ -8012,7 +8012,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 + ClientHeight = 95 ClientWidth = 207 ItemIndex = 0 Items.Strings = ( @@ -8028,8 +8028,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = rgFreqFrom AnchorSideBottom.Side = asrBottom Left = 134 - Height = 34 - Top = 204 + Height = 35 + Top = 203 Width = 81 Anchors = [akRight, akBottom] BorderSpacing.Right = 6 @@ -8057,7 +8057,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 + ClientHeight = 95 ClientWidth = 222 Items.Strings = ( 'CQRLOG' @@ -8103,7 +8103,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 + ClientHeight = 95 ClientWidth = 183 Items.Strings = ( 'fldigi' @@ -8117,8 +8117,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = rgRSTFrom AnchorSideBottom.Side = asrBottom Left = 579 - Height = 34 - Top = 204 + Height = 35 + Top = 203 Width = 81 Anchors = [akRight, akBottom] BorderSpacing.Right = 6 @@ -8141,9 +8141,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtFldigiPath AnchorSideBottom.Control = edtFldigiPath Left = 20 - Height = 17 - Top = 49 - Width = 87 + Height = 18 + Top = 47 + Width = 90 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 5 Caption = 'Path to fldigi:' @@ -8154,8 +8154,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = Label95 Left = 20 Height = 23 - Top = 16 - Width = 294 + Top = 14 + Width = 300 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 10 Caption = 'Run fldigi after entering to Remote mode' @@ -8166,8 +8166,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = GroupBox34 AnchorSideBottom.Side = asrBottom Left = 20 - Height = 34 - Top = 71 + Height = 35 + Top = 70 Width = 416 Anchors = [akLeft, akBottom] BorderSpacing.Left = 20 @@ -8181,12 +8181,12 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrCenter Left = 438 Height = 25 - Top = 76 + Top = 75 Width = 75 BorderSpacing.Left = 2 Caption = 'Browse' - OnClick = btnFldigiPathClick TabOrder = 2 + OnClick = btnFldigiPathClick end end object edtFldigiPort: TEdit @@ -8195,7 +8195,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox34 AnchorSideRight.Side = asrBottom Left = 581 - Height = 34 + Height = 35 Top = 28 Width = 80 BorderSpacing.Left = 26 @@ -8208,8 +8208,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 581 - Height = 34 - Top = 83 + Height = 35 + Top = 85 Width = 80 BorderSpacing.Top = 2 TabOrder = 2 @@ -8219,10 +8219,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = edtFldigiPort AnchorSideTop.Side = asrBottom - Left = 593 - Height = 17 - Top = 64 - Width = 56 + Left = 592 + Height = 18 + Top = 65 + Width = 58 BorderSpacing.Top = 2 Caption = 'Address:' ParentColor = False @@ -8232,10 +8232,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideBottom.Control = edtFldigiPort AnchorSideBottom.Side = asrBottom - Left = 606 - Height = 17 + Left = 604 + Height = 18 Top = 10 - Width = 30 + Width = 34 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 35 Caption = 'Port:' @@ -8246,10 +8246,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtDropSyncErr AnchorSideTop.Side = asrCenter - Left = 599 + Left = 601 Height = 23 - Top = 267 - Width = 105 + Top = 268 + Width = 104 BorderSpacing.Left = 10 Caption = 'Use XmlRpc' TabOrder = 11 @@ -8259,9 +8259,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label50 AnchorSideTop.Side = asrCenter - Left = 539 - Height = 34 - Top = 261 + Left = 541 + Height = 35 + Top = 262 Width = 50 BorderSpacing.Left = 10 MaxValue = 20 @@ -8273,10 +8273,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label92 AnchorSideTop.Side = asrCenter - Left = 391 - Height = 17 + Left = 394 + Height = 18 Top = 270 - Width = 138 + Width = 137 BorderSpacing.Left = 40 Caption = 'Drop after SyncErr >' ParentColor = False @@ -8311,9 +8311,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtWsjtPath AnchorSideBottom.Control = edtWsjtPath Left = 25 - Height = 17 - Top = 44 - Width = 89 + Height = 18 + Top = 42 + Width = 90 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 5 Caption = 'Path to wsjtx:' @@ -8324,8 +8324,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = Label202 Left = 25 Height = 23 - Top = 11 - Width = 362 + Top = 9 + Width = 364 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 10 Caption = 'Run wsjtx after entering to Remote mode for wsjt-x' @@ -8336,8 +8336,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = GroupBox52 AnchorSideBottom.Side = asrBottom Left = 25 - Height = 34 - Top = 66 + Height = 35 + Top = 65 Width = 426 Anchors = [akLeft, akBottom] BorderSpacing.Left = 20 @@ -8351,12 +8351,12 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = edtWsjtPath Left = 376 Height = 25 - Top = 36 + Top = 35 Width = 75 Anchors = [akRight, akBottom] Caption = 'Browse' - OnClick = btnWsjtPathClick TabOrder = 1 + OnClick = btnWsjtPathClick end end object lblwsjtport: TLabel @@ -8364,10 +8364,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = lblADIFport AnchorSideBottom.Side = asrBottom - Left = 605 - Height = 17 + Left = 603 + Height = 18 Top = 6 - Width = 63 + Width = 66 BorderSpacing.Bottom = 35 Caption = 'Wsjt port:' ParentColor = False @@ -8378,7 +8378,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtADIFPort AnchorSideRight.Side = asrBottom Left = 596 - Height = 34 + Height = 35 Top = 24 Width = 80 BorderSpacing.Left = 16 @@ -8405,7 +8405,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 + ClientHeight = 95 ClientWidth = 270 Items.Strings = ( 'CQRLOG' @@ -8434,7 +8434,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 + ClientHeight = 95 ClientWidth = 198 ItemIndex = 0 Items.Strings = ( @@ -8450,8 +8450,8 @@ object frmPreferences: TfrmPreferences AnchorSideBottom.Control = rgWsjtFreqFrom AnchorSideBottom.Side = asrBottom Left = 126 - Height = 34 - Top = 200 + Height = 35 + Top = 199 Width = 81 Anchors = [akRight, akBottom] BorderSpacing.Right = 5 @@ -8480,8 +8480,8 @@ object frmPreferences: TfrmPreferences AnchorSideRight.Control = edtWsjtPort AnchorSideRight.Side = asrBottom Left = 595 - Height = 34 - Top = 79 + Height = 35 + Top = 81 Width = 81 Anchors = [akTop, akRight] BorderSpacing.Top = 2 @@ -8492,10 +8492,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = edtWsjtPort AnchorSideTop.Side = asrBottom - Left = 602 - Height = 17 - Top = 60 - Width = 66 + Left = 601 + Height = 18 + Top = 61 + Width = 68 BorderSpacing.Top = 2 Caption = 'Wsjt addr:' ParentColor = False @@ -8521,7 +8521,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 + ClientHeight = 95 ClientWidth = 198 Items.Strings = ( 'Call' @@ -8547,7 +8547,7 @@ object frmPreferences: TfrmPreferences NumGlyphs = 1 MaxLength = 10 TabOrder = 0 - Text = ' . . ' + Text = ' / / ' end object DateEditLoc: TDateEdit AnchorSideTop.Control = DateEditCall @@ -8567,7 +8567,7 @@ object frmPreferences: TfrmPreferences NumGlyphs = 1 MaxLength = 10 TabOrder = 2 - Text = ' . . ' + Text = ' / / ' end end object edtADIFPort: TEdit @@ -8576,7 +8576,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox52 AnchorSideRight.Side = asrBottom Left = 500 - Height = 34 + Height = 35 Top = 24 Width = 80 BorderSpacing.Left = 8 @@ -8589,9 +8589,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = GroupBox52 AnchorSideBottom.Side = asrBottom Left = 504 - Height = 17 + Height = 18 Top = 6 - Width = 65 + Width = 69 BorderSpacing.Left = 12 BorderSpacing.Bottom = 35 Caption = 'ADIF port:' @@ -8603,8 +8603,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 500 - Height = 34 - Top = 79 + Height = 35 + Top = 81 Width = 81 BorderSpacing.Top = 2 TabOrder = 3 @@ -8614,10 +8614,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = edtADIFPort AnchorSideTop.Side = asrBottom - Left = 506 - Height = 17 - Top = 60 - Width = 68 + Left = 505 + Height = 18 + Top = 61 + Width = 71 BorderSpacing.Top = 2 Caption = 'ADIF addr:' ParentColor = False @@ -8638,8 +8638,8 @@ object frmPreferences: TfrmPreferences end object tabAutoBackup: TTabSheet Caption = 'Exit & Auto backup' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox32: TGroupBox Left = 8 Height = 370 @@ -8653,8 +8653,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = Label207 AnchorSideTop.Side = asrBottom Left = 16 - Height = 17 - Top = 94 + Height = 18 + Top = 95 Width = 104 BorderSpacing.Top = 12 Caption = 'Save backup to:' @@ -8666,7 +8666,7 @@ object frmPreferences: TfrmPreferences Left = 16 Height = 23 Top = 7 - Width = 279 + Width = 286 BorderSpacing.Left = 16 BorderSpacing.Top = 7 Caption = 'Enable autobackup after program ends' @@ -8677,8 +8677,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = Label93 AnchorSideTop.Side = asrBottom Left = 16 - Height = 34 - Top = 117 + Height = 35 + Top = 119 Width = 496 BorderSpacing.Top = 6 TabOrder = 1 @@ -8689,12 +8689,12 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtBackupPath Left = 518 Height = 25 - Top = 117 + Top = 119 Width = 75 BorderSpacing.Left = 6 Caption = 'Browse' - OnClick = btnBrowseBackupClick TabOrder = 2 + OnClick = btnBrowseBackupClick end object chkCompressBackup: TCheckBox AnchorSideLeft.Control = chkEnableBackup @@ -8702,8 +8702,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 16 Height = 23 - Top = 297 - Width = 215 + Top = 301 + Width = 216 BorderSpacing.Top = 18 Caption = 'Compress backup with tar.gz' TabOrder = 3 @@ -8714,7 +8714,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 16 Height = 88 - Top = 191 + Top = 195 Width = 496 AutoFill = True BorderSpacing.Top = 6 @@ -8727,7 +8727,7 @@ object frmPreferences: TfrmPreferences ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 70 + ClientHeight = 69 ClientWidth = 494 Items.Strings = ( 'callsign, date and time (yourcall__yyyy-mm-dd__hh-mm-ss.adi)' @@ -8740,10 +8740,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = chkEnableBackup AnchorSideTop.Side = asrBottom - Left = 47 + Left = 50 Height = 23 Top = 30 - Width = 216 + Width = 218 Caption = 'Ask before creating a backup' TabOrder = 5 end @@ -8752,8 +8752,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtBackupPath AnchorSideTop.Side = asrBottom Left = 16 - Height = 34 - Top = 151 + Height = 35 + Top = 154 Width = 496 TabOrder = 6 end @@ -8763,21 +8763,21 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtBackupPath1 Left = 518 Height = 25 - Top = 151 + Top = 154 Width = 75 BorderSpacing.Left = 6 Caption = 'Browse' - OnClick = btnBrowseBackup1Click TabOrder = 7 + OnClick = btnBrowseBackup1Click end object Label207: TLabel AnchorSideLeft.Control = chkEnableBackup AnchorSideTop.Control = chkAskBackup AnchorSideTop.Side = asrBottom Left = 16 - Height = 17 + Height = 18 Top = 65 - Width = 547 + Width = 552 BorderSpacing.Top = 12 Caption = 'Check "Enable autobackup" and "Ask before" to prevent accidental closing of cqrlog' ParentColor = False @@ -8786,11 +8786,11 @@ object frmPreferences: TfrmPreferences end object tabExtViewers: TTabSheet Caption = 'External viewers' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object Label99: TLabel Left = 23 - Height = 17 + Height = 18 Top = 30 Width = 102 Caption = 'Text files(*.txt):' @@ -8798,23 +8798,23 @@ object frmPreferences: TfrmPreferences end object Label100: TLabel Left = 23 - Height = 17 + Height = 18 Top = 86 - Width = 108 + Width = 109 Caption = 'PDF files (*.pdf):' ParentColor = False end object Label101: TLabel Left = 23 - Height = 17 + Height = 18 Top = 142 - Width = 160 + Width = 161 Caption = 'Images (*.jpg;*.png*.gif)' ParentColor = False end object Label102: TLabel Left = 21 - Height = 17 + Height = 18 Top = 240 Width = 161 Caption = 'HTML files(*.html;*.htm)' @@ -8822,42 +8822,42 @@ object frmPreferences: TfrmPreferences end object edtTxtFiles: TEdit Left = 47 - Height = 34 + Height = 35 Top = 49 Width = 321 - OnExit = edtTxtFilesExit TabOrder = 0 + OnExit = edtTxtFilesExit end object edtPdfFiles: TEdit Left = 47 - Height = 34 + Height = 35 Top = 105 Width = 320 - OnExit = edtPdfFilesExit TabOrder = 1 + OnExit = edtPdfFilesExit end object edtImgFiles: TEdit Left = 47 - Height = 34 + Height = 35 Top = 166 Width = 320 - OnExit = edtImgFilesExit TabOrder = 2 + OnExit = edtImgFilesExit end object edtHtmlFiles: TEdit Left = 45 - Height = 34 + Height = 35 Top = 264 Width = 320 + TabOrder = 3 OnClick = edtHtmlFilesClick OnExit = edtHtmlFilesExit - TabOrder = 3 end object chkIntQSLViewer: TCheckBox Left = 47 Height = 23 Top = 200 - Width = 307 + Width = 308 Caption = 'Open QSL card images with internal viewer' TabOrder = 4 end @@ -8874,8 +8874,8 @@ object frmPreferences: TfrmPreferences end object tabCallbook: TTabSheet Caption = 'Callbook support' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox38: TGroupBox AnchorSideLeft.Control = tabCallbook AnchorSideTop.Control = tabCallbook @@ -8893,10 +8893,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = Label111 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox38 - Left = 93 + Left = 92 Height = 23 Top = 6 - Width = 121 + Width = 122 BorderSpacing.Left = 12 BorderSpacing.Top = 6 Caption = 'HamQTH.com ' @@ -8907,10 +8907,10 @@ object frmPreferences: TfrmPreferences object rbQRZ: TRadioButton AnchorSideLeft.Control = edtCbQRZUser AnchorSideTop.Control = rbHamQTH - Left = 225 + Left = 224 Height = 23 Top = 6 - Width = 86 + Width = 87 Caption = 'QRZ.com' TabOrder = 3 end @@ -8919,8 +8919,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = rbHamQTH AnchorSideTop.Side = asrBottom - Left = 93 - Height = 34 + Left = 92 + Height = 35 Top = 41 Width = 120 BorderSpacing.Left = 12 @@ -8932,9 +8932,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtCbHamQTHUser AnchorSideTop.Side = asrCenter Left = 6 - Height = 17 - Top = 50 - Width = 75 + Height = 18 + Top = 49 + Width = 74 BorderSpacing.Left = 6 Caption = 'User name:' ParentColor = False @@ -8944,9 +8944,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtCbHamQTHPass AnchorSideTop.Side = asrCenter Left = 6 - Height = 17 + Height = 18 Top = 90 - Width = 66 + Width = 68 Caption = 'Password:' ParentColor = False end @@ -8954,9 +8954,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCbHamQTHUser AnchorSideTop.Control = edtCbHamQTHUser AnchorSideTop.Side = asrBottom - Left = 93 - Height = 34 - Top = 81 + Left = 92 + Height = 35 + Top = 82 Width = 120 BorderSpacing.Top = 6 EchoMode = emPassword @@ -8966,10 +8966,10 @@ object frmPreferences: TfrmPreferences object rbQRZCQ: TRadioButton AnchorSideLeft.Control = edtCbQRZCQUser AnchorSideTop.Control = rbHamQTH - Left = 357 + Left = 356 Height = 23 Top = 6 - Width = 105 + Width = 107 Caption = 'QRZCQ.com' TabOrder = 6 end @@ -8977,8 +8977,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCbHamQTHUser AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtCbHamQTHUser - Left = 225 - Height = 34 + Left = 224 + Height = 35 Top = 41 Width = 120 BorderSpacing.Left = 12 @@ -8988,8 +8988,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCbQRZUser AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtCbQRZUser - Left = 357 - Height = 34 + Left = 356 + Height = 35 Top = 41 Width = 120 BorderSpacing.Left = 12 @@ -8999,9 +8999,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCbQRZUser AnchorSideTop.Control = edtCbHamQTHUser AnchorSideTop.Side = asrBottom - Left = 225 - Height = 34 - Top = 81 + Left = 224 + Height = 35 + Top = 82 Width = 120 BorderSpacing.Top = 6 EchoMode = emPassword @@ -9012,9 +9012,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCbQRZCQUser AnchorSideTop.Control = edtCbHamQTHUser AnchorSideTop.Side = asrBottom - Left = 357 - Height = 34 - Top = 81 + Left = 356 + Height = 35 + Top = 82 Width = 120 BorderSpacing.Top = 6 EchoMode = emPassword @@ -9025,16 +9025,16 @@ object frmPreferences: TfrmPreferences end object tabRBN: TTabSheet Caption = 'RBN support' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object chkRBNAutoConn: TCheckBox AnchorSideLeft.Control = lblRbnWindowOpen AnchorSideTop.Control = cmbCl10db AnchorSideTop.Side = asrCenter - Left = 404 + Left = 405 Height = 23 - Top = 219 - Width = 198 + Top = 227 + Width = 201 Caption = 'Autoconnect RBN Grayline' TabOrder = 0 end @@ -9042,9 +9042,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRBNServer AnchorSideTop.Control = edtRBNServer AnchorSideTop.Side = asrBottom - Left = 94 - Height = 34 - Top = 95 + Left = 95 + Height = 35 + Top = 99 Width = 101 CharCase = ecUppercase TabOrder = 1 @@ -9054,9 +9054,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtRBNLogin AnchorSideTop.Side = asrCenter Left = 24 - Height = 17 - Top = 104 - Width = 39 + Height = 18 + Top = 107 + Width = 40 Caption = 'Login:' ParentColor = False end @@ -9065,9 +9065,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtWatchFor AnchorSideTop.Side = asrCenter Left = 24 - Height = 17 - Top = 138 - Width = 67 + Height = 18 + Top = 142 + Width = 70 Caption = 'Watch for:' ParentColor = False end @@ -9075,9 +9075,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtRBNLogin AnchorSideTop.Control = edtRBNLogin AnchorSideTop.Side = asrBottom - Left = 94 - Height = 34 - Top = 129 + Left = 95 + Height = 35 + Top = 134 Width = 101 CharCase = ecUppercase TabOrder = 2 @@ -9087,10 +9087,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtRBNLogin AnchorSideTop.Side = asrCenter - Left = 201 - Height = 17 - Top = 104 - Width = 175 + Left = 202 + Height = 18 + Top = 107 + Width = 171 BorderSpacing.Left = 6 Caption = '(usually your own callsign)' ParentColor = False @@ -9100,10 +9100,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtWatchFor AnchorSideTop.Side = asrCenter - Left = 201 - Height = 17 - Top = 138 - Width = 367 + Left = 202 + Height = 18 + Top = 142 + Width = 362 BorderSpacing.Left = 6 Caption = '(callsign you are watching for, also can be your callsign)' ParentColor = False @@ -9112,9 +9112,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = tabRBN AnchorSideTop.Control = tabRBN Left = 24 - Height = 34 + Height = 36 Top = 12 - Width = 646 + Width = 637 BorderSpacing.Left = 24 BorderSpacing.Top = 12 Caption = 'CQRLOG can receive spots from RBN and show receivers as dots on Gray line map. It''s very useful '#10'especially when you are calling CQ and want to see where your signal can be received.' @@ -9125,8 +9125,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtWatchFor AnchorSideTop.Side = asrBottom Left = 24 - Height = 17 - Top = 187 + Height = 18 + Top = 193 Width = 92 BorderSpacing.Top = 24 Caption = 'Signal strench' @@ -9135,10 +9135,10 @@ object frmPreferences: TfrmPreferences object lblRbnColor: TLabel AnchorSideLeft.Control = lblRbnWatchForHint AnchorSideTop.Control = lblRbnSignal - Left = 201 - Height = 17 - Top = 187 - Width = 34 + Left = 202 + Height = 18 + Top = 193 + Width = 37 Caption = 'Color' ParentColor = False end @@ -9147,8 +9147,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbCl10db AnchorSideTop.Side = asrCenter Left = 24 - Height = 17 - Top = 222 + Height = 18 + Top = 229 Width = 60 Caption = '0 ... 10db' ParentColor = False @@ -9157,9 +9157,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblRbnColor AnchorSideTop.Control = lblRbnColor AnchorSideTop.Side = asrBottom - Left = 201 - Height = 29 - Top = 216 + Left = 202 + Height = 30 + Top = 223 Width = 137 DefaultColorColor = clWhite Selected = clWhite @@ -9174,8 +9174,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbCl20db AnchorSideTop.Side = asrCenter Left = 24 - Height = 17 - Top = 251 + Height = 18 + Top = 259 Width = 68 Caption = '11 ... 20db' ParentColor = False @@ -9184,9 +9184,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbCl10db AnchorSideTop.Control = cmbCl10db AnchorSideTop.Side = asrBottom - Left = 201 - Height = 29 - Top = 245 + Left = 202 + Height = 30 + Top = 253 Width = 137 DefaultColorColor = clWhite Selected = clPurple @@ -9200,8 +9200,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbCl30db AnchorSideTop.Side = asrCenter Left = 24 - Height = 17 - Top = 280 + Height = 18 + Top = 289 Width = 68 Caption = '21 ... 30db' ParentColor = False @@ -9210,9 +9210,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbCl20db AnchorSideTop.Control = cmbCl20db AnchorSideTop.Side = asrBottom - Left = 201 - Height = 29 - Top = 274 + Left = 202 + Height = 30 + Top = 283 Width = 137 DefaultColorColor = clWhite Selected = clMaroon @@ -9226,9 +9226,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbClOver30db AnchorSideTop.Side = asrCenter Left = 24 - Height = 17 - Top = 309 - Width = 66 + Height = 18 + Top = 319 + Width = 67 Caption = 'over 30dB' ParentColor = False end @@ -9236,9 +9236,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = cmbCl30db AnchorSideTop.Control = cmbCl30db AnchorSideTop.Side = asrBottom - Left = 201 - Height = 29 - Top = 303 + Left = 202 + Height = 30 + Top = 313 Width = 137 DefaultColorColor = clWhite Selected = clRed @@ -9251,9 +9251,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblRbnWindowOpen AnchorSideTop.Control = cmbClOver30db AnchorSideTop.Side = asrCenter - Left = 404 - Height = 34 - Top = 300 + Left = 405 + Height = 35 + Top = 311 Width = 40 TabOrder = 7 Text = '60' @@ -9263,10 +9263,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbClOver30db AnchorSideTop.Side = asrCenter - Left = 445 - Height = 17 - Top = 309 - Width = 186 + Left = 446 + Height = 18 + Top = 319 + Width = 187 BorderSpacing.Left = 1 Caption = 'seconds view time for dot(s)' ParentColor = False @@ -9276,9 +9276,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = lblRbnHeader AnchorSideTop.Side = asrBottom Left = 24 - Height = 17 - Top = 70 - Width = 46 + Height = 18 + Top = 72 + Width = 47 BorderSpacing.Top = 24 Caption = 'Server:' ParentColor = False @@ -9288,9 +9288,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lnlRbnServer AnchorSideTop.Side = asrCenter - Left = 94 - Height = 34 - Top = 61 + Left = 95 + Height = 35 + Top = 64 Width = 304 BorderSpacing.Left = 24 TabOrder = 8 @@ -9301,10 +9301,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lnlRbnServer AnchorSideTop.Side = asrCenter - Left = 404 - Height = 17 - Top = 70 - Width = 71 + Left = 405 + Height = 18 + Top = 72 + Width = 75 BorderSpacing.Left = 6 Caption = 'server:port' ParentColor = False @@ -9312,10 +9312,10 @@ object frmPreferences: TfrmPreferences object lblRbnWindowOpen: TLabel AnchorSideLeft.Control = lblRbnAdrFormat AnchorSideTop.Control = lblRbnSignal - Left = 404 - Height = 17 - Top = 187 - Width = 132 + Left = 405 + Height = 18 + Top = 193 + Width = 138 Caption = 'After window opens:' ParentColor = False end @@ -9323,29 +9323,29 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblRbnWindowOpen AnchorSideTop.Control = cmbCl20db AnchorSideTop.Side = asrCenter - Left = 404 + Left = 405 Height = 23 - Top = 248 - Width = 193 + Top = 257 + Width = 201 Caption = 'Autoconnect RBN Monitor' TabOrder = 9 end object chkRBNLink: TCheckBox AnchorSideLeft.Control = lblRbnWindowOpen AnchorSideTop.Control = cmbCl30db - Left = 404 + Left = 405 Height = 23 - Top = 274 - Width = 216 + Top = 283 + Width = 217 Caption = 'Link Grayline to RBN monitor' - OnChange = chkRBNLinkChange TabOrder = 10 + OnChange = chkRBNLinkChange end end object tabOnlineLog: TTabSheet Caption = 'Online log upload' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object GroupBox44: TGroupBox AnchorSideLeft.Control = tabOnlineLog AnchorSideTop.Control = tabOnlineLog @@ -9355,7 +9355,7 @@ object frmPreferences: TfrmPreferences Width = 650 BorderSpacing.Left = 12 Caption = ' HamQTH ' - ClientHeight = 135 + ClientHeight = 153 ClientWidth = 648 TabOrder = 0 object chkHaUpEnabled: TCheckBox @@ -9364,20 +9364,20 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 0 - Width = 199 + Width = 202 BorderSpacing.Left = 6 Caption = 'Enable upload to HamQTH' - OnChange = chkHaUpEnabledChange TabOrder = 0 + OnChange = chkHaUpEnabledChange end object Label179: TLabel AnchorSideLeft.Control = chkHaUpEnabled AnchorSideTop.Control = edtHaUserName AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 68 - Width = 75 + Height = 18 + Top = 66 + Width = 74 BorderSpacing.Top = 6 Caption = 'User name:' ParentColor = False @@ -9387,9 +9387,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtHamQTHurl AnchorSideTop.Side = asrBottom - Left = 84 - Height = 36 - Top = 59 + Left = 83 + Height = 35 + Top = 58 Width = 102 BorderSpacing.Left = 3 TabOrder = 3 @@ -9399,9 +9399,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtHaUserName AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label179 - Left = 198 - Height = 19 - Top = 68 + Left = 197 + Height = 18 + Top = 66 Width = 68 BorderSpacing.Left = 12 Caption = 'Password:' @@ -9412,9 +9412,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = lbl AnchorSideTop.Side = asrCenter - Left = 269 - Height = 36 - Top = 59 + Left = 268 + Height = 35 + Top = 58 Width = 104 BorderSpacing.Left = 3 EchoMode = emPassword @@ -9426,10 +9426,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkHaUpEnabled AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox44 - Left = 208 + Left = 211 Height = 23 Top = 0 - Width = 222 + Width = 229 BorderSpacing.Left = 3 Caption = 'Upload QSO data immediately' TabOrder = 1 @@ -9439,9 +9439,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbHaColor AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 104 - Width = 52 + Height = 18 + Top = 102 + Width = 51 BorderSpacing.Top = 9 Caption = 'Use this' ParentColor = False @@ -9451,10 +9451,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbHaColor AnchorSideTop.Side = asrCenter - Left = 234 - Height = 19 - Top = 104 - Width = 324 + Left = 233 + Height = 18 + Top = 102 + Width = 337 BorderSpacing.Left = 6 Caption = 'color to show information in status upload window' ParentColor = False @@ -9464,9 +9464,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtHaUserName AnchorSideTop.Side = asrBottom - Left = 64 - Height = 31 - Top = 98 + Left = 63 + Height = 30 + Top = 96 Width = 164 DefaultColorColor = clBlue NoneColorColor = clMoneyGreen @@ -9482,7 +9482,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkHaUpEnabled AnchorSideTop.Side = asrBottom Left = 6 - Height = 36 + Height = 35 Top = 23 Width = 600 TabOrder = 2 @@ -9499,7 +9499,7 @@ object frmPreferences: TfrmPreferences Width = 650 BorderSpacing.Top = 3 Caption = ' ClubLog ' - ClientHeight = 174 + ClientHeight = 192 ClientWidth = 648 TabOrder = 1 object chkClUpEnabled: TCheckBox @@ -9508,20 +9508,20 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 0 - Width = 189 + Width = 196 BorderSpacing.Left = 6 Caption = 'Enable upload to ClubLog' - OnChange = chkClUpEnabledChange TabOrder = 0 + OnChange = chkClUpEnabledChange end object Label180: TLabel AnchorSideLeft.Control = chkClUpEnabled AnchorSideTop.Control = edtClUserName AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 107 - Width = 56 + Height = 18 + Top = 104 + Width = 55 Caption = 'Callsign:' ParentColor = False end @@ -9530,9 +9530,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtClubLogUrlDel AnchorSideTop.Side = asrBottom - Left = 62 - Height = 36 - Top = 98 + Left = 61 + Height = 35 + Top = 96 Width = 102 BorderSpacing.Top = 3 TabOrder = 4 @@ -9543,9 +9543,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label180 AnchorSideTop.Side = asrCenter - Left = 170 - Height = 19 - Top = 107 + Left = 169 + Height = 18 + Top = 104 Width = 68 BorderSpacing.Left = 6 Caption = 'Password:' @@ -9556,9 +9556,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtClUserName AnchorSideTop.Side = asrCenter - Left = 238 - Height = 36 - Top = 98 + Left = 237 + Height = 35 + Top = 96 Width = 104 EchoMode = emPassword PasswordChar = '*' @@ -9569,10 +9569,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkClUpEnabled AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox45 - Left = 198 + Left = 205 Height = 23 Top = 0 - Width = 222 + Width = 229 BorderSpacing.Left = 3 Caption = 'Upload QSO data immediately' TabOrder = 1 @@ -9581,10 +9581,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtClPasswd AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label180 - Left = 348 - Height = 19 - Top = 107 - Width = 42 + Left = 347 + Height = 18 + Top = 104 + Width = 41 BorderSpacing.Left = 6 Caption = 'Email:' ParentColor = False @@ -9594,9 +9594,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label181 AnchorSideTop.Side = asrCenter - Left = 390 - Height = 36 - Top = 98 + Left = 388 + Height = 35 + Top = 96 Width = 184 TabOrder = 6 Text = 'edtClEmail' @@ -9606,9 +9606,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbClColor AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 143 - Width = 52 + Height = 18 + Top = 140 + Width = 51 Caption = 'Use this' ParentColor = False end @@ -9617,10 +9617,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbClColor AnchorSideTop.Side = asrCenter - Left = 234 - Height = 19 - Top = 143 - Width = 324 + Left = 233 + Height = 18 + Top = 140 + Width = 337 BorderSpacing.Left = 6 Caption = 'color to show information in status upload window' ParentColor = False @@ -9630,9 +9630,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtClUserName AnchorSideTop.Side = asrBottom - Left = 64 - Height = 31 - Top = 137 + Left = 63 + Height = 30 + Top = 134 Width = 164 DefaultColorColor = clRed NoneColorColor = clMoneyGreen @@ -9648,7 +9648,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkClUpEnabled AnchorSideTop.Side = asrBottom Left = 6 - Height = 36 + Height = 35 Top = 23 Width = 600 TabOrder = 2 @@ -9659,8 +9659,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = edtClubLogUrl AnchorSideTop.Side = asrBottom Left = 6 - Height = 36 - Top = 59 + Height = 35 + Top = 58 Width = 600 TabOrder = 3 Text = 'https://clublog.org/delete.php' @@ -9676,7 +9676,7 @@ object frmPreferences: TfrmPreferences Width = 650 BorderSpacing.Top = 3 Caption = ' HRDLog.net ' - ClientHeight = 137 + ClientHeight = 155 ClientWidth = 648 TabOrder = 2 object chkHrUpEnabled: TCheckBox @@ -9685,20 +9685,20 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 0 - Width = 215 + Width = 221 BorderSpacing.Left = 6 Caption = 'Enable upload to HRDLog.net' - OnChange = chkHrUpEnabledChange TabOrder = 0 + OnChange = chkHrUpEnabledChange end object Label182: TLabel AnchorSideLeft.Control = chkHrUpEnabled AnchorSideTop.Control = edtHrUserName AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 71 - Width = 56 + Height = 18 + Top = 69 + Width = 55 BorderSpacing.Top = 3 Caption = 'Callsign:' ParentColor = False @@ -9708,9 +9708,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtHrdUrl AnchorSideTop.Side = asrBottom - Left = 62 - Height = 36 - Top = 62 + Left = 61 + Height = 35 + Top = 61 Width = 102 BorderSpacing.Top = 3 TabOrder = 3 @@ -9720,10 +9720,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkHrUpEnabled AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox46 - Left = 224 + Left = 230 Height = 23 Top = 0 - Width = 222 + Width = 229 BorderSpacing.Left = 3 Caption = 'Upload QSO data immediately' TabOrder = 1 @@ -9732,10 +9732,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtHrUserName AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label182 - Left = 170 - Height = 19 - Top = 71 - Width = 37 + Left = 169 + Height = 18 + Top = 69 + Width = 39 BorderSpacing.Left = 6 Caption = 'Code:' ParentColor = False @@ -9745,9 +9745,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtHrUserName AnchorSideTop.Side = asrCenter - Left = 207 - Height = 36 - Top = 62 + Left = 208 + Height = 35 + Top = 61 Width = 184 TabOrder = 4 Text = 'edtHrCode' @@ -9757,9 +9757,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbHrColor AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 107 - Width = 52 + Height = 18 + Top = 105 + Width = 51 Caption = 'Use this' ParentColor = False end @@ -9768,9 +9768,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edtHrUserName AnchorSideTop.Side = asrBottom - Left = 64 - Height = 31 - Top = 101 + Left = 63 + Height = 30 + Top = 99 Width = 164 DefaultColorColor = clPurple NoneColorColor = clMoneyGreen @@ -9786,10 +9786,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbHrColor AnchorSideTop.Side = asrCenter - Left = 234 - Height = 19 - Top = 107 - Width = 324 + Left = 233 + Height = 18 + Top = 105 + Width = 337 BorderSpacing.Left = 6 Caption = 'color to show information in status upload window' ParentColor = False @@ -9799,7 +9799,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkHrUpEnabled AnchorSideTop.Side = asrBottom Left = 6 - Height = 36 + Height = 35 Top = 23 Width = 600 TabOrder = 2 @@ -9813,7 +9813,7 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 662 - Width = 434 + Width = 447 BorderSpacing.Top = 6 Caption = 'Close the "Status of log upload" window after successful upload' TabOrder = 3 @@ -9825,11 +9825,11 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 688 - Width = 401 + Width = 410 BorderSpacing.Top = 3 Caption = 'Ignore changes caused by LoTW/eQSL upload or download' - OnChange = chkIgnoreLoTWChange TabOrder = 4 + OnChange = chkIgnoreLoTWChange end object chkIgnoreQSL: TCheckBox AnchorSideLeft.Control = chkIgnoreLoTW @@ -9838,10 +9838,10 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 711 - Width = 313 + Width = 315 Caption = 'Ignore changes caused by QSL sent/received' - OnChange = chkIgnoreQSLChange TabOrder = 5 + OnChange = chkIgnoreQSLChange end object chkIgnoreEdit: TCheckBox AnchorSideLeft.Control = chkIgnoreQSL @@ -9850,10 +9850,10 @@ object frmPreferences: TfrmPreferences Left = 12 Height = 23 Top = 734 - Width = 253 + Width = 256 Caption = 'Ignore changes caused by QSO edit' - OnChange = chkIgnoreEditChange TabOrder = 6 + OnChange = chkIgnoreEditChange end object GroupBox47: TGroupBox AnchorSideLeft.Control = GroupBox46 @@ -9865,7 +9865,7 @@ object frmPreferences: TfrmPreferences Width = 650 BorderSpacing.Top = 3 Caption = 'UDP Log Messages' - ClientHeight = 121 + ClientHeight = 139 ClientWidth = 648 TabOrder = 7 object chkUdUpEnabled: TCheckBox @@ -9874,20 +9874,20 @@ object frmPreferences: TfrmPreferences Left = 6 Height = 23 Top = 0 - Width = 252 + Width = 250 BorderSpacing.Left = 6 Caption = 'Enable sending UDP Log Messages' - OnChange = chkUdUpEnabledChange TabOrder = 0 + OnChange = chkUdUpEnabledChange end object chkUdUpOnline: TCheckBox AnchorSideLeft.Control = chkUdUpEnabled AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox47 - Left = 261 + Left = 259 Height = 23 Top = 0 - Width = 222 + Width = 229 BorderSpacing.Left = 3 Caption = 'Upload QSO data immediately' TabOrder = 1 @@ -9897,9 +9897,9 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = cmbUdColor AnchorSideTop.Side = asrCenter Left = 6 - Height = 19 - Top = 91 - Width = 52 + Height = 18 + Top = 90 + Width = 51 Caption = 'Use this' ParentColor = False end @@ -9908,9 +9908,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = chkUdIncExch AnchorSideTop.Side = asrBottom - Left = 64 - Height = 31 - Top = 85 + Left = 63 + Height = 30 + Top = 84 Width = 164 DefaultColorColor = clGreen NoneColorColor = clMoneyGreen @@ -9926,10 +9926,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cmbUdColor AnchorSideTop.Side = asrCenter - Left = 234 - Height = 19 - Top = 91 - Width = 324 + Left = 233 + Height = 18 + Top = 90 + Width = 337 BorderSpacing.Left = 6 Caption = 'color to show information in status upload window' ParentColor = False @@ -9939,7 +9939,7 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Control = chkUdUpEnabled AnchorSideTop.Side = asrBottom Left = 6 - Height = 36 + Height = 35 Top = 23 Width = 600 TabOrder = 2 @@ -9951,8 +9951,8 @@ object frmPreferences: TfrmPreferences AnchorSideTop.Side = asrBottom Left = 9 Height = 23 - Top = 59 - Width = 189 + Top = 58 + Width = 192 BorderSpacing.Left = 3 Caption = 'Include contest exchange' Checked = True @@ -9963,15 +9963,15 @@ object frmPreferences: TfrmPreferences end object tabCondx: TTabSheet Caption = 'Propagation' - ClientHeight = 722 - ClientWidth = 836 + ClientHeight = 757 + ClientWidth = 837 object rbCondxAsImage: TRadioButton AnchorSideLeft.Control = tabCondx AnchorSideTop.Control = tabCondx Left = 24 Height = 23 Top = 24 - Width = 207 + Width = 210 BorderSpacing.Left = 24 BorderSpacing.Top = 24 Caption = 'Show propagation as image' @@ -9983,9 +9983,9 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = lblDnloadCondxImg AnchorSideTop.Control = lblDnloadCondxImg AnchorSideTop.Side = asrBottom - Left = 61 - Height = 34 - Top = 70 + Left = 60 + Height = 35 + Top = 71 Width = 528 TabOrder = 1 Text = 'edtCondxImageUrl' @@ -9995,10 +9995,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = rbCondxAsImage AnchorSideTop.Side = asrBottom - Left = 61 - Height = 17 + Left = 60 + Height = 18 Top = 53 - Width = 133 + Width = 139 BorderSpacing.Top = 6 Caption = 'Downoad data from:' ParentColor = False @@ -10008,7 +10008,7 @@ object frmPreferences: TfrmPreferences Left = 24 Height = 23 Top = 152 - Width = 190 + Width = 193 Caption = 'Show as text information' TabOrder = 2 end @@ -10016,10 +10016,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCondxTextUrl AnchorSideTop.Control = edtCondxTextUrl AnchorSideTop.Side = asrBottom - Left = 61 + Left = 60 Height = 23 - Top = 209 - Width = 195 + Top = 210 + Width = 194 Caption = 'Show A, K, SSN, FOF2 etc.' TabOrder = 3 end @@ -10027,10 +10027,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShowCondxValues AnchorSideTop.Control = chkShowCondxValues AnchorSideTop.Side = asrBottom - Left = 61 + Left = 60 Height = 23 - Top = 232 - Width = 288 + Top = 233 + Width = 295 Caption = 'Show calculated prediction for HF bands' TabOrder = 4 end @@ -10038,10 +10038,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = chkShowCondxValues AnchorSideTop.Control = chkCondxCalcHF AnchorSideTop.Side = asrBottom - Left = 61 + Left = 60 Height = 23 - Top = 255 - Width = 297 + Top = 256 + Width = 304 Caption = 'Show calculated prediction for VHF bands' TabOrder = 5 end @@ -10049,10 +10049,10 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCondxImageUrl AnchorSideTop.Control = edtCondxImageUrl AnchorSideTop.Side = asrBottom - Left = 61 - Height = 17 - Top = 104 - Width = 393 + Left = 60 + Height = 18 + Top = 106 + Width = 406 Caption = 'Look at http://www.hamqsl.com/solar.html for more variants' ParentColor = False end @@ -10060,8 +10060,8 @@ object frmPreferences: TfrmPreferences AnchorSideLeft.Control = edtCondxImageUrl AnchorSideTop.Control = rbCondxAsText AnchorSideTop.Side = asrBottom - Left = 61 - Height = 34 + Left = 60 + Height = 35 Top = 175 Width = 528 TabOrder = 6 @@ -10071,12 +10071,12 @@ object frmPreferences: TfrmPreferences end object Panel1: TPanel AnchorSideBottom.Side = asrBottom - Left = 1006 - Height = 753 + Left = 1007 + Height = 789 Top = 0 Width = 88 Align = alRight - ClientHeight = 753 + ClientHeight = 789 ClientWidth = 88 TabOrder = 1 object btnOK: TButton @@ -10090,8 +10090,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 40 BorderSpacing.InnerBorder = 4 Caption = 'OK' - OnClick = btnOKClick TabOrder = 0 + OnClick = btnOKClick end object btnCancel: TButton AnchorSideLeft.Control = Panel1 @@ -10120,8 +10120,8 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 70 BorderSpacing.InnerBorder = 4 Caption = 'Help(tab)' - OnClick = btnHelpClick TabOrder = 2 + OnClick = btnHelpClick end object btnHelp1: TButton AnchorSideLeft.Control = Panel1 @@ -10135,13 +10135,13 @@ object frmPreferences: TfrmPreferences BorderSpacing.Top = 12 BorderSpacing.InnerBorder = 4 Caption = 'Help(idx)' - OnClick = btnHelp1Click TabOrder = 3 + OnClick = btnHelp1Click end end object lbPreferences: TListBox Left = 0 - Height = 753 + Height = 789 Top = 0 Width = 160 Align = alLeft @@ -10174,10 +10174,10 @@ object frmPreferences: TfrmPreferences 'Online log upload' 'Propagation' ) - ItemHeight = 23 - OnClick = lbPreferencesClick + ItemHeight = 24 ScrollWidth = 158 TabOrder = 2 + OnClick = lbPreferencesClick end object dlgFont: TFontDialog MinFontSize = 0 diff --git a/src/fPreferences.pas b/src/fPreferences.pas index 5019ff0..44646f4 100644 --- a/src/fPreferences.pas +++ b/src/fPreferences.pas @@ -1693,6 +1693,7 @@ begin dmData.SaveConfigFile; frmDXCluster.ReloadSettings; ModalResult := mrOk; + frmGrayline.LoadSettings(); dmUtils.LoadBandLabelSettins; dmUtils.LoadBandsSettings; dmData.LoadClubsSettings;