frmmain.dfm

来自「Led识别与统计系统,基于DELPHI 7.0下」· DFM 代码 · 共 91 行

object MainFrm: TMainFrm
  Left = 142
  Top = 99
  Width = 770
  Height = 659
  Caption = 'HVDevice Ocx Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 592
    Width = 762
    Height = 21
    Panels = <
      item
        BiDiMode = bdLeftToRight
        ParentBiDiMode = False
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object HVDevice: THVDevice
    Left = 8
    Top = 0
    Width = 737
    Height = 585
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    OnGrabContinuousChange = HVDeviceGrabContinuousChange
    ControlData = {
      000001002C4C0000763C0000A9000000080000800F0000800000000001000000
      020000000100010000006400000064000000000000003C000000080000000000
      00000100}
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 320
  end
  object MainMenu: TMainMenu
    Left = 288
    object File: TMenuItem
      Caption = 'File'
      object Save: TMenuItem
        Caption = 'Save'
      end
      object Exit: TMenuItem
        Caption = 'Exit'
        OnClick = ExitClick
      end
    end
    object Device: TMenuItem
      Caption = 'Device'
      object SingleGrab: TMenuItem
        Caption = 'Single Grab'
        OnClick = SingleGrabClick
      end
      object ContinuousGrab: TMenuItem
        Caption = 'Continuous Grab'
        OnClick = ContinuousGrabClick
      end
      object CancelGrab: TMenuItem
        Caption = 'Cancel Grab'
        OnClick = CancelGrabClick
      end
      object AutoWhiteBalance: TMenuItem
        Caption = 'Auto White Balance'
        OnClick = AutoWhiteBalanceClick
      end
      object Properties: TMenuItem
        Caption = 'Properties'
        OnClick = PropertiesClick
      end
    end
  end
end