Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u -r593 -r610
--- VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 593)
+++ VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 610)
@@ -6,28 +6,26 @@
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
-  ApplicationContext, UserAgent, ProductsAgent, Navigator;
+  ApplicationContext, UserAgent, ProductsAgent, ConfigAgent, Navigator;
 
 type
   TControlArray = Array of TControl;
 
   TFormMain = class(TForm, INavigator)
     PanelMain: TPanel;
     PanelGebruiker: TPanel;
+    PanelTestOmgeving: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   private
     FAppContext: TApplicationContext;
+    FConfigAgent: TConfigAgent;
     FUserAgent: TUserAgent;
     FProductsAgent: TProductsAgent;
   public
     procedure NavigeerNaar(schermId: Integer);
   end;
 
-  TCustomControl = Class(TControl)
-
-  End;
-
 var
   FormMain: TFormMain;
 
@@ -47,9 +45,15 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   FAppContext := TApplicationContext.Create();
-  FUserAgent := TUserAgent.Create();
-  FProductsAgent := TProductsAgent.Create();
+  FConfigAgent := TConfigAgent.Create();
+  FConfigAgent.LaadConfigWaarden(Application.ExeName, FAppContext.ConfigsContext);
+  FUserAgent := TUserAgent.Create(FAppContext.ConfigsContext.UserServerUrl);
+  FProductsAgent := TProductsAgent.Create(FAppContext.ConfigsContext.SelectServerUrl, FAppContext.ConfigsContext.OptiServerUrl);
 
+  // Panel voor productiestatus tonen indien nodig
+  PanelTestOmgeving.Visible := not FAppContext.ConfigsContext.IsProductieOmgeving;
+
+  // Form gebruiker aanmaken bij creatie
   with TFormGebruiker.Create(PanelGebruiker, Self, FAppContext, FAppContext.UserContext, FUserAgent) do
   begin
     Parent := PanelGebruiker;