home *** CD-ROM | disk | FTP | other *** search
- object ParserForm: TParserForm
- Left = 190
- Top = 133
- Width = 489
- Height = 516
- HelpContext = 4010
- HorzScrollBar.Range = 473
- VertScrollBar.Range = 433
- ActiveControl = DataListBox
- AutoScroll = False
- Caption = 'Parser'
- Font.Color = clWindowText
- Font.Height = 19
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- PixelsPerInch = 120
- OnCreate = FormCreate
- OnResize = FormResize
- TextHeight = 16
- object Label1: TLabel
- Left = 8
- Top = 184
- Width = 53
- Height = 16
- AutoSize = False
- Caption = 'Delimiter'
- end
- object NoSeriesLabel: TLabel
- Left = 8
- Top = 416
- Width = 117
- Height = 16
- Caption = 'No Series found yet'
- end
- object InstructionsLabel: TLabel
- Left = 8
- Top = 472
- Width = 100
- Height = 16
- Caption = 'InstructionsLabel'
- end
- object DataListBox: TListBox
- Left = 8
- Top = 8
- Width = 465
- Height = 137
- HelpContext = 1240
- ItemHeight = 16
- TabOrder = 0
- OnClick = DataListBoxClick
- end
- object DelimiterComboBox: TComboBox
- Left = 8
- Top = 200
- Width = 97
- Height = 24
- Hint = 'What character(s) seperate values ?'
- HelpContext = 1240
- Style = csDropDownList
- DropDownCount = 10
- ItemHeight = 16
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object LineEdit: TEdit
- Left = 8
- Top = 152
- Width = 465
- Height = 24
- HelpContext = 1240
- AutoSelect = False
- MaxLength = 32767
- TabOrder = 1
- end
- object GroupBox1: TGroupBox
- Left = 128
- Top = 184
- Width = 345
- Height = 49
- Caption = 'Set This Line As ... '
- Font.Color = clWindowText
- Font.Height = 12
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- object SeriesNamesButton: TButton
- Left = 8
- Top = 16
- Width = 105
- Height = 25
- Hint = 'The line containing the names of the Series'
- HelpContext = 5135
- Caption = 'Series Names'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = SeriesNamesButtonClick
- end
- object FirstLineOfDataButton: TButton
- Left = 120
- Top = 16
- Width = 105
- Height = 25
- Hint = '1st line of XY data'
- Caption = '1st Line of Data'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = FirstLineOfDataButtonClick
- end
- object ZDataLineButton: TButton
- Left = 232
- Top = 16
- Width = 105
- Height = 25
- Caption = 'Z Data Line'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = ZDataLineButtonClick
- end
- end
- object HelpBitBtn: TBitBtn
- Left = 8
- Top = 440
- Width = 75
- Height = 25
- TabOrder = 5
- OnClick = HelpBitBtnClick
- Kind = bkHelp
- end
- object BitBtn2: TBitBtn
- Left = 96
- Top = 440
- Width = 75
- Height = 25
- TabOrder = 6
- Kind = bkCancel
- end
- object OKBitBtn: TBitBtn
- Left = 184
- Top = 440
- Width = 75
- Height = 25
- Enabled = False
- TabOrder = 8
- Kind = bkOK
- end
- object InfoGrid: TStringGrid
- Left = 8
- Top = 240
- Width = 465
- Height = 169
- Hint = 'Click on these cells and you might get a surprise !'
- HelpContext = 1240
- ColCount = 3
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing]
- ParentShowHint = False
- RowCount = 6
- ScrollBars = ssHorizontal
- ShowHint = True
- TabOrder = 4
- OnClick = InfoGridClick
- end
- object PickXDataComboBox: TComboBox
- Left = 384
- Top = 408
- Width = 88
- Height = 24
- Hint = 'Pick which column of data is the X data'
- HelpContext = 1240
- Style = csDropDownList
- DropDownCount = 10
- ItemHeight = 16
- TabOrder = 7
- Visible = False
- OnClick = PickXDataComboBoxClick
- OnExit = PickXDataComboBoxClick
- end
- object ExpandBitBtn: TBitBtn
- Left = 272
- Top = 440
- Width = 75
- Height = 25
- Hint = 'Expand this window horizontally to full screen width'
- Caption = '&Expand'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = ExpandBitBtnClick
- Layout = blGlyphRight
- NumGlyphs = 2
- end
- object Timer1: TTimer
- Interval = 5000
- OnTimer = Timer1Timer
- Left = 368
- Top = 432
- end
- end
-