2020-03-30 18:01:44 +00:00
object SmoothDataForm: TSmoothDataForm
Left = 511
Height = 386
Top = 190
Width = 387
2020-05-26 20:58:55 +00:00
AutoSize = True
2020-03-30 18:01:44 +00:00
Caption = 'Data Smoothing'
ClientHeight = 386
ClientWidth = 387
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = ResetBtnClick
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
Left = 8
Height = 15
Top = 95
Width = 46
BorderSpacing.Left = 8
BorderSpacing.Top = 12
Caption = 'Variables'
ParentColor = False
end
object VarList: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = InBtn
AnchorSideBottom.Control = Bevel2
Left = 8
Height = 225
Top = 112
Width = 163
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
Constraints.MinHeight = 200
ItemHeight = 0
MultiSelect = True
TabOrder = 0
end
object InBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
Left = 179
Height = 28
Top = 112
Width = 28
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = InBtnClick
Spacing = 0
TabOrder = 1
end
object OutBtn: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 179
Height = 28
Top = 144
Width = 28
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = OutBtnClick
Spacing = 0
TabOrder = 2
end
object VariableEdit: TEdit
AnchorSideLeft.Control = InBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 215
Height = 23
Top = 131
Width = 164
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
2020-05-26 20:58:55 +00:00
ReadOnly = True
2020-03-30 18:01:44 +00:00
TabOrder = 3
Text = 'VariableEdit'
end
object Label1: TLabel
AnchorSideLeft.Control = VarList
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RepeatEdit
AnchorSideTop.Side = asrCenter
Left = 179
Height = 15
Top = 302
Width = 100
BorderSpacing.Left = 8
Caption = 'Repeat smoothing '
ParentColor = False
end
object RepeatEdit: TEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = VarList
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = VarList
AnchorSideBottom.Side = asrBottom
Left = 287
Height = 23
Top = 298
Width = 31
Alignment = taRightJustify
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Bottom = 16
TabOrder = 4
Text = 'RepeatEdit'
end
object Label3: TLabel
AnchorSideLeft.Control = RepeatEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label1
Left = 326
Height = 15
Top = 302
Width = 32
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'times.'
ParentColor = False
end
object ResetBtn: TButton
AnchorSideTop.Control = ComputeBtn
2020-05-26 20:58:55 +00:00
AnchorSideRight.Control = ComputeBtn
Left = 174
2020-03-30 18:01:44 +00:00
Height = 25
Top = 353
Width = 54
Anchors = [akTop, akRight]
AutoSize = True
2020-05-26 20:58:55 +00:00
BorderSpacing.Right = 8
2020-03-30 18:01:44 +00:00
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 6
end
object ComputeBtn: TButton
2020-05-26 20:58:55 +00:00
AnchorSideRight.Control = CloseBtn
2020-03-30 18:01:44 +00:00
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
2020-05-26 20:58:55 +00:00
Left = 236
2020-03-30 18:01:44 +00:00
Height = 25
Top = 353
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 7
end
object HelpBtn: TButton
Tag = 119
AnchorSideTop.Control = ComputeBtn
AnchorSideRight.Control = ResetBtn
2020-05-26 20:58:55 +00:00
Left = 115
2020-03-30 18:01:44 +00:00
Height = 25
Top = 353
Width = 51
Anchors = [akTop, akRight]
AutoSize = True
2020-05-26 20:58:55 +00:00
BorderSpacing.Right = 8
2020-03-30 18:01:44 +00:00
Caption = 'Help'
OnClick = HelpBtnClick
2020-05-26 20:58:55 +00:00
TabOrder = 5
2020-03-30 18:01:44 +00:00
end
object Bevel1: TBevel
AnchorSideLeft.Control = InBtn
AnchorSideTop.Control = InBtn
AnchorSideTop.Side = asrBottom
Left = 179
Height = 4
Top = 140
Width = 28
Shape = bsSpacer
end
object Bevel2: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ComputeBtn
Left = 0
Height = 8
Top = 337
Width = 387
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 75
Top = 8
Width = 371
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'This procedure creates a new variable with the label "smoothed" with data points created from the selected variable. Each new data point is the average of the immediately preceding value and the immediately following value. New values are therefore created for the 2nd, 3rd,...,and N-1 values. The process can be repeated multiple times.'
ParentColor = False
WordWrap = True
end
2020-05-26 20:58:55 +00:00
object CloseBtn: TButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 320
Height = 25
Top = 353
Width = 55
Anchors = [akRight, akBottom]
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Close'
ModalResult = 11
TabOrder = 8
end
object Label4: TLabel
AnchorSideLeft.Control = VariableEdit
AnchorSideBottom.Control = VariableEdit
Left = 215
Height = 15
Top = 114
Width = 128
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Variable to be smoothed'
ParentColor = False
end
2020-03-30 18:01:44 +00:00
end