Index: PlanScan/Main.dfm
===================================================================
diff -u -r396 -r411
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 396)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 411)
@@ -20,21 +20,22 @@
   object pnlLinks: TPanel
     Left = 0
     Top = 0
-    Width = 185
+    Width = 200
     Height = 408
     Align = alLeft
     BevelOuter = bvNone
     TabOrder = 0
     object pnlNaam: TPanel
       Left = 0
       Top = 0
-      Width = 185
+      Width = 200
       Height = 169
       Align = alTop
       BevelOuter = bvNone
       Color = 1513421
       ParentBackground = False
       TabOrder = 0
+      ExplicitWidth = 185
       object lblInitialen: TLabel
         Left = 20
         Top = 53
@@ -70,7 +71,7 @@
     object pnlKnoppen: TPanel
       Left = 0
       Top = 169
-      Width = 185
+      Width = 200
       Height = 239
       Align = alClient
       BevelOuter = bvNone
@@ -79,14 +80,15 @@
       Padding.Right = 20
       ParentBackground = False
       TabOrder = 1
-      object lblWegwerppallet: TLabel
+      ExplicitWidth = 185
+      object lblKlantinstellingen: TLabel
         Left = 20
         Top = 80
-        Width = 145
+        Width = 160
         Height = 40
         Align = alTop
         AutoSize = False
-        Caption = 'Wegwerppallet'
+        Caption = 'Klantinstellingen'
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWhite
         Font.Height = -21
@@ -95,14 +97,13 @@
         ParentFont = False
         Transparent = True
         Layout = tlCenter
-        OnClick = lblWegwerppalletClick
-        ExplicitTop = 40
-        ExplicitWidth = 165
+        OnClick = lblKlantinstellingenClick
+        ExplicitWidth = 159
       end
       object lblDnaCodes: TLabel
         Left = 20
         Top = 0
-        Width = 145
+        Width = 160
         Height = 40
         Align = alTop
         AutoSize = False
@@ -121,7 +122,7 @@
       object lblGebruikers: TLabel
         Left = 20
         Top = 40
-        Width = 145
+        Width = 160
         Height = 40
         Align = alTop
         AutoSize = False
@@ -140,35 +141,39 @@
     end
   end
   object pnlFrames: TPanel
-    Left = 185
+    Left = 200
     Top = 0
-    Width = 926
+    Width = 911
     Height = 408
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 1
+    ExplicitLeft = 185
+    ExplicitWidth = 926
     object pcFrames: TPageControl
       Left = 0
       Top = 0
-      Width = 926
+      Width = 911
       Height = 408
       ActivePage = tsDnaCodes
       Align = alClient
       TabOrder = 0
+      ExplicitWidth = 926
       object tsDnaCodes: TTabSheet
         Caption = 'DnaCodes'
         TabVisible = False
+        ExplicitWidth = 918
         inline frmDnaCodes: TfrmDnaCodes
           Left = 0
           Top = 0
-          Width = 918
+          Width = 903
           Height = 398
           Align = alClient
           TabOrder = 0
           ExplicitWidth = 918
           ExplicitHeight = 398
           inherited dbgDnaCodes: TDBGrid
-            Width = 791
+            Width = 776
             Height = 325
             Columns = <
               item
@@ -213,13 +218,13 @@
               end>
           end
           inherited pnlActies: TPanel
-            Left = 791
+            Left = 776
             Height = 325
             ExplicitLeft = 791
             ExplicitHeight = 325
           end
           inherited pnlZoekKnoppen: TPanel
-            Width = 918
+            Width = 903
             ExplicitWidth = 918
           end
         end
@@ -228,21 +233,22 @@
         Caption = 'Gebruikers'
         ImageIndex = 1
         TabVisible = False
+        ExplicitWidth = 918
         inline frmGebruikers: TfrmGebruikers
           Left = 0
           Top = 0
-          Width = 918
+          Width = 903
           Height = 398
           Align = alClient
           TabOrder = 0
           ExplicitWidth = 918
           ExplicitHeight = 398
           inherited dbgGebruikers: TDBGrid
-            Width = 791
+            Width = 776
             Height = 398
           end
           inherited Panel1: TPanel
-            Left = 791
+            Left = 776
             Height = 398
             ExplicitLeft = 791
             ExplicitHeight = 398
@@ -253,24 +259,25 @@
         Caption = 'tsKlantinstellingen'
         ImageIndex = 2
         TabVisible = False
+        ExplicitWidth = 918
         inline frmKlantinstellingen: TfrmKlantinstellingen
           Left = 0
           Top = 0
-          Width = 918
+          Width = 903
           Height = 398
           Align = alClient
           TabOrder = 0
           ExplicitWidth = 918
           ExplicitHeight = 398
           inherited dbgKlantinstellingen: TDBGrid
-            Width = 791
+            Width = 776
             Height = 398
           end
           inherited Panel1: TPanel
-            Left = 791
+            Left = 776
             Height = 398
-            ExplicitLeft = 799
-            ExplicitHeight = 408
+            ExplicitLeft = 791
+            ExplicitHeight = 398
           end
         end
       end
Index: PlanScan/Main.pas
===================================================================
diff -u -r370 -r411
--- PlanScan/Main.pas	(.../Main.pas)	(revision 370)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 411)
@@ -22,7 +22,7 @@
     tsGebruikers: TTabSheet;
     lblInitialen: TLabel;
     lblUitloggen: TLabel;
-    lblWegwerppallet: TLabel;
+    lblKlantinstellingen: TLabel;
     lblDnaCodes: TLabel;
     lblGebruikers: TLabel;
     frmDnaCodes: TfrmDnaCodes;
@@ -34,7 +34,7 @@
     procedure lblUitloggenClick(Sender: TObject);
     procedure lblDnaCodesClick(Sender: TObject);
     procedure lblGebruikersClick(Sender: TObject);
-    procedure lblWegwerppalletClick(Sender: TObject);
+    procedure lblKlantinstellingenClick(Sender: TObject);
     procedure frmDnaCodesbtnZoekenClick(Sender: TObject);
   private
     fUiContext: TUiContext;
@@ -97,7 +97,7 @@
   ZetLinkseKnopGrijs(1)
 end;
 
-procedure TfmMain.lblWegwerppalletClick(Sender: TObject);
+procedure TfmMain.lblKlantinstellingenClick(Sender: TObject);
 begin
   frmKlantinstellingen.ZoekAlleKlantinstellingen;
   pcFrames.ActivePage := tsKlantinstellingen;
@@ -155,11 +155,11 @@
 begin
   lblDnaCodes.Color := $001717CD;
   lblGebruikers.Color := $001717CD;
-  lblWegwerpPallet.Color := $001717CD;
+  lblKlantinstellingen.Color := $001717CD;
   case knopIndex of
     0: lblDnaCodes.Color := clGray;
     1: lblGebruikers.Color := clGray;
-    2: lblWegwerpPallet.Color := clGray;
+    2: lblKlantinstellingen.Color := clGray;
   end;
   Repaint;
 end;