1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259
|
object Form8: TForm8
Left = 2143
Height = 404
Top = 285
Width = 1122
Caption = 'Average tool'
ClientHeight = 404
ClientWidth = 1122
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.2.6.0'
object Memo1: TMemo
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = StatusBar1
Left = 915
Height = 383
Top = 0
Width = 207
Anchors = [akTop, akRight, akBottom]
Lines.Strings = (
'All files in the selected directory will be processed.'
''
'All files converted will have "_avg" appened to the filename, and stored in a subdirectory called "average".'
''
'Rolling average method:'
'Takes readings from multiple files created by SQM-Pro2. '
'Uses the rolling average method to produce a set of new files where all readings are modified using the rolling average method with the desired number of bins for each average block.'
''
'All records of each file method:'
'All records in a .dat file are averaged to produce a new .dat file with only one record of the average.'
''
''
''
)
ScrollBars = ssAutoBoth
TabOrder = 0
end
object StatusBar1: TStatusBar
Left = 0
Height = 21
Top = 383
Width = 1122
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object ProgressBar1: TProgressBar
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Memo1
AnchorSideBottom.Control = StatusBar1
Left = 0
Height = 20
Top = 363
Width = 915
Anchors = [akLeft, akRight, akBottom]
Smooth = True
TabOrder = 2
end
object SourceDirectoryEdit: TEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
Left = 256
Height = 36
Hint = ' Source directory.'
Top = 8
Width = 656
BorderSpacing.Left = 2
TabOrder = 3
end
object SourceDirectoryButton: TBitBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SourceDirectoryEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = SourceDirectoryEdit
Left = 229
Height = 25
Hint = 'Select source directory.'
Top = 14
Width = 25
Anchors = [akTop, akRight]
BorderSpacing.Left = 2
BorderSpacing.Top = 2
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000534D46A0A465
34FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA46534FFA465
34FFA46534FFA46534FFA46534FFA46534FFA46635E9A6673639484848E09786
78FFA5693AFFBA8350FFBA8350FFBA8350FFBA8350FFBA8350FFBA8350FFBA83
50FFBA8350FFBA8350FFBA8350FFBA8350FFB27845FFA56636C0494949E09999
99FFA56839FFD3A67EFFD2A378FFD2A378FFD2A378FFD2A378FFD2A378FFD2A3
78FFD2A378FFD2A378FFD2A378FFD3A479FFD1A57AFFA56635F5484848E29B9B
9BFFA46738FFD5AB85FFCE9C6EFFCE9C6DFFCE9C6DFFCE9C6DFFCE9C6DFFCE9C
6DFFCE9C6DFFCE9C6DFFCE9C6DFFCF9E70FFD5AB84FFA56635F84C4C4CE4A1A1
A1FFA56838FFE2C4A9FFD5A881FFD3A47AFFD3A47AFFD3A47AFFD3A47AFFD3A4
7AFFD3A47AFFD3A47AFFD3A47AFFD4A77EFFDDBA9CFFA56635F9515151E5A4A5
A5FFA56737FFE9D2BEFFDDBA9BFFDDB999FFDCB695FFDBB592FFDAB390FFD9B2
8EFFD8AE89FFD7AD87FFD7AD87FFD8B08BFFE5C9B1FFA56635FA565656E7A9A9
A9FFA46636FFECD8C6FFDDBA99FFDDBA99FFDDBA99FFDDBA99FFDDBA99FFDDBA
99FFDDBA99FFDCB795FFDAB28EFFD9B08BFFE7CFB8FFA56635FB5B5B5BE9AEAE
AEFFA56736FFEBD7C4FFDCB794FFDCB794FFDCB794FFDCB794FFDCB794FFDCB7
94FFDCB794FFDCB794FFDCB794FFDAB491FFE6CDB6FFA56635FC5F5F5FE9B3B3
B3FFA46635FFEAD5C1FFDBB491FFDBB491FFDBB591FFDBB591FFDBB592FFDBB5
92FFDBB592FFDBB592FFDBB592FFDCB896FFE7CFB7FFA46634FD656565EBB7B7
B7FFA56635FFEAD3BEFFEAD4BFFFEAD4BFFFEAD4BEFFEAD4BEFFEAD4BEFFE9D3
BEFFE9D3BEFFE9D3BEFFE9D3BEFFE9D3BEFFE8CFB8FFA56534FE6A6A6AECBDBD
BDFFA66D41FFA56636FFA56636FFA56636FFA56636FFA56636FFA46635FFA466
35FFA46635FFA46635FFA46534FFA46534FFA46534FFA66837E06E6E6EEEC0C1
C1FFACACACFFAAAAAAFFA7A7A7FFA5A5A5FFA4A4A4FFA4A4A4FFACACACFFB6B6
B6FFB9B9B9FFBBBBBBFFA2A2A2FF6A6A6AA94747470047474700737373EFC5C5
C5FFB0B0B0FFADADADFFABABABFFAAAAAAFFACACACFF8D8D8DF58D8D8DF28C8C
8CF28C8C8CF28C8C8CF2808080F66C6C6C844747470047474700787878F0C9C9
C9FFC7C7C7FFC5C5C5FFC4C4C4FFC4C4C4FFB4B4B4FF747474CA727272387272
7238727272386D6D6D386F6F6F355555550347474700474747007A7A7A9F7979
79EC797979EC797979EC797979EC797979EC797979E278787835474747004747
4700474747004747470047474700474747004747470047474700474747004747
4700474747004747470047474700474747004747470047474700474747004747
4700474747004747470047474700474747004747470047474700
}
OnClick = SourceDirectoryButtonClick
TabOrder = 4
end
object InputFileListMemo: TMemo
AnchorSideLeft.Control = SourceDirectoryEdit
AnchorSideTop.Control = SourceDirectoryEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SourceDirectoryEdit
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ProgressBar1
Left = 256
Height = 283
Top = 78
Width = 216
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
ScrollBars = ssAutoBoth
TabOrder = 5
end
object Label1: TLabel
AnchorSideLeft.Control = InputFileListMemo
AnchorSideBottom.Control = InputFileListMemo
Left = 256
Height = 19
Top = 57
Width = 80
Anchors = [akLeft, akBottom]
Caption = 'Input file list:'
ParentColor = False
end
object ProcessStatusMemo: TMemo
AnchorSideLeft.Control = InputFileListMemo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = InputFileListMemo
AnchorSideRight.Control = SourceDirectoryEdit
AnchorSideRight.Side = asrBottom
Left = 476
Height = 284
Top = 78
Width = 436
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
ScrollBars = ssBoth
TabOrder = 6
end
object Label2: TLabel
AnchorSideLeft.Control = ProcessStatusMemo
AnchorSideBottom.Control = InputFileListMemo
Left = 476
Height = 19
Top = 57
Width = 110
Anchors = [akLeft, akBottom]
Caption = 'Processing status:'
ParentColor = False
end
object Methodradio: TRadioGroup
AnchorSideLeft.Control = Owner
Left = 5
Height = 68
Top = 8
Width = 197
AutoFill = True
BorderSpacing.Left = 5
Caption = 'Method:'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientWidth = 195
ItemIndex = 0
Items.Strings = (
'Rolling average of all files'
'All records of each file'
)
OnClick = MethodRadioClick
TabOrder = 7
end
object RollingSettingsGroup: TGroupBox
AnchorSideLeft.Control = Methodradio
AnchorSideTop.Control = Methodradio
AnchorSideTop.Side = asrBottom
Left = 5
Height = 72
Top = 81
Width = 197
BorderSpacing.Top = 5
Caption = 'Rolling average setting:'
ClientHeight = 52
ClientWidth = 195
TabOrder = 8
object BinsSpinEdit: TSpinEdit
Left = 48
Height = 36
Top = 8
Width = 50
Alignment = taRightJustify
MaxValue = 16
MinValue = 2
OnChange = BinsSpinEditChange
TabOrder = 0
Value = 8
end
object BinsLabel: TLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BinsSpinEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BinsSpinEdit
Left = 16
Height = 19
Top = 17
Width = 30
Anchors = [akTop, akRight]
BorderSpacing.Right = 2
Caption = 'Bins:'
ParentColor = False
end
end
object StartButton: TButton
Left = 72
Height = 25
Top = 192
Width = 75
Caption = 'Start'
OnClick = StartButtonClick
TabOrder = 9
end
object SelectDirectoryDialog1: TSelectDirectoryDialog
Left = 536
Top = 80
end
end
|