Index: PlanScan/Main.dfm
===================================================================
diff -u -r352 -r353
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 352)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 353)
@@ -88,12 +88,13 @@
       BevelOuter = bvNone
       Color = 1513421
       Padding.Left = 20
+      Padding.Right = 20
       ParentBackground = False
       TabOrder = 1
       object lblWegwerppallet: TLabel
         Left = 20
         Top = 80
-        Width = 165
+        Width = 145
         Height = 40
         Align = alTop
         AutoSize = False
@@ -104,12 +105,16 @@
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False
+        Transparent = False
+        Layout = tlCenter
+        OnClick = lblWegwerppalletClick
         ExplicitTop = 40
+        ExplicitWidth = 165
       end
       object lblDnaCodes: TLabel
         Left = 20
         Top = 0
-        Width = 165
+        Width = 145
         Height = 40
         Align = alTop
         AutoSize = False
@@ -120,12 +125,15 @@
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False
+        Transparent = False
+        Layout = tlCenter
         OnClick = lblDnaCodesClick
+        ExplicitWidth = 165
       end
       object lblGebruikers: TLabel
         Left = 20
         Top = 40
-        Width = 165
+        Width = 145
         Height = 40
         Align = alTop
         AutoSize = False
@@ -136,7 +144,10 @@
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False
+        Transparent = False
+        Layout = tlCenter
         OnClick = lblGebruikersClick
+        ExplicitWidth = 165
       end
     end
   end
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.