Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r510 -r513
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 510)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 513)
@@ -558,12 +558,21 @@
 procedure TfmDnaCodeScherm.ZetAfrondActieStatus(actief: boolean);
 begin
   if actief then begin
+    pnlLinksOnder.Color := $001717CD;
+    actPallet.OnExecute := actPalletExecute;
+    pnlCentraalOnder.Color := $001717CD;
+    actHome.OnExecute := actHomeExecute;
     pnlRechtsOnder.Color := $001717CD;
     actAfronden.OnExecute := actAfrondenExecute;
   end else begin
+    pnlLinksOnder.Color := clGray;
+    pnlCentraalOnder.Color := clGray;
     pnlRechtsOnder.Color := clGray;
     actAfronden.OnExecute := nil;
+    actPallet.OnExecute := nil;
+    actHome.OnExecute := nil;
   end;
+  Repaint;
 end;
 
 procedure TfmDnaCodeScherm.ZetIcoontjesBovenaan;