Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r140 -r142
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 140)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 142)
@@ -73,7 +73,7 @@
   fWaarschuwingModalResult: TModalResult;
 begin
   Self.ModalResult := mrInfoLog;
-  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',true);
+  fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',true,6,7);
 
   if fWaarschuwingModalResult = mrYes then begin
     Service := DnaCodeService.GetDnaCodeServiceSoap();
@@ -92,7 +92,7 @@
       Response := Service.DnaCodeAfmelden(Request);
       try
         if Response.Header.Status <> '200' then begin
-          ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
+          ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
         end else begin
           VulGridMetToeleveringData(Response.DnaCodes);
         end;
@@ -176,7 +176,7 @@
     Response := Service.ZoekViaToelevering(Request);
     try
       if Response.Header.Status <> '200' then begin
-        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
+        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
       end else begin
         if ToonGescand then begin
           lblAantallen.Caption := 'Afgescand';
@@ -199,6 +199,7 @@
 procedure TfmInfoLogScherm.VulGridMetToeleveringData(DnaCodes: array of DnaCode);
 var
   DnaCodeTeller: Integer;
+  VuilbakTonen: boolean;
 begin
   GridLeegMaken();
   for DnaCodeTeller := 0 to length(DnaCodes)-1  do begin
@@ -211,7 +212,16 @@
   end;
   if sgToeleveringData.RowCount > 2 then
     sgToeleveringData.RowCount := sgToeleveringData.RowCount - 1;
-  actOngedaanMaken.Enabled := GridToontData and ToonGescand;
+  VuilbakTonen := GridToontData and ToonGescand;
+  if VuilbakTonen then begin
+    actOngedaanMaken.Enabled := true;
+    imgCentraalOnder.Visible := true;
+    btnCentraalOnder.Action := actOngedaanMaken;
+  end else begin
+    actOngedaanMaken.Enabled := false;
+    imgCentraalOnder.Visible := false;
+    btnCentraalOnder.Action := nil;
+  end;
 end;
 
 procedure TfmInfoLogScherm.GridLeegmaken;