Index: PlanScan/Main.pas
===================================================================
diff -u -r352 -r353
--- PlanScan/Main.pas	(.../Main.pas)	(revision 352)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 353)
@@ -33,10 +33,12 @@
     procedure lblUitloggenClick(Sender: TObject);
     procedure lblDnaCodesClick(Sender: TObject);
     procedure lblGebruikersClick(Sender: TObject);
+    procedure lblWegwerppalletClick(Sender: TObject);
   private
     fUiContext: TUiContext;
     procedure HuidigeGebruikerAfmelden();
     function GebruikerInloggen(): boolean;
+    procedure ZetLinkseKnopGrijs(knopIndex: integer);
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
   end;
@@ -80,13 +82,21 @@
 procedure TfmMain.lblDnaCodesClick(Sender: TObject);
 begin
   pcFrames.ActivePage := tsDnaCodes;
+  ZetLinkseKnopGrijs(0)
 end;
 
 procedure TfmMain.lblGebruikersClick(Sender: TObject);
 begin
   pcFrames.ActivePage := tsGebruikers;
+  ZetLinkseKnopGrijs(1)
 end;
 
+procedure TfmMain.lblWegwerppalletClick(Sender: TObject);
+begin
+  //pcFrames.ActivePage := tsWegwerppallet;
+  ZetLinkseKnopGrijs(2)
+end;
+
 procedure TfmMain.lblUitloggenClick(Sender: TObject);
 begin
   HuidigeGebruikerAfmelden();
@@ -141,4 +151,17 @@
   //ZoekAlleGebruikers();
 end;
 
+procedure TfmMain.ZetLinkseKnopGrijs(knopIndex: integer);
+begin
+  lblDnaCodes.Color := $001717CD;
+  lblGebruikers.Color := $001717CD;
+  lblWegwerpPallet.Color := $001717CD;
+  case knopIndex of
+    0: lblDnaCodes.Color := clGray;
+    1: lblGebruikers.Color := clGray;
+    2: lblWegwerpPallet.Color := clGray;
+  end;
+  Repaint;
+end;
+
 end.