freqform.dfm

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

object frmFreq: TfrmFreq
  Left = 355
  Top = 194
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'FreqIn'
  ClientHeight = 289
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 264
    Width = 33
    Height = 13
    Caption = '0/Stop'
  end
  object Label2: TLabel
    Left = 248
    Top = 264
    Width = 63
    Height = 13
    Caption = '10 times/Sec'
  end
  object grpDeviceSelection: TGroupBox
    Left = 8
    Top = 16
    Width = 385
    Height = 41
    Caption = 'Device Selection'
    TabOrder = 0
    object labDeviceName: TLabel
      Left = 11
      Top = 14
      Width = 261
      Height = 19
      AutoSize = False
    end
    object btnSelectDevice: TButton
      Left = 280
      Top = 11
      Width = 89
      Height = 25
      Caption = 'Select Device'
      TabOrder = 0
      OnClick = btnSelectDeviceClick
    end
  end
  object grpChannel: TGroupBox
    Left = 8
    Top = 80
    Width = 113
    Height = 65
    Caption = 'Channel'
    TabOrder = 1
    object cmbChannel: TComboBox
      Left = 8
      Top = 28
      Width = 89
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = '0'
    end
  end
  object btnStart: TButton
    Left = 320
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 2
    OnClick = btnStartClick
  end
  object btnExit: TButton
    Left = 320
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 3
    OnClick = btnExitClick
  end
  object grpFreqReading: TGroupBox
    Left = 8
    Top = 152
    Width = 265
    Height = 65
    Caption = 'Frequency Reading'
    TabOrder = 4
    object stFreq: TStaticText
      Left = 16
      Top = 16
      Width = 233
      Height = 41
      AutoSize = False
      BorderStyle = sbsSunken
      Caption = '0.000'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object tbScanTime: TTrackBar
    Left = 8
    Top = 232
    Width = 281
    Height = 33
    Max = 100
    Orientation = trHorizontal
    Frequency = 1
    Position = 20
    SelEnd = 0
    SelStart = 0
    TabOrder = 5
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = tbScanTimeChange
  end
  object btnStop: TButton
    Left = 320
    Top = 227
    Width = 75
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 6
    OnClick = btnStopClick
  end
  object GroupBox1: TGroupBox
    Left = 152
    Top = 80
    Width = 121
    Height = 65
    Caption = 'Gate Period(0 for Auto)'
    TabOrder = 7
    object UpDownGP: TUpDown
      Left = 9
      Top = 25
      Width = 16
      Height = 21
      AlignButton = udLeft
      Associate = EditGP
      Min = 0
      Max = 2000
      Position = 0
      TabOrder = 0
      Wrap = False
    end
    object EditGP: TEdit
      Left = 24
      Top = 25
      Width = 81
      Height = 21
      TabOrder = 1
      Text = '0'
    end
  end
  object Memo1: TMemo
    Left = 280
    Top = 84
    Width = 161
    Height = 109
    BorderStyle = bsNone
    Color = clBtnFace
    Enabled = False
    Lines.Strings = (
      'Gate Period is the parameter to '
      'specify the period for measuring '
      'the unkown frequency. It ranges '
      'from 0 to 2000 ms. If 0ms is '
      'specified,the driver will select the '
      'proper gate period automatically( '
      'recommended, esp for accurate '
      'measurement ). ')
    TabOrder = 8
  end
  object ScanTimer: TTimer
    Enabled = False
    OnTimer = ScanTimerTimer
    Left = 112
    Top = 232
  end
end