mainform.dfm

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

object frmMain: TfrmMain
  Left = 243
  Top = 181
  Width = 381
  Height = 301
  Caption = 'Advantech Driver Demo : Temperature Measurement'
  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 labSelDev: TLabel
    Left = 16
    Top = 8
    Width = 130
    Height = 13
    Caption = '    Select a DeviceFrom List'
  end
  object labModule: TLabel
    Left = 16
    Top = 96
    Width = 85
    Height = 13
    Caption = '   Select a module'
  end
  object labChannel: TLabel
    Left = 16
    Top = 176
    Width = 66
    Height = 13
    Caption = 'Input Channel'
  end
  object labVoltageRange: TLabel
    Left = 120
    Top = 176
    Width = 71
    Height = 13
    Caption = 'Voltage Range'
  end
  object Label1: TLabel
    Left = 144
    Top = 64
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object labExpChl: TLabel
    Left = 248
    Top = 8
    Width = 87
    Height = 13
    Caption = 'Exp. card Channel'
  end
  object labThermocouple: TLabel
    Left = 248
    Top = 96
    Width = 95
    Height = 13
    Caption = 'Thermocouple Type'
  end
  object Label2: TLabel
    Left = 248
    Top = 176
    Width = 82
    Height = 13
    Caption = 'Burn Test Enable'
  end
  object lstDevice: TListBox
    Left = 16
    Top = 24
    Width = 217
    Height = 65
    ItemHeight = 13
    TabOrder = 0
    OnClick = lstDeviceClick
  end
  object lstModule: TListBox
    Left = 16
    Top = 112
    Width = 217
    Height = 57
    ItemHeight = 13
    TabOrder = 1
  end
  object cmdRun: TButton
    Left = 240
    Top = 232
    Width = 57
    Height = 25
    Caption = '&Run'
    TabOrder = 2
    OnClick = cmdRunClick
  end
  object lstChannel: TListBox
    Left = 16
    Top = 192
    Width = 89
    Height = 65
    ItemHeight = 13
    TabOrder = 3
    OnClick = lstChannelClick
  end
  object lstVoltageRange: TListBox
    Left = 120
    Top = 192
    Width = 113
    Height = 65
    ItemHeight = 13
    TabOrder = 4
  end
  object cmdExit: TButton
    Left = 304
    Top = 232
    Width = 57
    Height = 25
    Caption = '&Exit'
    TabOrder = 5
    OnClick = cmdExitClick
  end
  object lstExpChl: TListBox
    Left = 248
    Top = 24
    Width = 105
    Height = 65
    ItemHeight = 13
    TabOrder = 6
  end
  object lstThermocouple: TListBox
    Left = 248
    Top = 112
    Width = 105
    Height = 57
    ItemHeight = 13
    TabOrder = 7
  end
  object cmbBTEnable: TComboBox
    Left = 248
    Top = 192
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 8
    Items.Strings = (
      'Disable'
      'Enable')
  end
end