inherited fmDnaCodeScherm: TfmDnaCodeScherm
  ActiveControl = edtDnaCode
  Caption = 'fmDnaCodeScherm'
  PixelsPerInch = 96
  TextHeight = 19
  object lblToeleveringData: TLabel [0]
    Left = 269
    Top = 344
    Width = 174
    Height = 39
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblScancode: TLabel [1]
    Left = 108
    Top = 40
    Width = 109
    Height = 19
    Caption = 'Scan DNA code'
  end
  object lblHuidigePalletData: TLabel [2]
    Left = 269
    Top = 392
    Width = 174
    Height = 39
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblLaatstGescand: TLabel [3]
    Left = 39
    Top = 441
    Width = 224
    Height = 39
    Caption = 'Laatst gescand:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblLaatstGescandData: TLabel [4]
    Left = 269
    Top = 441
    Width = 174
    Height = 39
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblAantalGescand: TLabel [5]
    Left = 152
    Top = 108
    Width = 74
    Height = 39
    Alignment = taRightJustify
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblTotaalAantal: TLabel [6]
    Left = 250
    Top = 108
    Width = 78
    Height = 39
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblSlash: TLabel [7]
    Left = 232
    Top = 108
    Width = 12
    Height = 39
    AutoSize = False
    Caption = '/'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object imgGls: TImage [8]
    Left = 404
    Top = 99
    Width = 32
    Height = 32
    Visible = False
  end
  object lblHuidigePallet: TLabel [9]
    Left = 39
    Top = 392
    Width = 210
    Height = 39
    AutoSize = False
    Caption = 'Huidige pallet:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblScanPallet: TLabel [10]
    Left = 132
    Top = 192
    Width = 214
    Height = 39
    Caption = 'Scan Dna-code'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblToelevering: TLabel [11]
    Left = 39
    Top = 344
    Width = 210
    Height = 39
    AutoSize = False
    Caption = 'Toelevering:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object imgInfo: TImage [12]
    Left = 334
    Top = 99
    Width = 64
    Height = 64
    OnClick = imgInfoClick
  end
  object imgWegwerpPallet: TImage [13]
    Left = 404
    Top = 137
    Width = 32
    Height = 32
    Visible = False
  end
  object edtDnaCode: TEdit [16]
    Left = 67
    Top = 237
    Width = 345
    Height = 47
    AutoSize = False
    CharCase = ecUpperCase
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnKeyPress = edtDnaCodeKeyPress
  end
  inherited alAlgemeen: TActionList
    Left = 16
    Top = 160
    inherited actHome: TAction
      OnExecute = actHomeExecute
    end
    inherited actPallet: TAction
      OnExecute = actPalletExecute
    end
    inherited actAfronden: TAction
      OnExecute = actAfrondenExecute
    end
  end
end