Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r585 -r586
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 585)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 586)
@@ -35,19 +35,26 @@
   // - UI instellingen
   TUiInstellingenContext = class(TSubject)
   private
-    FPositie: TDictionary<String, String>;
-    FPlaatsing: TDictionary<String, String>;
-    FRichting: TDictionary<String, String>;
+    FPositieByKey: TDictionary<String, String>;
+    FPositieByValue: TDictionary<String, String>;
+    FPlaatsingByKey: TDictionary<String, String>;
+    FPlaatsingByValue: TDictionary<String, String>;
+    FRichtingByKey: TDictionary<String, String>;
+    FRichtingByValue: TDictionary<String, String>;
 
     FIsOK: Boolean;
     FErrorMessage: string;
     FInternalErrorMessage: string;
   public
     constructor Create();
     procedure NotifyChanged();
-    property Positie: TDictionary<String, String> read FPositie write FPositie;
-    property Plaatsing: TDictionary<String, String> read FPlaatsing write FPlaatsing;
-    property Richting: TDictionary<String, String> read FRichting write FRichting;
+    property Posities: TDictionary<String, String> read FPositieByKey;
+    property PositiesByValue: TDictionary<String, String> read FPositieByValue;
+    property Plaatsing: TDictionary<String, String> read FPlaatsingByKey;
+    property PlaatsingByValue: TDictionary<String, String> read FPlaatsingByValue;
+    property Richtingen: TDictionary<String, String> read FRichtingByKey;
+    property RichtingenByValue: TDictionary<String, String> read FRichtingByValue;
+
     property IsOK: Boolean read FIsOK write FIsOK;
     property ErrorMessage: string read FErrorMessage write FErrorMessage;
     property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
@@ -100,44 +107,65 @@
     FRawData: TObject;
 
     FID: string;
-    FMetaCaption: string;
     FCutOrder: Integer;
+
     FBreedte: string;
     FDefaultBreedte: string;
     FDiepte: string;
     FDefaultDiepte: string;
     FHoogte: string;
     FDefaultHoogte: string;
     FAantal: string;
+    FDefaultAantal: string;
     FMaxCombinAantal: string;
+    FDefaultMaxCombinAantal: string;
     FPlaatsing: string;
-    FPositie: string;
-    FRichting: string;
+    FDefaultPlaatsing: string;
 
+    FPosities: TList<string>;
+    FDefaultPosities: TList<string>;
+    FRichtingen: TList<string>;
+    FDefaultRichtingen: TList<string>;
+
     FDeelVanID: string;
+    FDeelVanCaption: string;
     FDeelVan: TProductVerpakking;
+
+    FMetaCaption: string;
+
+    function GetMetaCaptionDisplay(): string;
   public
     property RawData: TObject read FRawData write FRawData;
 
     property ID: string read FID write FID;
-    property MetaCaption: string read FMetaCaption write FMetaCaption;
     property CutOrder: Integer read FCutOrder write FCutOrder;
+
     property Breedte: string read FBreedte write FBreedte;
     property DefaultBreedte: string read FDefaultBreedte write FDefaultBreedte;
     property Diepte: string read FDiepte write FDiepte;
     property DefaultDiepte: string read FDefaultDiepte write FDefaultDiepte;
     property Hoogte: string read FHoogte write FHoogte;
     property DefaultHoogte: string read FDefaultHoogte write FDefaultHoogte;
     property Aantal: string read FAantal write FAantal;
+    property DefaultAantal: string read FDefaultAantal write FDefaultAantal;
     property MaxCombinAantal: string read FMaxCombinAantal write FMaxCombinAantal;
+    property DefaultMaxCombinAantal: string read FDefaultMaxCombinAantal write FDefaultMaxCombinAantal;
     property Plaatsing: string read FPlaatsing write FPlaatsing;
-    property Positie: string read FPositie write FPositie;
-    property Richting: string read FRichting write FRichting;
+    property DefaultPlaatsing: string read FDefaultPlaatsing write FDefaultPlaatsing;
+    property Posities: TList<string> read FPosities;
+    property DefaultPosities: TList<string> read FDefaultPosities;
+    property Richtingen: TList<string> read FRichtingen;
+    property DefaultRichtingen: TList<string> read FDefaultRichtingen;
 
     property DeelVanID: string read FDeelVanID write FDeelVanID;
+    property DeelVanCaption: string read FDeelVanCaption write FDeelVanCaption;
     property DeelVan: TProductVerpakking read FDeelVan write FDeelVan;
 
+    property MetaCaption: string write FMetaCaption;
+    property MetaCaptionDisplay: string read GetMetaCaptionDisplay;
+
     function Equals(Obj: TObject): Boolean; override;
+    constructor Create();
   end;
 
   TProductDetailContext = class(TSubject)
@@ -189,9 +217,12 @@
 constructor TUiInstellingenContext.Create();
 begin
   inherited Create();
-  FPositie := TDictionary<String, String>.Create();
-  FPlaatsing := TDictionary<String, String>.Create();
-  FRichting := TDictionary<String, String>.Create();
+  FPositieByKey := TDictionary<String, String>.Create();
+  FPositieByValue := TDictionary<String, String>.Create();
+  FPlaatsingByKey := TDictionary<String, String>.Create();
+  FPlaatsingByValue := TDictionary<String, String>.Create();
+  FRichtingByKey := TDictionary<String, String>.Create();
+  FRichtingByValue := TDictionary<String, String>.Create();
 end;
 
 procedure TUiInstellingenContext.NotifyChanged();
@@ -288,13 +319,23 @@
   for ProductVerpakkingTeZoeken in FProductVerpakkingen do
   begin
     if not ProductVerpakkingTeZoeken.Equals(ProductVerpakking) then
-      Namen.Add(intToStr(ProductVerpakkingTeZoeken.CutOrder) + ': ' + ProductVerpakkingTeZoeken.MetaCaption)
+      Namen.Add(intToStr(ProductVerpakkingTeZoeken.CutOrder) + ': ' + ProductVerpakkingTeZoeken.MetaCaptionDisplay)
   end;
 
   Result := Namen;
 end;
 
 // Product verpakking
+constructor TProductVerpakking.Create();
+begin
+  inherited Create();
+
+  FPosities := TList<string>.Create();
+  FDefaultPosities := TList<string>.Create();
+  FRichtingen := TList<string>.Create();
+  FDefaultRichtingen := TList<string>.Create();
+end;
+
 function TProductVerpakking.Equals(Obj: TObject): Boolean;
 begin
   if Obj = nil then
@@ -307,6 +348,14 @@
     Result := false;
 end;
 
+function TProductVerpakking.GetMetaCaptionDisplay(): string;
+begin
+  if FMetaCaption <> '' then
+    Result := copy(FMetaCaption, Pos(':', FMetaCaption) + 2)
+  else
+    Result := '';
+end;
+
 // APPLICATION CONTEXT
 constructor TApplicationContext.Create();
 begin