Index: VerpakkingsDefinitie/ApplicationContext.pas =================================================================== diff -u -r591 -r594 --- VerpakkingsDefinitie/ApplicationContext.pas (.../ApplicationContext.pas) (revision 591) +++ VerpakkingsDefinitie/ApplicationContext.pas (.../ApplicationContext.pas) (revision 594) @@ -200,7 +200,7 @@ constructor Create(); end; - TProductVerpakkingContext = class(TSubject) + TProductVerpakkingenContext = class(TSubject) private FProductVerpakkingen: TList; FGeselecteerdeVerpakking: TProductVerpakking; @@ -231,13 +231,13 @@ FUserContext: TUserContext; FUiInstellingenContext: TUiInstellingenContext; FProductsContext: TProductsContext; - FProductDetailContext: TProductVerpakkingContext; + FProductDetailContext: TProductVerpakkingenContext; public constructor Create(); property UserContext: TUserContext read FUserContext write FUserContext; property UiInstellingenContext: TUiInstellingenContext read FUiInstellingenContext write FUiInstellingenContext; property ProductsContext: TProductsContext read FProductsContext write FProductsContext; - property ProductVerpakkingContext: TProductVerpakkingContext read FProductDetailContext write FProductDetailContext; + property ProductVerpakkingContext: TProductVerpakkingenContext read FProductDetailContext write FProductDetailContext; end; implementation @@ -326,18 +326,18 @@ end; // PRODUCT DETAIL -constructor TProductVerpakkingContext.Create; +constructor TProductVerpakkingenContext.Create; begin inherited Create(); FProductVerpakkingen := TList.Create(); end; -procedure TProductVerpakkingContext.NotifyChanged(); +procedure TProductVerpakkingenContext.NotifyChanged(); begin self.Change(); end; -procedure TProductVerpakkingContext.Reset(); +procedure TProductVerpakkingenContext.Reset(); begin if (FGeselecteerdeVerpakking <> nil) or (FProductVerpakkingen.Count > 0) then begin @@ -347,7 +347,7 @@ end; end; -function TProductVerpakkingContext.GetDeelVanOpties(ProductVerpakking: TProductVerpakking): TList; +function TProductVerpakkingenContext.GetDeelVanOpties(ProductVerpakking: TProductVerpakking): TList; var ProductVerpakkingTeZoeken: TProductVerpakking; Namen: TList; @@ -401,7 +401,7 @@ FUserContext := TUserContext.Create(); FUiInstellingenContext := TUiInstellingenContext.Create(); FProductsContext := TProductsContext.Create(); - FProductDetailContext := TProductVerpakkingContext.Create(); + FProductDetailContext := TProductVerpakkingenContext.Create(); end; end.