File: avgtool.lfm

package info (click to toggle)
udm 1.0.0.352-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 28,076 kB
  • sloc: pascal: 72,496; ansic: 6,892; awk: 880; makefile: 768; sh: 493; perl: 34; python: 22; tcl: 18
file content (259 lines) | stat: -rw-r--r-- 8,316 bytes parent folder | download
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