Index: AAPClient/UI/DnaCodeReedsGescandScherm.dfm
===================================================================
diff -u -r182 -r233
--- AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 182)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.dfm	(.../DnaCodeReedsGescandScherm.dfm)	(revision 233)
@@ -1,5 +1,8 @@
 inherited fmDnaCodeReedsGescandScherm: TfmDnaCodeReedsGescandScherm
   Caption = 'fmDrieKnoppenScherm'
+  Color = 1513421
+  ExplicitWidth = 480
+  ExplicitHeight = 640
   PixelsPerInch = 96
   TextHeight = 19
   object lblScanPallet: TLabel [0]
@@ -9,137 +12,38 @@
     Height = 39
     Caption = 'Scan pallet'
     Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
+    Font.Color = clWhite
     Font.Height = -32
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
     Visible = False
   end
+  object lblBestaandeDnaCode: TLabel [1]
+    Left = 0
+    Top = 57
+    Width = 480
+    Height = 39
+    Align = alTop
+    Alignment = taCenter
+    Caption = 'Bestaande DNA-Code: %s'
+    Color = clWhite
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -32
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentColor = False
+    ParentFont = False
+    ExplicitWidth = 369
+  end
   inherited pnlDrieKnoppen: TPanel
     Visible = False
   end
-  object pnlWegnemen: TPanel [3]
-    Left = 256
-    Top = 96
-    Width = 157
-    Height = 183
-    BevelOuter = bvNone
-    Color = 1513421
-    ParentBackground = False
-    TabOrder = 2
-    OnClick = pnlWegnemenClick
-    object imgWegnemen: TImage
-      Left = 14
-      Top = 16
-      Width = 128
-      Height = 128
-      Transparent = True
-      OnClick = imgWegnemenClick
-    end
-    object lblWegnemen: TLabel
-      Left = 0
-      Top = 150
-      Width = 157
-      Height = 33
-      Align = alBottom
-      Alignment = taCenter
-      AutoSize = False
-      Caption = 'Wegnemen'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWhite
-      Font.Height = -27
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-      Layout = tlCenter
-      WordWrap = True
-      ExplicitLeft = -8
-      ExplicitTop = 134
-    end
-  end
-  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
-      Top = 150
-      Width = 157
-      Height = 33
-      Align = alBottom
-      Alignment = taCenter
-      AutoSize = False
-      Caption = 'Verplaatsen'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWhite
-      Font.Height = -27
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-      Layout = tlCenter
-      WordWrap = True
-      ExplicitLeft = -8
-      ExplicitTop = 134
-    end
-  end
-  object pnlAnnuleren: TPanel [5]
-    Left = 256
-    Top = 321
-    Width = 157
-    Height = 183
-    BevelOuter = bvNone
-    Color = 1513421
-    ParentBackground = False
-    TabOrder = 4
-    OnClick = pnlAnnulerenClick
-    object imgAnnuleren: TImage
-      Left = 14
-      Top = 16
-      Width = 128
-      Height = 128
-      Transparent = True
-      OnClick = imgAnnulerenClick
-    end
-    object lblAnnuleren: TLabel
-      Left = 0
-      Top = 150
-      Width = 157
-      Height = 33
-      Align = alBottom
-      Alignment = taCenter
-      AutoSize = False
-      Caption = 'Annuleren'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWhite
-      Font.Height = -27
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-      Layout = tlCenter
-      WordWrap = True
-      ExplicitLeft = -8
-      ExplicitTop = 134
-    end
-  end
-  object edtPallet: TEdit [6]
-    Left = 60
+  object edtPallet: TEdit [4]
+    Left = 56
     Top = 360
-    Width = 157
+    Width = 369
     Height = 47
     Alignment = taCenter
     AutoSize = False
@@ -150,8 +54,68 @@
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
-    TabOrder = 5
+    TabOrder = 2
     Visible = False
     OnKeyUp = edtPalletKeyUp
   end
+  object btnVerplaatsen: TButton [5]
+    Left = 56
+    Top = 221
+    Width = 369
+    Height = 81
+    Caption = 'Verplaatsen naar pallet'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -27
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ImageIndex = 14
+    ImageMargins.Left = 10
+    Images = ImagesScherm.ilAlgemeen48
+    ModalResult = 7
+    ParentFont = False
+    TabOrder = 3
+    WordWrap = True
+    OnClick = btnVerplaatsenClick
+  end
+  object btnWegnemen: TButton [6]
+    Left = 56
+    Top = 120
+    Width = 369
+    Height = 81
+    Caption = 'Wegnemen van pallet'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -27
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ImageIndex = 15
+    ImageMargins.Left = 10
+    Images = ImagesScherm.ilAlgemeen48
+    ModalResult = 6
+    ParentFont = False
+    TabOrder = 4
+    WordWrap = True
+    OnClick = btnWegnemenClick
+  end
+  object btnTerug: TButton [7]
+    Left = 56
+    Top = 423
+    Width = 369
+    Height = 81
+    Caption = 'Terug'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -27
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ImageIndex = 12
+    ImageMargins.Left = 10
+    Images = ImagesScherm.ilAlgemeen48
+    ModalResult = 7
+    ParentFont = False
+    TabOrder = 5
+    WordWrap = True
+    OnClick = btnTerugClick
+  end
 end