Index: ProScan/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r396 -r694
--- ProScan/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 396)
+++ ProScan/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 694)
@@ -54,9 +54,9 @@
     ParentFont = False
   end
   object lblAantalGescand: TLabel [4]
-    Left = 153
+    Left = 8
     Top = 212
-    Width = 74
+    Width = 58
     Height = 39
     Alignment = taRightJustify
     AutoSize = False
@@ -68,9 +68,9 @@
     ParentFont = False
   end
   object lblTotaalAantal: TLabel [5]
-    Left = 251
+    Left = 90
     Top = 212
-    Width = 78
+    Width = 63
     Height = 39
     AutoSize = False
     Font.Charset = DEFAULT_CHARSET
@@ -81,7 +81,7 @@
     ParentFont = False
   end
   object lblSlash: TLabel [6]
-    Left = 233
+    Left = 72
     Top = 212
     Width = 12
     Height = 39
@@ -95,8 +95,8 @@
     ParentFont = False
   end
   object imgDirecteLevering: TImage [7]
-    Left = 68
-    Top = 219
+    Left = 311
+    Top = 180
     Width = 32
     Height = 32
     Visible = False
@@ -115,8 +115,8 @@
     ParentFont = False
   end
   object imgWegwerpPallet: TImage [9]
-    Left = 381
-    Top = 219
+    Left = 349
+    Top = 180
     Width = 32
     Height = 32
     Visible = False
@@ -139,7 +139,42 @@
     Width = 64
     Height = 64
   end
-  object edtDnaCode: TEdit [15]
+  object imgExport: TImage [13]
+    Left = 387
+    Top = 180
+    Width = 32
+    Height = 32
+    Visible = False
+  end
+  object lblAantalOpPallet: TLabel [14]
+    Left = 184
+    Top = 180
+    Width = 100
+    Height = 85
+    Alignment = taCenter
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -80
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object imgBlumXs: TImage [15]
+    Left = 311
+    Top = 218
+    Width = 32
+    Height = 32
+    Visible = False
+  end
+  object imgKartonnenPallet: TImage [16]
+    Left = 349
+    Top = 218
+    Width = 32
+    Height = 32
+    Visible = False
+  end
+  object edtDnaCode: TEdit [19]
     Left = 68
     Top = 341
     Width = 345
@@ -156,7 +191,7 @@
     TabOrder = 2
     OnKeyPress = edtDnaCodeKeyPress
   end
-  object btnInfo: TButton [16]
+  object btnInfo: TButton [20]
     Left = 68
     Top = 408
     Width = 345
@@ -174,9 +209,6 @@
     OnClick = btnInfoClick
   end
   inherited alAlgemeen: TActionList
-    inherited actHome: TAction
-      OnExecute = actHomeExecute
-    end
     inherited actPallet: TAction
       OnExecute = actPalletExecute
     end