Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r200 -r225
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 200)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 225)
@@ -1,17 +1,20 @@
 inherited fmDnaCodeScherm: TfmDnaCodeScherm
   ActiveControl = edtDnaCode
   Caption = 'fmDnaCodeScherm'
+  ExplicitWidth = 480
+  ExplicitHeight = 640
   PixelsPerInch = 96
   TextHeight = 19
   object lblToeleveringData: TLabel [0]
-    Left = 269
-    Top = 344
-    Width = 174
+    Left = 8
+    Top = 135
+    Width = 147
     Height = 39
+    Alignment = taCenter
     AutoSize = False
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
-    Font.Height = -32
+    Font.Height = -27
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
@@ -24,47 +27,36 @@
     Caption = 'Scan DNA code'
   end
   object lblHuidigePalletData: TLabel [2]
-    Left = 269
-    Top = 392
-    Width = 174
+    Left = 162
+    Top = 135
+    Width = 147
     Height = 39
+    Alignment = taCenter
     AutoSize = False
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
-    Font.Height = -32
+    Font.Height = -27
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
   end
-  object lblLaatstGescand: TLabel [3]
-    Left = 39
-    Top = 441
-    Width = 224
+  object lblLaatstGescandData: TLabel [3]
+    Left = 315
+    Top = 135
+    Width = 147
     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
+    Alignment = taCenter
     AutoSize = False
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
-    Font.Height = -32
+    Font.Height = -27
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
   end
-  object lblAantalGescand: TLabel [5]
-    Left = 152
-    Top = 108
+  object lblAantalGescand: TLabel [4]
+    Left = 153
+    Top = 212
     Width = 74
     Height = 39
     Alignment = taRightJustify
@@ -76,9 +68,9 @@
     Font.Style = []
     ParentFont = False
   end
-  object lblTotaalAantal: TLabel [6]
-    Left = 250
-    Top = 108
+  object lblTotaalAantal: TLabel [5]
+    Left = 251
+    Top = 212
     Width = 78
     Height = 39
     AutoSize = False
@@ -89,9 +81,9 @@
     Font.Style = []
     ParentFont = False
   end
-  object lblSlash: TLabel [7]
-    Left = 232
-    Top = 108
+  object lblSlash: TLabel [6]
+    Left = 233
+    Top = 212
     Width = 12
     Height = 39
     AutoSize = False
@@ -103,30 +95,16 @@
     Font.Style = []
     ParentFont = False
   end
-  object imgDirecteLevering: TImage [8]
-    Left = 404
-    Top = 99
+  object imgDirecteLevering: TImage [7]
+    Left = 68
+    Top = 219
     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
+  object lblScanPallet: TLabel [8]
+    Left = 133
+    Top = 296
     Width = 214
     Height = 39
     Caption = 'Scan Dna-code'
@@ -137,39 +115,37 @@
     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
+  object imgWegwerpPallet: TImage [9]
+    Left = 381
+    Top = 219
+    Width = 32
+    Height = 32
+    Visible = False
   end
-  object imgInfo: TImage [12]
-    Left = 334
-    Top = 99
+  object imgToelevering: TImage [10]
+    Left = 48
+    Top = 65
     Width = 64
     Height = 64
-    OnClick = imgInfoClick
   end
-  object imgWegwerpPallet: TImage [13]
-    Left = 404
-    Top = 137
-    Width = 32
-    Height = 32
-    Visible = False
+  object imgPallet: TImage [11]
+    Left = 201
+    Top = 65
+    Width = 64
+    Height = 64
   end
-  object edtDnaCode: TEdit [16]
-    Left = 67
-    Top = 237
+  object imgLaatstGescand: TImage [12]
+    Left = 355
+    Top = 65
+    Width = 64
+    Height = 64
+  end
+  object edtDnaCode: TEdit [15]
+    Left = 68
+    Top = 341
     Width = 345
     Height = 47
+    Alignment = taCenter
     AutoSize = False
     CharCase = ecUpperCase
     Font.Charset = DEFAULT_CHARSET
@@ -181,9 +157,26 @@
     TabOrder = 2
     OnKeyPress = edtDnaCodeKeyPress
   end
+  object btnInfo: TButton [16]
+    Left = 68
+    Top = 408
+    Width = 345
+    Height = 81
+    Caption = 'Meer info'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ImageIndex = 1
+    Images = ImagesScherm.ilAlgemeen64
+    ParentFont = False
+    TabOrder = 3
+    OnClick = btnInfoClick
+  end
   inherited alAlgemeen: TActionList
     Left = 16
-    Top = 160
+    Top = 208
     inherited actHome: TAction
       OnExecute = actHomeExecute
     end