Chip 2001 October/Chip_2001-10_cd1.bin/zkuste/delphi/kompon/d123456/CHEMPLOT.ZIP/TPlot/Parser.dfm/Parser.txt

Text File | 2001-07-24 | 6KB | 255 lines

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