init.dfm

来自「16 relay output channels and 16 isolated」· DFM 代码 · 共 294 行

object frmMain: TfrmMain
  Left = 224
  Top = 149
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Analogy input with Interrupt'
  ClientHeight = 353
  ClientWidth = 532
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object labDevice: TLabel
    Left = 13
    Top = 13
    Width = 34
    Height = 13
    Caption = 'Device'
  end
  object Data: TLabel
    Left = 13
    Top = 99
    Width = 29
    Height = 13
    Caption = 'Data :'
  end
  object lstDevice: TListBox
    Left = 13
    Top = 26
    Width = 180
    Height = 66
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 0
    OnClick = lstDeviceClick
  end
  object grpScanChl: TGroupBox
    Left = 204
    Top = 20
    Width = 149
    Height = 72
    Caption = 'Scanning channel'
    TabOrder = 1
    object labStartChl: TLabel
      Left = 8
      Top = 20
      Width = 69
      Height = 13
      Caption = 'Start channel :'
    end
    object labChlCnt: TLabel
      Left = 8
      Top = 46
      Width = 72
      Height = 13
      Caption = 'Channel count:'
      Enabled = False
    end
    object cmbStartChl: TComboBox
      Left = 86
      Top = 20
      Width = 53
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
    end
    object cmbChlCount: TComboBox
      Left = 86
      Top = 46
      Width = 53
      Height = 21
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 1
    end
  end
  object GroupBox4: TGroupBox
    Left = 363
    Top = 20
    Width = 158
    Height = 72
    Caption = 'Action methods'
    TabOrder = 2
    object chkCyclic: TCheckBox
      Left = 13
      Top = 13
      Width = 124
      Height = 14
      Caption = 'Cyclic accessing data'
      TabOrder = 0
    end
    object chkEventEnable: TCheckBox
      Left = 13
      Top = 33
      Width = 140
      Height = 13
      Caption = 'Enable sending events'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object chkFloatData: TCheckBox
      Left = 13
      Top = 52
      Width = 105
      Height = 14
      Caption = 'Get voltage data'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
  end
  object grpGain: TGroupBox
    Left = 204
    Top = 104
    Width = 149
    Height = 91
    Caption = 'Gain option'
    TabOrder = 3
    object chkOverallGain: TCheckBox
      Left = 15
      Top = 20
      Width = 124
      Height = 13
      Caption = 'Use overall gain code'
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 0
    end
    object lstOverallGain: TListBox
      Left = 15
      Top = 39
      Width = 117
      Height = 40
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 1
    end
  end
  object grpTrigSrc: TGroupBox
    Left = 204
    Top = 202
    Width = 149
    Height = 63
    Caption = 'triggering'
    TabOrder = 4
    object radExtTrig: TRadioButton
      Left = 20
      Top = 20
      Width = 91
      Height = 13
      Caption = 'External trigger'
      TabOrder = 0
      OnClick = radExtTrigClick
    end
    object radInterTrig: TRadioButton
      Left = 20
      Top = 39
      Width = 91
      Height = 14
      Caption = 'Internal trigger'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = radInterTrigClick
    end
  end
  object lstData: TListBox
    Left = 13
    Top = 112
    Width = 180
    Height = 233
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 5
    OnClick = lstDataClick
  end
  object butStart: TButton
    Left = 392
    Top = 224
    Width = 113
    Height = 25
    Caption = '&Start Converting'
    TabOrder = 6
    OnClick = butStartClick
  end
  object butStop: TButton
    Left = 392
    Top = 256
    Width = 113
    Height = 25
    Caption = 'Sto&p Converting'
    TabOrder = 7
    OnClick = butStopClick
  end
  object butExit: TButton
    Left = 392
    Top = 288
    Width = 113
    Height = 21
    Caption = 'E&xit'
    TabOrder = 8
    OnClick = butExitClick
  end
  object GroupBox1: TGroupBox
    Left = 363
    Top = 104
    Width = 158
    Height = 91
    Caption = 'FIFO option'
    TabOrder = 9
    object labFifo: TLabel
      Left = 15
      Top = 61
      Width = 50
      Height = 13
      Caption = 'FIFO size :'
    end
    object editFifo: TEdit
      Left = 86
      Top = 60
      Width = 59
      Height = 21
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object chkFifo: TCheckBox
      Left = 16
      Top = 24
      Width = 129
      Height = 17
      Caption = 'Enable'
      TabOrder = 1
      OnClick = chkFifoClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 200
    Top = 272
    Width = 153
    Height = 73
    TabOrder = 10
    object labHz: TLabel
      Left = 132
      Top = 20
      Width = 13
      Height = 13
      Caption = 'Hz'
    end
    object labSpeed: TLabel
      Left = 10
      Top = 20
      Width = 34
      Height = 13
      Caption = 'Speed:'
    end
    object labDataCount: TLabel
      Left = 7
      Top = 46
      Width = 62
      Height = 13
      Caption = 'Data Counts:'
    end
    object editSpeed: TEdit
      Left = 68
      Top = 15
      Width = 61
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      Text = '1000'
    end
    object editDataCounts: TEdit
      Left = 70
      Top = 44
      Width = 59
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
      Text = '1000'
    end
  end
end