Index: VerpakkingsDefinitie/Main.pas =================================================================== diff -u -r561 -r562 --- VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 561) +++ VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 562) @@ -28,7 +28,7 @@ private FAppContext: TApplicationContext; FUserAgent: TUserAgent; - FProductAgent: TProductsAgent; + FProductsAgent: TProductsAgent; public procedure NavigeerNaar(schermId: Integer); end; @@ -58,7 +58,7 @@ begin FAppContext := TApplicationContext.Create(); FUserAgent := TUserAgent.Create(); - FProductAgent := TProductsAgent.Create(); + FProductsAgent := TProductsAgent.Create(); { TODO -cMain: Wat doet dit in de originele applicatie?: fUiContext.ImagesScherm := TImagesScherm.Create(self); } { TODO -cMain: Kijken of "VerwerkParamStrings;" nodig is } PanelMain.Parent := Self; @@ -94,10 +94,10 @@ // 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, FProductAgent), - TFormGevondenProducten.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.ProductsContext), - TFormLogin.Create(NavGridPanelStandard, Self, FAppContext, FUserAgent) + TFormGebruiker.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.UserContext, FUserAgent), + TFormZoekProducten.Create(NavGridPanelStandard, Self, FAppContext, FProductsAgent), + TFormGevondenProducten.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.ProductsContext, FProductsAgent), + TFormLogin.Create(NavGridPanelStandard, Self, FAppContext, FUserAgent) ); end;