BelegScanner/scanner.lfm

object ScanForm: TScanForm
  Left = 2222
  Height = 880
  Top = 198
  Width = 1188
  Caption = 'Belegscanner'
  ClientHeight = 880
  ClientWidth = 1188
  OnCreate = FormCreate
  LCLVersion = '2.0.6.0'
  object TypeSelector: TComboBox
    Left = 904
    Height = 27
    Top = 208
    Width = 276
    Anchors = [akTop, akRight]
    Enabled = False
    ItemHeight = 0
    OnChange = TypeSelectorChange
    OnKeyDown = ComboKey
    TabOrder = 1
    Text = 'Herkunft'
  end
  object Origin: TComboBox
    Left = 904
    Height = 27
    Top = 240
    Width = 272
    Anchors = [akTop, akRight]
    Enabled = False
    ItemHeight = 0
    OnChange = OriginChange
    OnKeyDown = ComboKey
    TabOrder = 3
    Text = 'Start'
  end
  object Destination: TComboBox
    Left = 904
    Height = 27
    Top = 304
    Width = 272
    Anchors = [akTop, akRight]
    Enabled = False
    ItemHeight = 0
    OnChange = DestinationChange
    OnKeyDown = ComboKey
    TabOrder = 5
    Text = 'Ziel'
  end
  object FolderName: TLabel
    Left = 8
    Height = 17
    Top = 842
    Width = 101
    Anchors = [akLeft, akBottom]
    Caption = 'Ordnername'
    Font.Height = -16
    Font.Name = 'Sans'
    ParentColor = False
    ParentFont = False
  end
  object Product: TComboBox
    Left = 904
    Height = 27
    Top = 240
    Width = 276
    Anchors = [akTop, akRight]
    Enabled = False
    ItemHeight = 0
    OnChange = ProductChange
    OnKeyDown = ComboKey
    TabOrder = 2
    Text = 'Produkt'
    Visible = False
  end
  object ScanButton: TButton
    Left = 904
    Height = 49
    Top = 400
    Width = 272
    Anchors = [akTop, akRight]
    Caption = 'scannen!'
    Enabled = False
    OnClick = ScanButtonClick
    TabOrder = 8
  end
  object Resolution: TComboBox
    Left = 904
    Height = 27
    Top = 368
    Width = 72
    Anchors = [akTop, akRight]
    ItemHeight = 0
    ItemIndex = 0
    Items.Strings = (
      '150'
      '300'
    )
    TabOrder = 7
    Text = '150'
  end
  object DPI: TLabel
    Left = 984
    Height = 14
    Top = 376
    Width = 19
    Anchors = [akTop, akRight]
    Caption = 'dpi'
    ParentColor = False
  end
  object BaseFolder: TLabel
    Left = 8
    Height = 17
    Top = 818
    Width = 89
    Anchors = [akLeft, akBottom]
    Caption = 'BaseFolder'
    Font.Height = -16
    Font.Name = 'Sans'
    ParentColor = False
    ParentFont = False
    OnClick = BaseFolderClick
  end
  object Stop: TComboBox
    Left = 904
    Height = 27
    Top = 272
    Width = 272
    Anchors = [akTop, akRight]
    Enabled = False
    ItemHeight = 0
    OnChange = StopChange
    OnKeyDown = ComboKey
    TabOrder = 4
    Text = 'Zwischenhalt'
  end
  object Preview: TImage
    Left = 8
    Height = 800
    Top = 8
    Width = 880
    Anchors = [akTop, akLeft, akRight, akBottom]
    Center = True
    Proportional = True
  end
  object Calendar: TCalendar
    Left = 904
    Height = 190
    Top = 8
    Width = 276
    Anchors = [akTop, akRight]
    DateTime = 0
    OnChange = CalendarChange
    TabOrder = 0
  end
  object PicSize: TComboBox
    Left = 904
    Height = 27
    Top = 336
    Width = 272
    Anchors = [akTop, akRight]
    ItemHeight = 0
    TabOrder = 6
    Text = '209 x 297 mm'
  end
  object DropButton: TButton
    Left = 904
    Height = 32
    Top = 776
    Width = 276
    Anchors = [akRight, akBottom]
    Caption = 'Löschen'
    Enabled = False
    OnClick = DropButtonClick
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object Swap: TButton
    Left = 1048
    Height = 30
    Top = 368
    Width = 128
    Anchors = [akTop, akRight]
    Caption = 'Start/Ziel tauschen'
    OnClick = SwapClick
    TabOrder = 10
  end
  object extButton: TButton
    Left = 904
    Height = 49
    Top = 456
    Width = 272
    Anchors = [akTop, akRight]
    Caption = 'extern öffnen'
    Enabled = False
    OnClick = extButtonClick
    TabOrder = 11
  end
  object dropBtn: TButton
    Left = 904
    Height = 49
    Top = 512
    Width = 272
    Anchors = [akTop, akRight]
    Caption = 'Datensatz löschen'
    OnClick = dropBtnClick
    TabOrder = 12
  end
  object OpenDir: TButton
    Left = 904
    Height = 32
    Top = 744
    Width = 276
    Anchors = [akRight, akBottom]
    Caption = 'Ordner öffnen'
    OnClick = OpenDirClick
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
  end
  object BaseFolderDialog: TSelectDirectoryDialog
    left = 520
    top = 128
  end
end