Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r586 -r587
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 586)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 587)
@@ -3,7 +3,6 @@
 // Dit is een klasse bedoeld om data te delen over de applicatie heen.
 // Dit kan bijvoorbeeld usernaam, login token, computernaam, ...
 // Informatie die elk component/klasse kan gebruiken.
-// Voor schaalbaarheid en isolatie worden interfaces gebruikt die deze klasse implementeert.
 
 interface
 
@@ -102,6 +101,21 @@
   end;
 
   // - Product Detail
+  TProductVerpakkingParameter = class
+  private
+    FID: string;
+    FProgLabel: string;
+    FToolTip: string;
+    FWaarde: string;
+    FDefaultWaarde: string;
+  public
+    property ID: string read FID write FID;
+    property ProgLabel: string read FProgLabel write FProgLabel;
+    property ToolTip: string read FToolTip write FToolTip;
+    property Waarde: string read FWaarde write FWaarde;
+    property DefaultWaarde: string read FDefaultWaarde write FDefaultWaarde;
+  end;
+
   TProductVerpakking = class
   private
     FRawData: TObject;
@@ -127,6 +141,8 @@
     FRichtingen: TList<string>;
     FDefaultRichtingen: TList<string>;
 
+    FParameters: TList<TProductVerpakkingParameter>;
+
     FDeelVanID: string;
     FDeelVanCaption: string;
     FDeelVan: TProductVerpakking;
@@ -157,6 +173,8 @@
     property Richtingen: TList<string> read FRichtingen;
     property DefaultRichtingen: TList<string> read FDefaultRichtingen;
 
+    property Parameters: TList<TProductVerpakkingParameter> read FParameters;
+
     property DeelVanID: string read FDeelVanID write FDeelVanID;
     property DeelVanCaption: string read FDeelVanCaption write FDeelVanCaption;
     property DeelVan: TProductVerpakking read FDeelVan write FDeelVan;
@@ -334,6 +352,8 @@
   FDefaultPosities := TList<string>.Create();
   FRichtingen := TList<string>.Create();
   FDefaultRichtingen := TList<string>.Create();
+
+  FParameters := TList<TProductVerpakkingParameter>.Create();
 end;
 
 function TProductVerpakking.Equals(Obj: TObject): Boolean;