object SmoothDataForm: TSmoothDataForm Left = 511 Height = 386 Top = 190 Width = 387 AutoSize = True 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 ReadOnly = True 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 AnchorSideRight.Control = ComputeBtn Left = 174 Height = 25 Top = 353 Width = 54 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 8 Caption = 'Reset' OnClick = ResetBtnClick TabOrder = 6 end object ComputeBtn: TButton AnchorSideRight.Control = CloseBtn AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 236 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 Left = 115 Height = 25 Top = 353 Width = 51 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 8 Caption = 'Help' OnClick = HelpBtnClick TabOrder = 5 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 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 end