Index: AAPClient/UI/HernoemPalletScherm.dfm
===================================================================
diff -u -r218 -r236
--- AAPClient/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 218)
+++ AAPClient/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 236)
@@ -77,6 +77,10 @@
       Caption = 'tsResultaat'
       ImageIndex = 1
       TabVisible = False
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object sgToeleveringData: TStringGrid
         Left = 4
         Top = 18
@@ -145,6 +149,10 @@
       Caption = 'tsNieuweCode'
       ImageIndex = 2
       TabVisible = False
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object lblNieuweCode: TLabel
         Left = 13
         Top = 158
Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r220 -r236
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 220)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 236)
@@ -159,7 +159,7 @@
         VulGridMetToeleveringData(Response.DnaCodes);
         pcHernoemPallet.ActivePageIndex := 1;
       end else begin
-        ToonPopupScherm(Response.Header.Omschrijving, 'OK','');
+        ToonPopupScherm(Response.Header.Omschrijving, 'OK','',19,-1,-1,clGreen);
         Self.ModalResult := mrHome;
       end;
     end;