Index: VerpakkingsDefinitie/UI/NavProductScherm.pas =================================================================== diff -u -r593 -r594 --- VerpakkingsDefinitie/UI/NavProductScherm.pas (.../NavProductScherm.pas) (revision 593) +++ VerpakkingsDefinitie/UI/NavProductScherm.pas (.../NavProductScherm.pas) (revision 594) @@ -28,7 +28,7 @@ uses Util, - ZoekProductenScherm, GebruikerScherm, GevondenProductenScherm, ProductDetailScherm; + ZoekProductenScherm, GebruikerScherm, GevondenProductenScherm, ProductDetailScherm, VerpakkingDetailScherm; constructor TFormProductNav.Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext; UserAgent: TUserAgent; ProductsAgent: TProductsAgent); @@ -70,10 +70,13 @@ begin // Geen nieuw grid plaatsen wanneer er al een aanwezig is if GridPanelRight.ControlCount = 0 then + begin // Vul rechtergrid TUtil.PlaatsControlOpGrid(GridPanelRight, TFormProductDetail.Create(GridPanelRight, self, ApplicationContext, - ApplicationContext.ProductVerpakkingContext), 0, 0, 2); - + ApplicationContext.ProductsContext, FProductsAgent), 0, 0); + TUtil.PlaatsControlOpGrid(GridPanelRight, TFormVerpakkingDetail.Create(GridPanelRight, self, ApplicationContext, + ApplicationContext.ProductVerpakkingContext), 1, 0); + end; end; NAVTOONPRODUCTVERPAKKING: begin