init.dfm

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

object FrmInit: TFrmInit
  Left = 240
  Top = 209
  BorderStyle = bsDialog
  Caption = 
    'Advantech Demo: Device selection and initialization for Analog I' +
    'nput /interrupt transfer '
  ClientHeight = 255
  ClientWidth = 584
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
    EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE4
    444EEE444EEEE4EEEEEE4444EEEEEEEE44EEEEE4EEEE44EEEEEEE44EEEEEEEEE
    44EEEEE4EEEE44EEEEEEE44EEEEEEEEE44EEEEE4E99999999EEEE44EEEEEEEEE
    44EEEEE99994E4EEE9EEE44EEEEEEEEE44EEEE999944E4EEEE99E44EEEEEEEEE
    44EEE999944EE4EEEEE9E44EEEEEEEEE44EE999994EEE4EEEE4EE44EE4EEEEE4
    444E999944EE444EEE44444444EEEEEEEEE99999EEEEEEEEEEEEEEEEEEEEEEEE
    EEE99999EEEEEEEEEEEEEEEEEEEE777777799999777777777777777777777777
    7779999977777777777777777777777777799999777777777777777777777777
    7779999977777777777777777777777777779999777777777779777777777774
    4474999994444774444944477777777747744999977477774499447777777777
    4774479999747774499944777777777747447479999744449999447777777777
    4744747449999999477944777777777747447474477747447777447777777777
    4447774447777444777744777777777744477744477774477777447777777774
    4447774444777747777444477777777777777777777777777777777777777777
    7777777777777777777777777777777777777777777777777777777777770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object labDevice: TLabel
    Left = 8
    Top = 0
    Width = 37
    Height = 13
    Caption = 'Device:'
  end
  object labNote: TLabel
    Left = 398
    Top = 184
    Width = 160
    Height = 13
    Caption = 'Note : Conv.# must be multiple of '
  end
  object Label1: TLabel
    Left = 430
    Top = 195
    Width = 69
    Height = 13
    Caption = 'Channel count'
  end
  object grpPacerConv: TGroupBox
    Left = 398
    Top = 104
    Width = 177
    Height = 81
    Caption = 'Pacer Rate && Conv.#'
    TabOrder = 8
    object labPacerRate: TLabel
      Left = 10
      Top = 22
      Width = 60
      Height = 13
      Caption = 'Pacer Rate: '
    end
    object labHz: TLabel
      Left = 137
      Top = 22
      Width = 13
      Height = 13
      Caption = 'Hz'
    end
    object labConv: TLabel
      Left = 10
      Top = 50
      Width = 38
      Height = 13
      Caption = 'Conv.# '
    end
    object editPacerRate: TEdit
      Left = 72
      Top = 21
      Width = 57
      Height = 21
      ImeName = 'Chinese (Simplified) - MS-PinYin98'
      TabOrder = 0
      Text = '1000'
    end
    object editConv: TEdit
      Left = 72
      Top = 48
      Width = 57
      Height = 21
      ImeName = 'Chinese (Simplified) - MS-PinYin98'
      TabOrder = 1
      Text = '1000'
    end
  end
  object butExit: TButton
    Left = 494
    Top = 216
    Width = 73
    Height = 25
    Caption = 'E&xit'
    TabOrder = 0
    OnClick = butExitClick
  end
  object lstDevice: TListBox
    Left = 8
    Top = 16
    Width = 197
    Height = 81
    ImeName = 'Chinese (Simplified) - MS-PinYin98'
    ItemHeight = 13
    TabOrder = 1
    OnClick = lstDeviceClick
  end
  object butConvert: TButton
    Left = 398
    Top = 216
    Width = 81
    Height = 25
    Caption = '&Convert'
    TabOrder = 2
    OnClick = butConvertClick
  end
  object grpGain: TGroupBox
    Left = 8
    Top = 104
    Width = 201
    Height = 145
    Caption = 'Gain option'
    TabOrder = 3
    object cmbOverallGain: TComboBox
      Left = 40
      Top = 48
      Width = 137
      Height = 21
      Style = csDropDownList
      ImeName = 'Chinese (Simplified) - MS-PinYin98'
      ItemHeight = 13
      TabOrder = 0
      OnChange = cmbOverallGainChange
    end
    object radGainList: TRadioButton
      Left = 24
      Top = 88
      Width = 113
      Height = 17
      Caption = 'GainList'
      TabOrder = 1
      OnClick = radGainListClick
    end
    object radOverall: TRadioButton
      Left = 24
      Top = 24
      Width = 113
      Height = 17
      Caption = 'Overall '
      Checked = True
      TabOrder = 2
      TabStop = True
      OnClick = radOverallClick
    end
  end
  object butGainList: TButton
    Left = 104
    Top = 208
    Width = 73
    Height = 25
    Caption = '&Gain List'
    Enabled = False
    TabOrder = 4
    OnClick = butGainListClick
  end
  object grpScanChl: TGroupBox
    Left = 216
    Top = 8
    Width = 169
    Height = 89
    Caption = 'Scanning channel'
    TabOrder = 5
    object labStartChl: TLabel
      Left = 8
      Top = 24
      Width = 63
      Height = 13
      Caption = 'Start channel'
    end
    object labChlCnt: TLabel
      Left = 8
      Top = 56
      Width = 92
      Height = 13
      Caption = 'Logical Chan count'
    end
    object cmbStartChl: TComboBox
      Left = 104
      Top = 24
      Width = 57
      Height = 21
      Style = csDropDownList
      DropDownCount = 4
      ImeName = 'Chinese (Simplified) - MS-PinYin98'
      ItemHeight = 13
      TabOrder = 0
      OnClick = cmbStartChlClick
    end
    object cmbChlCount: TComboBox
      Left = 104
      Top = 56
      Width = 57
      Height = 21
      Style = csDropDownList
      DropDownCount = 4
      ImeName = 'Chinese (Simplified) - MS-PinYin98'
      ItemHeight = 13
      TabOrder = 1
      OnClick = cmbChlCountClick
    end
  end
  object grpTrigSrc: TGroupBox
    Left = 216
    Top = 104
    Width = 169
    Height = 73
    Caption = 'Trigger source'
    TabOrder = 6
    object radExtTrig: TRadioButton
      Left = 16
      Top = 24
      Width = 113
      Height = 17
      Caption = 'External trigger'
      TabOrder = 0
      OnClick = radExtTrigClick
    end
    object radIntTrig: TRadioButton
      Left = 16
      Top = 48
      Width = 113
      Height = 17
      Caption = 'Internal trigger'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = radIntTrigClick
    end
  end
  object grpChecks: TGroupBox
    Left = 398
    Top = 8
    Width = 177
    Height = 89
    Caption = 'Action methods'
    TabOrder = 7
    object chkCyclic: TCheckBox
      Left = 8
      Top = 16
      Width = 153
      Height = 17
      Caption = 'Cyclic accessing data'
      TabOrder = 0
    end
    object chkEventEnable: TCheckBox
      Left = 8
      Top = 40
      Width = 161
      Height = 17
      Caption = 'Enable driver sending events'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = chkEventEnableClick
    end
    object chkFloatData: TCheckBox
      Left = 8
      Top = 64
      Width = 161
      Height = 17
      Caption = 'Get floating data'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
  end
  object grpFifo: TGroupBox
    Left = 216
    Top = 184
    Width = 169
    Height = 65
    Caption = 'FIFO Setting'
    TabOrder = 9
    object labFifoSize: TLabel
      Left = 40
      Top = 40
      Width = 23
      Height = 13
      Caption = 'Size:'
    end
    object chkFifo: TCheckBox
      Left = 8
      Top = 16
      Width = 97
      Height = 17
      Caption = 'Enable'
      TabOrder = 0
      OnClick = chkFifoClick
    end
    object editFifo: TEdit
      Left = 72
      Top = 32
      Width = 65
      Height = 21
      Enabled = False
      ImeName = 'Chinese (Simplified) - MS-PinYin98'
      TabOrder = 1
      Text = '0'
    end
  end
end