Index: VerpakkingsDefinitie/ApplicationContext.pas =================================================================== diff -u -r561 -r563 --- VerpakkingsDefinitie/ApplicationContext.pas (.../ApplicationContext.pas) (revision 561) +++ VerpakkingsDefinitie/ApplicationContext.pas (.../ApplicationContext.pas) (revision 563) @@ -9,11 +9,12 @@ uses ObserverPattern, - System.Generics.Collections; + System.Generics.Collections, + OptiServerService; // SUB CONTEXTS: klassen die overeenkomen met bepaalde sub-context (bv. alles gerelateerd met authenticatie). -// - UserServerService +// - User type TUserContext = class(TSubject) private @@ -32,6 +33,7 @@ property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage; end; + // - Product Selection TProductInformatie = class private FProductNr: Integer; @@ -51,7 +53,6 @@ TProductsContext = class(TSubject) private - FSessionKey: string; FProducten: TList; FIsOK: Boolean; @@ -67,17 +68,22 @@ property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage; end; + // - Product Detail + // TProductDetailInformatie = class() + // end; + TProductDetailContext = class(TSubject) private - FSessionKey: string; FGeselecteerdProduct: TProductInformatie; + FProductDetailInformatie: OptiServerService.pxBoxData; FIsOK: Boolean; FErrorMessage: string; FInternalErrorMessage: string; public procedure NotifyChanged(); property GeselecteerdProduct: TProductInformatie read FGeselecteerdProduct write FGeselecteerdProduct; + property ProductDetailInformatie: OptiServerService.pxBoxData read FProductDetailInformatie write FProductDetailInformatie; property IsOK: Boolean read FIsOK write FIsOK; property ErrorMessage: string read FErrorMessage write FErrorMessage;