object ParserForm: TParserForm Left = 202 Top = 178 Width = 489 Height = 552 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 = 75 ShowHint = True OnCreate = FormCreate OnResize = FormResize TextHeight = 16 object DelimiterLabel: TLabel Left = 8 Top = 190 Width = 48 Height = 15 Caption = 'Delimiter' Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False end object NoSeriesLabel: TLabel Left = 8 Top = 448 Width = 111 Height = 15 Caption = 'No Series found yet' Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False end object InstructionsLabel: TLabel Left = 8 Top = 504 Width = 100 Height = 16 Caption = 'InstructionsLabel' Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False 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 = 96 Top = 192 Width = 97 Height = 24 Hint = 'What character(s) seperate values ?' HelpContext = 1240 Style = csDropDownList DropDownCount = 10 Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 2 end object LineEdit: TEdit Left = 8 Top = 160 Width = 465 Height = 30 HelpContext = 1240 AutoSelect = False MaxLength = 32767 TabOrder = 1 end object SetGroupBox: TGroupBox Left = 8 Top = 216 Width = 465 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 = 4 Top = 16 Width = 150 Height = 25 Hint = 'The line containing the names of the Series' HelpContext = 5135 Caption = 'Series Names' TabOrder = 0 OnClick = SeriesNamesButtonClick end object FirstLineOfDataButton: TButton Left = 158 Top = 16 Width = 150 Height = 25 Hint = '1st line of XY data' Caption = '1st Line of Data' TabOrder = 1 OnClick = FirstLineOfDataButtonClick end object ZDataLineButton: TButton Left = 312 Top = 16 Width = 150 Height = 25 Hint = 'This is the line containing the Z Data values' Caption = 'Z Data Line' Enabled = False TabOrder = 2 OnClick = ZDataLineButtonClick end end object HelpBitBtn: TBitBtn Left = 8 Top = 472 Width = 97 Height = 25 Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 5 OnClick = HelpBitBtnClick Kind = bkHelp end object BitBtn2: TBitBtn Left = 120 Top = 472 Width = 97 Height = 25 Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 6 Kind = bkCancel end object OKBitBtn: TBitBtn Left = 232 Top = 472 Width = 97 Height = 25 Enabled = False Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 8 Kind = bkOK end object InfoGrid: TStringGrid Left = 8 Top = 272 Width = 465 Height = 169 Hint = 'Click on these cells and you might get a surprise !' HelpContext = 1240 ColCount = 3 Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing] ParentFont = False RowCount = 6 ScrollBars = ssHorizontal TabOrder = 4 OnClick = InfoGridClick end object PickXDataComboBox: TComboBox Left = 384 Top = 440 Width = 88 Height = 24 Hint = 'Pick which column of data is the X data' HelpContext = 1240 Style = csDropDownList DropDownCount = 10 Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 7 Visible = False OnClick = PickXDataComboBoxClick OnExit = PickXDataComboBoxClick end object ExpandBitBtn: TBitBtn Left = 344 Top = 472 Width = 97 Height = 25 Hint = 'Expand this window horizontally to full screen width' Caption = '&Expand' Font.Color = clWindowText Font.Height = 12 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 9 OnClick = ExpandBitBtnClick Layout = blGlyphRight NumGlyphs = 2 end object Timer1: TTimer Interval = 5000 OnTimer = Timer1Timer Left = 352 Top = 376 end end