Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u -r591 -r592
--- VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 591)
+++ VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 592)
@@ -43,8 +43,7 @@
 implementation
 
 uses
-  Subscherm, NavGridPanel, Util,
-  LogInScherm, ZoekProductenScherm, GebruikerScherm, GevondenProductenScherm, ProductDetailScherm;
+  Util, LogInScherm, NavProductScherm;
 
 {$R *.dfm}
 
@@ -68,7 +67,6 @@
 procedure TFormMain.NavigeerNaar(schermId: Integer);
 var
   NieuwScherm: TControl;
-  NavGridPanelStandard: TNavGridPanelStandard;
 begin
   Application.ProcessMessages; // Interrupts the execution of an application so that it can process the message queue.
 
@@ -79,24 +77,7 @@
 
   case schermId of
     NAVHOME, NAVZOEKPRODUCTEN:
-      begin
-        { TODO -cUI : Onderzoeken of 'TSplitter' een beter alternatief is dan volledig een gridview }
-
-        // Gebruikersgegevens scherm, zoekscherm, resultaten en detail scherm inladen.
-        NavGridPanelStandard := TNavGridPanelStandard.Create(PanelMain);
-        NieuwScherm := NavGridPanelStandard;
-        FProductsAgent.LaadUIInstellingen(FAppContext.UserContext, FAppContext.UiInstellingenContext);
-
-        // Gebruikersgegevens scherm bovenaan
-        // Zoekscherm daaronder links
-        // Resultaten scherm daaronder links
-        // Rechts is helemaal voor detail scherm
-        NavGridPanelStandard.Init(TFormGebruiker.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.UserContext,
-            FUserAgent), TFormZoekProducten.Create(NavGridPanelStandard, Self, FAppContext, FProductsAgent),
-          TFormGevondenProducten.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.ProductsContext, FProductsAgent),
-          TFormProductDetail.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.ProductVerpakkingContext));
-      end;
-
+      NieuwScherm := TFormProductNav.Create(PanelMain, Self, FAppContext, FUserAgent, FProductsAgent);
     NAVLOGIN:
       NieuwScherm := TFormLogin.Create(PanelMain, Self, FAppContext, FUserAgent);
   else