unit1.dfm

Spikes can be taken as absolute quantities of measuring values which are large than approximately fo

object Form1: TForm1
  Left = 188
  Top = 150
  BorderStyle = bsDialog
  Caption = 'SpikeRemove'
  ClientHeight = 457
  ClientWidth = 795
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 102
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 457
    Height = 16
    Caption = 
      'Message:                                                        ' +
      '                                         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 64
    Width = 457
    Height = 16
    Caption = 
      'Message:                                                        ' +
      '                                         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label_Example1: TLabel
    Left = 8
    Top = 112
    Width = 453
    Height = 16
    Caption = 
      'Example:                                                        ' +
      '                                         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 8
    Top = 400
    Width = 452
    Height = 16
    Caption = 
      'Save To:                                                        ' +
      '                                         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 8
    Top = 424
    Width = 452
    Height = 16
    Caption = 
      'Save To:                                                        ' +
      '                                         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 86
    Width = 64
    Height = 13
    Caption = 'Show  line     '
  end
  object Label7: TLabel
    Left = 144
    Top = 86
    Width = 31
    Height = 13
    Caption = ' line    '
  end
  object Label_Example2: TLabel
    Left = 8
    Top = 136
    Width = 453
    Height = 16
    Caption = 
      'Example:                                                        ' +
      '                                         '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 160
    Width = 207
    Height = 16
    Caption = 'Spike removal  for   Columns  from  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 296
    Top = 160
    Width = 20
    Height = 16
    Caption = 'to   '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 8
    Top = 192
    Width = 195
    Height = 16
    Caption = 'Deviation from mean larger than  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 264
    Top = 192
    Width = 191
    Height = 16
    Caption = 'times SD can be taken as spike '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 136
    Top = 16
    Width = 505
    Height = 20
    Caption = 'Values with ABS larger than 55555 are taken as NO_VALUE    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label_Before: TLabel
    Left = 184
    Top = 292
    Width = 126
    Height = 16
    Caption = 'Records  before and '
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label_After: TLabel
    Left = 360
    Top = 292
    Width = 408
    Height = 16
    Caption = 
      'Records  after the current record   are  taken as a whole to cal' +
      'culate.   '
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label15: TLabel
    Left = 64
    Top = 224
    Width = 234
    Height = 16
    Caption = 'repeats will be run to  judge the spikes   '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Btn_OpenFile: TBitBtn
    Left = 16
    Top = 16
    Width = 105
    Height = 25
    Caption = 'OpenFile'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = Btn_OpenFileClick
  end
  object Btn_SaveResults: TBitBtn
    Left = 16
    Top = 360
    Width = 113
    Height = 25
    Caption = 'SaveResults'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Btn_SaveResultsClick
  end
  object Btn_Perform: TBitBtn
    Left = 16
    Top = 328
    Width = 113
    Height = 25
    Caption = 'Perform'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Btn_PerformClick
  end
  object Edit_LineStart: TEdit
    Left = 72
    Top = 82
    Width = 57
    Height = 21
    TabOrder = 3
    Text = '2'
    OnChange = Edit_LineStartChange
  end
  object Edit_LineEnd: TEdit
    Left = 176
    Top = 82
    Width = 65
    Height = 21
    TabOrder = 4
    Text = '17521'
    OnChange = Edit_LineEndChange
  end
  object ComboBox_Column1: TComboBox
    Left = 232
    Top = 156
    Width = 49
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 5
    Text = '7'
    Items.Strings = (
      '0')
  end
  object ComboBox_Column2: TComboBox
    Left = 344
    Top = 156
    Width = 49
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 6
    Text = '37'
    Items.Strings = (
      '0')
  end
  object ComboBox_SD_Times: TComboBox
    Left = 208
    Top = 188
    Width = 49
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 7
    Text = '4'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10')
  end
  object Edit_Before: TEdit
    Left = 112
    Top = 288
    Width = 65
    Height = 24
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    Text = '200'
  end
  object Edit_After: TEdit
    Left = 312
    Top = 288
    Width = 41
    Height = 24
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Text = '200'
  end
  object ComboBox_Circle: TComboBox
    Left = 8
    Top = 220
    Width = 49
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 10
    Text = '3'
    Items.Strings = (
      '0'
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12'
      '13'
      '14'
      '15'
      '16')
  end
  object CheckBox_RangeCheck: TCheckBox
    Left = 432
    Top = 160
    Width = 209
    Height = 17
    Caption = 'Range Check for MT flux data  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
  end
  object CheckBoxShortCircle: TCheckBox
    Left = 8
    Top = 292
    Width = 97
    Height = 17
    Caption = 'Short Circle'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = CheckBoxShortCircleClick
  end
  object CheckBoxLongCircle: TCheckBox
    Left = 8
    Top = 256
    Width = 97
    Height = 17
    Caption = 'Long Circle'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 13
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'txt|*.txt|dat|*.dat|All File|*.*'
    InitialDir = 'd:\work'
    Left = 208
    Top = 78
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'TXT|*.txt|Dat|*.dat|All File|*.*'
    InitialDir = 'd:\work'
    Left = 256
    Top = 78
  end
end