Index: AAPClient/UI/DnaCodeScherm.dfm
===================================================================
diff -u -r95 -r126
--- AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 95)
+++ AAPClient/UI/DnaCodeScherm.dfm	(.../DnaCodeScherm.dfm)	(revision 126)
@@ -3,66 +3,107 @@
   Caption = 'fmDnaCodeScherm'
   PixelsPerInch = 96
   TextHeight = 19
-  object lblToelevering: TLabel [1]
-    Left = 144
-    Top = 8
-    Width = 73
-    Height = 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 [2]
+  object lblScancode: TLabel [1]
     Left = 108
     Top = 40
     Width = 109
     Height = 19
     Caption = 'Scan DNA code'
   end
-  object lblPalletCode: TLabel [3]
-    Left = 8
-    Top = 100
-    Width = 73
-    Height = 19
+  object lblHuidigePalletData: TLabel [2]
+    Left = 269
+    Top = 396
+    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 [4]
-    Left = 8
-    Top = 140
-    Width = 113
-    Height = 19
-    AutoSize = False
+  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 [5]
-    Left = 144
-    Top = 140
-    Width = 73
-    Height = 19
+  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 [6]
-    Left = 8
-    Top = 68
-    Width = 33
-    Height = 19
+  object lblAantalGescand: TLabel [5]
+    Left = 175
+    Top = 108
+    Width = 51
+    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 [7]
-    Left = 47
-    Top = 68
-    Width = 33
-    Height = 19
+  object lblTotaalAantal: TLabel [6]
+    Left = 250
+    Top = 108
+    Width = 51
+    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 [8]
-    Left = 41
-    Top = 68
-    Width = 9
-    Height = 19
+  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 [9]
+  object imgGls: TImage [8]
     Left = 77
     Top = 2
     Width = 32
@@ -141,31 +182,72 @@
       494E434F525320476D6248108E214F0000000049454E44AE426082}
     Visible = False
   end
-  object edtDnaCode: TEdit [12]
-    Left = 108
-    Top = 65
-    Width = 109
-    Height = 27
+  object lblHuidigePallet: TLabel [9]
+    Left = 39
+    Top = 396
+    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
+  end
+  inherited pnlDrieKnoppen: TPanel
+    ExplicitTop = 508
+  end
+  object edtDnaCode: TEdit [15]
+    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 btnRechtsOnder: TButton
-    TabOrder = 3
-  end
-  object btnInfo: TButton [14]
-    Left = 108
-    Top = 2
-    Width = 34
-    Height = 34
-    ParentCustomHint = False
-    ImageAlignment = iaCenter
-    ImageIndex = 2
-    Images = ImagesScherm.ilAlgemeen32
-    ModalResult = 8
-    TabOrder = 4
-    OnClick = btnInfoClick
-  end
   inherited alAlgemeen: TActionList
     Left = 16
     Top = 160