mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 18:37:17 +00:00
Merge pull request #121 from OH1KH/filter1
Added: Checbox NOT that reverses filter. Calendar objects to date inp…
This commit is contained in:
Petr Hlozek
GitHub
commit
ca19cafec0
@ -35,21 +35,26 @@ CQRLOG offers a wide variety of filtering options allowing you to select and exp
|
||||
(for awards etc.) in ADIF or HTML formats.<br><br>
|
||||
<img src="img/h49.png"><br><br>
|
||||
Most of the fields have an option to select records based on an exact match or on a substring
|
||||
contained in the selected field, ie. if you want to select all WA3 stations, put WA3 into
|
||||
contained in the selected field, i.e. if you want to select all WA3 stations, put WA3 into
|
||||
the <b>Callsign</b> box and click the <b>Include</b> radio button. Note, please, that if you select
|
||||
contacts with members of a particular club or from your own database, you should choose
|
||||
the time span (<b>date from-to</b>) to make the <b>Membership</b> option active.
|
||||
<br>Selecting <b>Band</b> from bandselector will preset <b>Freq from:</b> and <b>Freq to:</b> as band start and end frequencies (Defined in Preferences/Bands/Frequencies)
|
||||
<br>Selecting <b>Band</b> from bandselector will preset <b>Freq from:</b> and <b>Freq to:</b> as band start and end frequencies (Defined in Preferences/Bands/Frequencies).
|
||||
<br> Once filter values are selected you can make them reversed by checking chekbox <strong>NOT</strong>. I.E. making filter like <strong>mode FT8</strong>
|
||||
will show all FT8 qsos, but if you check <strong>NOT</strong> it shows all other mode qsos, but not FT8 ones.
|
||||
<br><br>
|
||||
The sorting order can be selected from the following options:<br><br>
|
||||
Pressing calendar icon is easy way to set date. Double click on selected date closes calendar and sets the date. Pressing ESC closes calendar, but does not set date. Date can also be typed in manually.
|
||||
<br>
|
||||
<img src="img/h101b.png"><br><br>
|
||||
The sorting order can be selected from the following options:<<br>
|
||||
<img src="img/h50.png"><br><br>
|
||||
Selected records can be grouped by the following criteria:<br><br>
|
||||
Selected records can be grouped by the following criteria:<br>
|
||||
<img src="img/h51.png"><br><br>
|
||||
Once your filter is set up, go to the upper menu (item 'File' in QSO list) and choose
|
||||
'Export'.<br><br>
|
||||
<img src="img/h45.png"><br><br>
|
||||
'Export'.<br>
|
||||
<img src="img/h45.png"<br><br>
|
||||
Choose 'ADIF' or 'HTML'. The usual File Save dialog appears (depending on the desktop
|
||||
used). Choose a location and file name.<br><br>
|
||||
used). Choose a location and file name.<br>
|
||||
<p align=center><img src=img/line.png></p>
|
||||
<table style="text-align: left; width: 100%;" border="0" cellpadding="2" cellspacing="2">
|
||||
<tbody>
|
||||
|
||||
BIN
help/img/h101b.png
Normal file
BIN
help/img/h101b.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 20 KiB |
421
src/fFilter.lfm
421
src/fFilter.lfm
@ -121,15 +121,15 @@ object frmFilter: TfrmFilter
|
||||
OnKeyUp = FormKeyUp
|
||||
OnShow = FormShow
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '1.8.0.6'
|
||||
LCLVersion = '1.8.2.0'
|
||||
object lblProf: TLabel
|
||||
AnchorSideTop.Control = cmbProfile
|
||||
AnchorSideRight.Control = lblSortBy
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 220
|
||||
Left = 225
|
||||
Height = 17
|
||||
Top = 570
|
||||
Width = 50
|
||||
Top = 580
|
||||
Width = 45
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Profile:'
|
||||
ParentColor = False
|
||||
@ -138,10 +138,10 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = cmbMembers
|
||||
AnchorSideRight.Control = lblSortBy
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 180
|
||||
Left = 185
|
||||
Height = 17
|
||||
Top = 605
|
||||
Width = 90
|
||||
Top = 620
|
||||
Width = 85
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Membership:'
|
||||
ParentColor = False
|
||||
@ -150,10 +150,10 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = cmbGroupBy
|
||||
AnchorSideRight.Control = lblSortBy
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 204
|
||||
Left = 208
|
||||
Height = 17
|
||||
Top = 535
|
||||
Width = 66
|
||||
Top = 540
|
||||
Width = 62
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Group by:'
|
||||
ParentColor = False
|
||||
@ -162,10 +162,10 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = cmbSort
|
||||
AnchorSideRight.Control = cmbSort
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 218
|
||||
Left = 221
|
||||
Height = 17
|
||||
Top = 500
|
||||
Width = 52
|
||||
Width = 49
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 206
|
||||
Caption = 'Sort by:'
|
||||
@ -181,14 +181,14 @@ object frmFilter: TfrmFilter
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Callsign'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 0
|
||||
object edtCallSign: TEdit
|
||||
AnchorSideLeft.Control = gbCallsign
|
||||
AnchorSideTop.Control = gbCallsign
|
||||
Left = 8
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 130
|
||||
BorderSpacing.Left = 8
|
||||
@ -201,9 +201,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = edtCallSign
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -215,9 +215,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyCall
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 2
|
||||
end
|
||||
@ -261,14 +261,14 @@ object frmFilter: TfrmFilter
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 10
|
||||
Caption = ' DXCC '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 3
|
||||
object edtDXCC: TEdit
|
||||
AnchorSideLeft.Control = gbDxcc
|
||||
AnchorSideTop.Control = gbDxcc
|
||||
Left = 8
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 13
|
||||
Width = 95
|
||||
BorderSpacing.Left = 8
|
||||
@ -282,7 +282,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 41
|
||||
Top = 48
|
||||
Width = 75
|
||||
BorderSpacing.Top = 1
|
||||
BorderSpacing.InnerBorder = 4
|
||||
@ -301,16 +301,16 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' Freq X.x MHz'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 4
|
||||
object Label1: TLabel
|
||||
AnchorSideTop.Control = edtFreqFrom
|
||||
AnchorSideRight.Control = edtFreqFrom
|
||||
Left = 5
|
||||
Left = 10
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 38
|
||||
Width = 35
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Left = 5
|
||||
BorderSpacing.Right = 6
|
||||
@ -320,10 +320,10 @@ object frmFilter: TfrmFilter
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Label1
|
||||
AnchorSideTop.Control = edtFreqTo
|
||||
Left = 5
|
||||
Left = 10
|
||||
Height = 17
|
||||
Top = 34
|
||||
Width = 19
|
||||
Top = 41
|
||||
Width = 17
|
||||
Caption = 'to:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -331,8 +331,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = gbFreq
|
||||
AnchorSideRight.Control = gbFreq
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 49
|
||||
Height = 27
|
||||
Left = 51
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 95
|
||||
Anchors = [akTop, akRight]
|
||||
@ -344,9 +344,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = edtFreqFrom
|
||||
AnchorSideTop.Control = edtFreqFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 49
|
||||
Height = 27
|
||||
Top = 34
|
||||
Left = 51
|
||||
Height = 34
|
||||
Top = 41
|
||||
Width = 95
|
||||
BorderSpacing.Top = 1
|
||||
TabOrder = 1
|
||||
@ -362,8 +362,8 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' Mode '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 5
|
||||
object cmbMode: TComboBox
|
||||
AnchorSideLeft.Control = gbMode
|
||||
@ -389,56 +389,79 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' Date '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 6
|
||||
object Label3: TLabel
|
||||
AnchorSideTop.Control = edtDateFrom
|
||||
AnchorSideRight.Control = edtDateFrom
|
||||
Left = 5
|
||||
AnchorSideLeft.Control = gbDate
|
||||
AnchorSideTop.Control = gbDate
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 38
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 39
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'from:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = edtDateTo
|
||||
Left = 5
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 34
|
||||
Width = 19
|
||||
Top = 48
|
||||
Width = 17
|
||||
BorderSpacing.Top = 25
|
||||
Caption = 'to:'
|
||||
ParentColor = False
|
||||
end
|
||||
object edtDateFrom: TEdit
|
||||
AnchorSideTop.Control = gbDate
|
||||
object edtDateFrom: TDateEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideRight.Control = gbDate
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 49
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 95
|
||||
Left = 32
|
||||
Height = 34
|
||||
Top = 19
|
||||
Width = 114
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
DateOrder = doYMd
|
||||
DateFormat = 'YMD'
|
||||
ButtonWidth = 23
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 13
|
||||
BorderSpacing.Right = 6
|
||||
NumGlyphs = 1
|
||||
MaxLength = 10
|
||||
TabOrder = 0
|
||||
Text = ' . . '
|
||||
end
|
||||
object edtDateTo: TDateEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edtDateFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = gbDate
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 32
|
||||
Height = 34
|
||||
Top = 59
|
||||
Width = 114
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
DefaultToday = True
|
||||
DateOrder = doYMd
|
||||
DateFormat = 'YMD'
|
||||
ButtonWidth = 23
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
OnExit = edtDateFromExit
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtDateTo: TEdit
|
||||
AnchorSideLeft.Control = edtDateFrom
|
||||
AnchorSideTop.Control = edtDateFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 49
|
||||
Height = 27
|
||||
Top = 34
|
||||
Width = 95
|
||||
BorderSpacing.Top = 1
|
||||
OnExit = edtDateToExit
|
||||
NumGlyphs = 1
|
||||
MaxLength = 10
|
||||
TabOrder = 1
|
||||
Text = ' . . '
|
||||
end
|
||||
end
|
||||
object gbLoc: TGroupBox
|
||||
@ -452,14 +475,14 @@ object frmFilter: TfrmFilter
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 10
|
||||
Caption = ' Locator '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 7
|
||||
object edtLocator: TEdit
|
||||
AnchorSideLeft.Control = gbLoc
|
||||
AnchorSideTop.Control = gbLoc
|
||||
Left = 8
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 95
|
||||
BorderSpacing.Left = 8
|
||||
@ -472,9 +495,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyLoc
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -483,9 +506,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = edtLocator
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -503,17 +526,17 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'QTH'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 8
|
||||
object rbExactlyQth: TRadioButton
|
||||
AnchorSideLeft.Control = edtQTH
|
||||
AnchorSideTop.Control = edtQTH
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -525,9 +548,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyQth
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -535,7 +558,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = gbQth
|
||||
AnchorSideTop.Control = gbQth
|
||||
Left = 6
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 142
|
||||
BorderSpacing.Left = 6
|
||||
@ -553,8 +576,8 @@ object frmFilter: TfrmFilter
|
||||
Width = 474
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'QSL'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 470
|
||||
ClientHeight = 96
|
||||
ClientWidth = 472
|
||||
TabOrder = 9
|
||||
object lblVia: TLabel
|
||||
AnchorSideLeft.Control = edtQSLVia
|
||||
@ -563,8 +586,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 40
|
||||
Width = 24
|
||||
Top = 47
|
||||
Width = 22
|
||||
BorderSpacing.Left = 1
|
||||
Caption = 'VIA'
|
||||
ParentColor = False
|
||||
@ -574,7 +597,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = cmbQSL_R
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 153
|
||||
Left = 155
|
||||
Height = 17
|
||||
Top = 61
|
||||
Width = 9
|
||||
@ -588,10 +611,10 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideRight.Control = cmbLoTW_qsls
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 357
|
||||
Left = 360
|
||||
Height = 17
|
||||
Top = 45
|
||||
Width = 39
|
||||
Width = 36
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 70
|
||||
Caption = 'LoTW'
|
||||
@ -601,7 +624,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = gbQsl
|
||||
AnchorSideTop.Control = gbQsl
|
||||
Left = 8
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 13
|
||||
Width = 120
|
||||
BorderSpacing.Left = 8
|
||||
@ -721,10 +744,10 @@ object frmFilter: TfrmFilter
|
||||
object lblEqsl: TLabel
|
||||
AnchorSideRight.Control = cmbeQSL_qsls
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 244
|
||||
Left = 247
|
||||
Height = 17
|
||||
Top = 45
|
||||
Width = 36
|
||||
Width = 33
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 70
|
||||
Caption = 'eQSL'
|
||||
@ -734,7 +757,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cmbQSL_S
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 154
|
||||
Left = 156
|
||||
Height = 17
|
||||
Top = 14
|
||||
Width = 8
|
||||
@ -820,14 +843,14 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' Continent '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 10
|
||||
object edtCont: TEdit
|
||||
AnchorSideLeft.Control = gbContinent
|
||||
AnchorSideTop.Control = gbContinent
|
||||
Left = 6
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 95
|
||||
BorderSpacing.Left = 6
|
||||
@ -845,14 +868,14 @@ object frmFilter: TfrmFilter
|
||||
Width = 314
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' IOTA '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 310
|
||||
ClientHeight = 96
|
||||
ClientWidth = 312
|
||||
TabOrder = 11
|
||||
object edtIOTA: TEdit
|
||||
AnchorSideLeft.Control = gbIota
|
||||
AnchorSideTop.Control = gbIota
|
||||
Left = 6
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 142
|
||||
BorderSpacing.Left = 6
|
||||
@ -865,9 +888,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyIOTA
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -876,9 +899,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = edtIOTA
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -890,10 +913,10 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = rbExactlyIOTA
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 111
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 163
|
||||
Left = 110
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 154
|
||||
BorderSpacing.Left = 30
|
||||
Caption = 'Only QSO with IOTA'
|
||||
TabOrder = 3
|
||||
@ -909,17 +932,17 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Remarks'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 12
|
||||
object rbExactlyRem: TRadioButton
|
||||
AnchorSideLeft.Control = edtRemarks
|
||||
AnchorSideTop.Control = edtRemarks
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 40
|
||||
Width = 75
|
||||
Left = 5
|
||||
Height = 23
|
||||
Top = 47
|
||||
Width = 74
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
TabOrder = 0
|
||||
@ -929,10 +952,10 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = edtRemarks
|
||||
AnchorSideTop.Control = rbExactlyRem
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 64
|
||||
Width = 76
|
||||
Left = 5
|
||||
Height = 23
|
||||
Top = 70
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -940,8 +963,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = gbRemarks
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = gbRemarks
|
||||
Left = 4
|
||||
Height = 27
|
||||
Left = 5
|
||||
Height = 34
|
||||
Top = 13
|
||||
Width = 142
|
||||
BorderSpacing.Top = 13
|
||||
@ -959,17 +982,17 @@ object frmFilter: TfrmFilter
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 10
|
||||
Caption = ' Award '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 13
|
||||
object rbExactlyDiplom: TRadioButton
|
||||
AnchorSideLeft.Control = edtDiplom
|
||||
AnchorSideTop.Control = edtDiplom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -981,9 +1004,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyDiplom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -991,7 +1014,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = gbAward
|
||||
AnchorSideTop.Control = gbAward
|
||||
Left = 6
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 142
|
||||
BorderSpacing.Left = 6
|
||||
@ -1009,14 +1032,14 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' My locator '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 14
|
||||
object edtMyLoc: TEdit
|
||||
AnchorSideLeft.Control = gbMyLoc
|
||||
AnchorSideTop.Control = gbMyLoc
|
||||
Left = 8
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 95
|
||||
BorderSpacing.Left = 8
|
||||
@ -1029,9 +1052,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyMyLoc
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -1040,9 +1063,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = edtMyLoc
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -1060,16 +1083,16 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' Zones '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 15
|
||||
object Label8: TLabel
|
||||
AnchorSideTop.Control = edtWAZ
|
||||
AnchorSideRight.Control = edtWAZ
|
||||
Left = 8
|
||||
Left = 13
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 33
|
||||
Width = 30
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 58
|
||||
Caption = 'WAZ'
|
||||
@ -1078,10 +1101,10 @@ object frmFilter: TfrmFilter
|
||||
object Label9: TLabel
|
||||
AnchorSideLeft.Control = Label8
|
||||
AnchorSideTop.Control = edtITU
|
||||
Left = 8
|
||||
Left = 13
|
||||
Height = 17
|
||||
Top = 34
|
||||
Width = 29
|
||||
Top = 41
|
||||
Width = 26
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'ITU'
|
||||
ParentColor = False
|
||||
@ -1090,8 +1113,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = gbZones
|
||||
AnchorSideRight.Control = gbZones
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 99
|
||||
Height = 27
|
||||
Left = 101
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 45
|
||||
Anchors = [akTop, akRight]
|
||||
@ -1104,9 +1127,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = edtWAZ
|
||||
AnchorSideTop.Control = edtWAZ
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 99
|
||||
Height = 27
|
||||
Top = 34
|
||||
Left = 101
|
||||
Height = 34
|
||||
Top = 41
|
||||
Width = 45
|
||||
BorderSpacing.Top = 1
|
||||
CharCase = ecUppercase
|
||||
@ -1118,8 +1141,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = cmbGroupBy
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 276
|
||||
Height = 29
|
||||
Top = 570
|
||||
Height = 34
|
||||
Top = 580
|
||||
Width = 360
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
@ -1136,14 +1159,14 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'County'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 17
|
||||
object edtCounty: TEdit
|
||||
AnchorSideLeft.Control = gbCounty
|
||||
AnchorSideTop.Control = gbCounty
|
||||
Left = 6
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 142
|
||||
BorderSpacing.Left = 6
|
||||
@ -1155,9 +1178,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = edtCounty
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 23
|
||||
Top = 41
|
||||
Width = 74
|
||||
BorderSpacing.Top = 1
|
||||
Caption = 'Exactly'
|
||||
Checked = True
|
||||
@ -1169,9 +1192,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = rbExactlyCounty
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 24
|
||||
Top = 58
|
||||
Width = 76
|
||||
Height = 23
|
||||
Top = 64
|
||||
Width = 73
|
||||
Caption = 'Include'
|
||||
TabOrder = 2
|
||||
end
|
||||
@ -1181,8 +1204,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = cmbProfile
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 276
|
||||
Height = 31
|
||||
Top = 605
|
||||
Height = 33
|
||||
Top = 620
|
||||
Width = 360
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
@ -1208,8 +1231,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = cmbSort
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 276
|
||||
Height = 29
|
||||
Top = 535
|
||||
Height = 34
|
||||
Top = 540
|
||||
Width = 200
|
||||
BorderSpacing.Top = 6
|
||||
ItemHeight = 0
|
||||
@ -1272,14 +1295,14 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = ' State '
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 23
|
||||
object edtState: TEdit
|
||||
AnchorSideLeft.Control = gbState
|
||||
AnchorSideTop.Control = gbState
|
||||
Left = 6
|
||||
Height = 27
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 95
|
||||
BorderSpacing.Left = 6
|
||||
@ -1293,7 +1316,7 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBox17
|
||||
Left = 276
|
||||
Height = 29
|
||||
Height = 34
|
||||
Top = 500
|
||||
Width = 200
|
||||
BorderSpacing.Left = 100
|
||||
@ -1332,16 +1355,16 @@ object frmFilter: TfrmFilter
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 10
|
||||
Caption = 'Power'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 160
|
||||
ClientHeight = 96
|
||||
ClientWidth = 162
|
||||
TabOrder = 25
|
||||
object Label18: TLabel
|
||||
AnchorSideLeft.Control = Label19
|
||||
AnchorSideTop.Control = edtPwrTo
|
||||
Left = 8
|
||||
Left = 13
|
||||
Height = 17
|
||||
Top = 33
|
||||
Width = 19
|
||||
Top = 40
|
||||
Width = 17
|
||||
Caption = 'to:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -1349,9 +1372,9 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideLeft.Control = edtPwrFrom
|
||||
AnchorSideTop.Control = edtPwrFrom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 59
|
||||
Height = 27
|
||||
Top = 33
|
||||
Left = 61
|
||||
Height = 34
|
||||
Top = 40
|
||||
Width = 95
|
||||
OnExit = edtDateToExit
|
||||
TabOrder = 0
|
||||
@ -1360,8 +1383,8 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Control = GroupBox17
|
||||
AnchorSideRight.Control = GroupBox17
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 59
|
||||
Height = 27
|
||||
Left = 61
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 95
|
||||
Anchors = [akTop, akRight]
|
||||
@ -1373,10 +1396,10 @@ object frmFilter: TfrmFilter
|
||||
object Label19: TLabel
|
||||
AnchorSideTop.Control = edtPwrFrom
|
||||
AnchorSideRight.Control = edtPwrFrom
|
||||
Left = 8
|
||||
Left = 13
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 38
|
||||
Width = 35
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 13
|
||||
Caption = 'from:'
|
||||
@ -1393,14 +1416,14 @@ object frmFilter: TfrmFilter
|
||||
Width = 154
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Band'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 150
|
||||
ClientHeight = 96
|
||||
ClientWidth = 152
|
||||
TabOrder = 26
|
||||
object cmbBandSelector: TComboBox
|
||||
AnchorSideLeft.Control = gbBand
|
||||
AnchorSideTop.Control = gbBand
|
||||
Left = 6
|
||||
Height = 29
|
||||
Height = 34
|
||||
Top = 6
|
||||
Width = 100
|
||||
BorderSpacing.Left = 6
|
||||
@ -1416,13 +1439,27 @@ object frmFilter: TfrmFilter
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 51
|
||||
Top = 41
|
||||
Width = 141
|
||||
Top = 46
|
||||
Width = 134
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Select band for Freq'#10'FROM and TO preset'#10'values.'
|
||||
ParentColor = False
|
||||
end
|
||||
end
|
||||
object chkNot: TCheckBox
|
||||
AnchorSideTop.Control = btnLoad
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = btnLoad
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 665
|
||||
Height = 23
|
||||
Top = 564
|
||||
Width = 54
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'NOT'
|
||||
TabOrder = 27
|
||||
end
|
||||
object dlgOpen: TOpenDialog
|
||||
Filter = 'filter *.fil|*.fil'
|
||||
left = 501
|
||||
|
||||
@ -17,7 +17,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
Buttons, MaskEdit, lcltype, inifiles;
|
||||
Buttons, MaskEdit, lcltype, ExtDlgs, EditBtn, inifiles;
|
||||
|
||||
type
|
||||
|
||||
@ -30,6 +30,7 @@ type
|
||||
btnLoad: TButton;
|
||||
btnSelectDXCC: TButton;
|
||||
btnHelp: TButton;
|
||||
chkNot: TCheckBox;
|
||||
chkIOTAOnly: TCheckBox;
|
||||
cmbLoTW_qslr: TComboBox;
|
||||
cmbeQSL_qslr : TComboBox;
|
||||
@ -43,13 +44,13 @@ type
|
||||
cmbLoTW_qsls: TComboBox;
|
||||
cmbSort: TComboBox;
|
||||
cmbBandSelector: TComboBox;
|
||||
edtDateFrom: TDateEdit;
|
||||
edtCont: TEdit;
|
||||
edtDateTo: TDateEdit;
|
||||
edtPwrFrom : TEdit;
|
||||
edtPwrTo : TEdit;
|
||||
edtState: TEdit;
|
||||
edtCounty: TEdit;
|
||||
edtDateFrom: TEdit;
|
||||
edtDateTo: TEdit;
|
||||
edtIOTA: TEdit;
|
||||
edtRemarks: TEdit;
|
||||
edtDiplom: TEdit;
|
||||
@ -393,6 +394,7 @@ begin
|
||||
16 : grb_by := 'GROUP BY club_nr5'
|
||||
end; //case
|
||||
|
||||
if chkNot.Checked then tmp:= 'NOT( '+tmp+' )';
|
||||
tmp := 'SELECT * FROM view_cqrlog_main_by_qsodate WHERE ' + tmp + ' ' + grb_by +' ' + OrderBy;
|
||||
|
||||
dmData.qCQRLOG.Close;
|
||||
@ -583,7 +585,8 @@ begin
|
||||
cmbeQSL_qsls.Text := filini.ReadString('eQSL','eqsl_qsl_sent','');
|
||||
cmbeQSL_qslr.Text := filini.ReadString('eQSL','eqsl_qsl_rcvd','');
|
||||
edtPwrFrom.Text := filini.ReadString('Power','power_from','');
|
||||
edtPwrTo.Text := filini.ReadString('Power','power_to','')
|
||||
edtPwrTo.Text := filini.ReadString('Power','power_to','');
|
||||
chkNot.Checked := filini.ReadBool('not','not',False);
|
||||
finally
|
||||
filini.Free
|
||||
end
|
||||
@ -638,7 +641,8 @@ begin
|
||||
filini.WriteString('eQSL','eqsl_qsl_sent',cmbeQSL_qsls.Text);
|
||||
filini.WriteString('eQSL','eqsl_qsl_rcvd',cmbeQSL_qslr.Text) ;
|
||||
filini.WriteString('Power','power_from',edtPwrFrom.Text);
|
||||
filini.WriteString('Power','power_to',edtPwrTo.Text)
|
||||
filini.WriteString('Power','power_to',edtPwrTo.Text);
|
||||
filini.WriteBool('not','not',chkNot.Checked);
|
||||
finally
|
||||
filini.Free
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user