Index: VerpakkingsDefinitie/Main.pas
===================================================================
diff -u -r550 -r551
--- VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 550)
+++ VerpakkingsDefinitie/Main.pas	(.../Main.pas)	(revision 551)
@@ -9,8 +9,9 @@
   ApplicationContext;
 
 const
-  FORMLOGINID = 1;
-  FORMZOEKPRODUCTENID = 2;
+  NAVHOME = 0;
+  NAVLOGIN = 1;
+  NAVZOEKPRODUCTEN = 2;
 
 type
   TFormMain = class(TForm)
@@ -38,36 +39,37 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   fAppContext := TApplicationContext.Create();
-  // TODO Wat doet dit in de originele applicatie?: fUiContext.ImagesScherm := TImagesScherm.Create(self);
-  // TODO kijken of "VerwerkParamStrings;" nodig is
-
+  { TODO -cMain: Wat doet dit in de originele applicatie?: fUiContext.ImagesScherm := TImagesScherm.Create(self);  }
+  { TODO -cMain: Kijken of "VerwerkParamStrings;" nodig is }
+  { TODO -cNavigatie :
+    'Scherm' cre�ren vanuit code. Tweede 'scherm' maken met twee secties (30%-70%). }
   PanelMain := TPanel.Create(Self);
   PanelMain.Parent := Self;
   PanelMain.Align := alClient;
 
-  Self.NavigeerNaar(FORMLOGINID);
+  Self.NavigeerNaar(NAVLOGIN);
 end;
 
-  // TODO afmeld optie toevoegen
+// { TODO -cMain:  afmeld optie toevoegen }
 
 procedure TFormMain.NavigeerNaar(schermId: Integer);
 begin
   Application.ProcessMessages; // Interrupts the execution of an application so that it can process the message queue.
 
   // Volgende subscherm laden in panel
-  begin
-    fHuidigScherm.Free;
-    case schermId of
-      FORMLOGINID:
-        fHuidigScherm := TFormLogin.Create(PanelMain, fAppContext);
-      FORMZOEKPRODUCTENID:
-        fHuidigScherm := TFormZoekProducten.Create(PanelMain, fAppContext);
-    end;
-
-    fHuidigScherm.Parent := PanelMain;
-    fHuidigScherm.Align := alClient;
-    fHuidigScherm.Show;
+  fHuidigScherm.Free;
+  case schermId of
+    NAVHOME:
+      fHuidigScherm := TFormZoekProducten.Create(PanelMain, Self, fAppContext);
+    NAVLOGIN:
+      fHuidigScherm := TFormLogin.Create(PanelMain, Self, fAppContext);
+    NAVZOEKPRODUCTEN:
+      fHuidigScherm := TFormZoekProducten.Create(PanelMain, Self, fAppContext);
   end;
+
+  fHuidigScherm.Parent := PanelMain;
+  fHuidigScherm.Align := alClient;
+  fHuidigScherm.Show;
 end;
 
 end.