Index: AAPClient/UI/DnaCodeReedsGescandScherm.dfm
===================================================================
diff -u -r171 -r172
--- AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 171)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 172)
@@ -4,11 +4,25 @@
   ExplicitHeight = 640
   PixelsPerInch = 96
   TextHeight = 19
+  object lblScanPallet: TLabel [0]
+    Left = 60
+    Top = 315
+    Width = 155
+    Height = 39
+    Caption = 'Scan pallet'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    Visible = False
+  end
   inherited pnlDrieKnoppen: TPanel
     Visible = False
   end
-  object pnlWegnemen: TPanel [2]
-    Left = 60
+  object pnlWegnemen: TPanel [3]
+    Left = 256
     Top = 96
     Width = 157
     Height = 183
@@ -46,21 +60,23 @@
       ExplicitTop = 134
     end
   end
-  object pnlVerplaatsen: TPanel [3]
-    Left = 256
+  object pnlVerplaatsen: TPanel [4]
+    Left = 60
     Top = 96
     Width = 157
     Height = 183
     BevelOuter = bvNone
     Color = 1513421
     ParentBackground = False
     TabOrder = 3
+    OnClick = pnlVerplaatsenClick
     object imgVerplaatsen: TImage
       Left = 14
       Top = 16
       Width = 128
       Height = 128
       Transparent = True
+      OnClick = imgVerplaatsenClick
     end
     object lblVerplaatsen: TLabel
       Left = 0
@@ -83,7 +99,7 @@
       ExplicitTop = 134
     end
   end
-  object pnlAnnuleren: TPanel [4]
+  object pnlAnnuleren: TPanel [5]
     Left = 256
     Top = 321
     Width = 157
@@ -122,4 +138,22 @@
       ExplicitTop = 134
     end
   end
+  object edtPallet: TEdit [6]
+    Left = 60
+    Top = 360
+    Width = 157
+    Height = 47
+    Alignment = taCenter
+    AutoSize = False
+    CharCase = ecUpperCase
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -27
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 5
+    Visible = False
+    OnKeyUp = edtPalletKeyUp
+  end
 end