Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r176 -r178
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 176)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 178)
@@ -161,10 +161,10 @@
                  lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                  imgInfo.Visible := true;
                  if Response.DnaCodes[0].IsGlsDirect then begin
-                   ToonPopupScherm('GLS Direct', 'OK');
+                   ToonPopupScherm('GLS Direct', 'OK','',16,-1,-1,clBlue);
                  end;
                  if Response.DnaCodes[0].IsWegwerpPallet then begin
-                   ToonPopupScherm('Wegwerppallet', 'OK');
+                   ToonPopupScherm('Wegwerppallet', 'OK','',15,-1,-1,clYellow);
                    imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;
                  end;
                  Self.ModalResult := mrDnaCode;