mainform.dfm

控制扫描仪源码 控制扫描仪源码

      ItemHeight = 13
      TabOrder = 0
      OnChange = ListSourcesChange
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 407
    Width = 688
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object ContainImage: TScrollBox
    Left = 0
    Top = 28
    Width = 688
    Height = 379
    HorzScrollBar.Smooth = True
    HorzScrollBar.Tracking = True
    HorzScrollBar.Visible = False
    VertScrollBar.Smooth = True
    VertScrollBar.Visible = False
    Align = alClient
    BorderStyle = bsNone
    TabOrder = 2
    OnResize = ContainImageResize
    object Image: TImage
      Left = 0
      Top = 0
      Width = 105
      Height = 105
      Cursor = 3778
      AutoSize = True
      OnMouseDown = ImageMouseDown
      OnMouseMove = ImageMouseMove
    end
  end
  object Menu: TMainMenu
    Left = 176
    Top = 112
    object Menu1: TMenuItem
      Caption = '&File'
      Checked = True
      object ItemSelect: TMenuItem
        Caption = '&Select source'
        OnClick = ItemSelectClick
      end
      object ItemAcquire: TMenuItem
        Caption = '&Acquire'
        OnClick = ItemAcquireClick
      end
      object Divider2: TMenuItem
        Caption = '-'
      end
      object ItemShowInterface: TMenuItem
        Caption = 'S&how user interface'
        Checked = True
        OnClick = ItemShowInterfaceClick
      end
      object Divider7: TMenuItem
        Caption = '-'
      end
      object Transfer3: TMenuItem
        Caption = 'File transference'
        RadioItem = True
        OnClick = Transfer1Click
      end
      object Transfer2: TMenuItem
        Tag = 1
        Caption = 'Memory transference'
        Checked = True
        RadioItem = True
        OnClick = Transfer1Click
      end
      object Transfer1: TMenuItem
        Tag = 2
        Caption = 'Use windows handle'
        RadioItem = True
        OnClick = Transfer1Click
      end
      object Divider3: TMenuItem
        Caption = '-'
      end
      object ItemSave: TMenuItem
        Caption = '&Save as..'
        OnClick = ItemSaveClick
      end
      object Divider4: TMenuItem
        Caption = '-'
      end
      object ItemExit: TMenuItem
        Caption = '&Exit'
        OnClick = ItemExitClick
      end
    end
    object Menu2: TMenuItem
      Caption = '&Edit'
      object ItemCopy: TMenuItem
        Caption = '&Copy to clipboard'
        OnClick = ItemCopyClick
      end
    end
    object Menu3: TMenuItem
      Caption = '&Status'
      object ItemStatus1: TMenuItem
        Tag = 1
        Caption = '&1.-  Library loaded'
        RadioItem = True
        OnClick = ItemStatus1Click
      end
      object ItemStatus2: TMenuItem
        Tag = 2
        Caption = '&2.-  Source manager loaded'
        RadioItem = True
        OnClick = ItemStatus2Click
      end
      object Divider5: TMenuItem
        Caption = '-'
        RadioItem = True
      end
      object ItemStatus3: TMenuItem
        Tag = 3
        Caption = '&3.-  Source loaded'
        RadioItem = True
        OnClick = ItemStatus3Click
      end
      object ItemStatus4: TMenuItem
        Tag = 4
        Caption = '&4.-  Send command'
        RadioItem = True
        OnClick = ItemStatus4Click
      end
      object ItemStatus5: TMenuItem
        Tag = 5
        Caption = '&5.-  Source Enabled'
        RadioItem = True
        OnClick = ItemStatus5Click
      end
      object ItemStatus6: TMenuItem
        Tag = 6
        Caption = '&6.-  Source disabled'
        RadioItem = True
        OnClick = ItemStatus6Click
      end
      object Divider6: TMenuItem
        Caption = '-'
        RadioItem = True
      end
      object ItemStatus7: TMenuItem
        Tag = 7
        Caption = '&7.-  Source unloaded'
        RadioItem = True
        OnClick = ItemStatus7Click
      end
      object ItemStatus8: TMenuItem
        Tag = 8
        Caption = '&8.-  Source manager unloaded'
        RadioItem = True
        OnClick = ItemStatus8Click
      end
      object ItemStatus9: TMenuItem
        Tag = 9
        Caption = '&9.-  Library unloaded'
        Checked = True
        RadioItem = True
        OnClick = ItemStatus9Click
      end
    end
    object Menu4: TMenuItem
      Caption = '&Image'
      object ItemFlipVertical: TMenuItem
        Caption = 'Flip &vertical'
        OnClick = ItemFlipVerticalClick
      end
      object ItemFlipHorizontal: TMenuItem
        Caption = 'Flip &horizontal'
        OnClick = ItemFlipHorizontalClick
      end
    end
  end
  object Twain: TDelphiTwain
    OnSourceDisable = TwainSourceDisable
    OnTwainAcquire = TwainTwainAcquire
    OnSourceSetupFileXfer = TwainSourceSetupFileXfer
    OnSourceFileTransfer = TwainSourceFileTransfer
    TransferMode = ttmMemory
    SourceCount = 0
    Info.MajorVersion = 1
    Info.MinorVersion = 0
    Info.Language = tlUserLocale
    Info.CountryCode = 1
    Info.Groups = [tgControl, tgImage]
    Info.VersionInfo = 'Application name'
    Info.Manufacturer = 'Application manufacturer'
    Info.ProductFamily = 'App product family'
    Info.ProductName = 'App product name'
    LibraryLoaded = False
    SourceManagerLoaded = False
    Left = 208
    Top = 112
  end
  object SavePic: TSavePictureDialog
    DefaultExt = '.bmp'
    Filter = 'JPEG Image File (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp'
    FilterIndex = 0
    Title = 'Select the file name to save'
    Left = 112
    Top = 180
  end
  object GoTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = GoNavigation
    Left = 264
    Top = 144
  end
end