Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r587 -r590
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 587)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 590)
@@ -40,6 +40,8 @@
     FPlaatsingByValue: TDictionary<String, String>;
     FRichtingByKey: TDictionary<String, String>;
     FRichtingByValue: TDictionary<String, String>;
+    FOptiTypeByKey: TDictionary<String, String>;
+    FOptiTypeByValue: TDictionary<String, String>;
 
     FIsOK: Boolean;
     FErrorMessage: string;
@@ -53,6 +55,8 @@
     property PlaatsingByValue: TDictionary<String, String> read FPlaatsingByValue;
     property Richtingen: TDictionary<String, String> read FRichtingByKey;
     property RichtingenByValue: TDictionary<String, String> read FRichtingByValue;
+    property OptiTypes: TDictionary<String, String> read FOptiTypeByKey;
+    property OptiTypesByValue: TDictionary<String, String> read FOptiTypeByValue;
 
     property IsOK: Boolean read FIsOK write FIsOK;
     property ErrorMessage: string read FErrorMessage write FErrorMessage;
@@ -123,18 +127,19 @@
     FID: string;
     FCutOrder: Integer;
 
+    FVolumeVanCaption: string;
     FBreedte: string;
     FDefaultBreedte: string;
     FDiepte: string;
     FDefaultDiepte: string;
     FHoogte: string;
     FDefaultHoogte: string;
     FAantal: string;
-    FDefaultAantal: string;
     FMaxCombinAantal: string;
-    FDefaultMaxCombinAantal: string;
     FPlaatsing: string;
     FDefaultPlaatsing: string;
+    FOptiType: string;
+    FDefaultOptiType: string;
 
     FPosities: TList<string>;
     FDefaultPosities: TList<string>;
@@ -156,18 +161,20 @@
     property ID: string read FID write FID;
     property CutOrder: Integer read FCutOrder write FCutOrder;
 
+    property VolumeVanCaption: string read FVolumeVanCaption write FVolumeVanCaption;
     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 DefaultPlaatsing: string read FDefaultPlaatsing write FDefaultPlaatsing;
+    property OptiType: string read FOptiType write FOptiType;
+    property DefaultOptiType: string read FDefaultOptiType write FDefaultOptiType;
+
     property Posities: TList<string> read FPosities;
     property DefaultPosities: TList<string> read FDefaultPosities;
     property Richtingen: TList<string> read FRichtingen;
@@ -241,6 +248,8 @@
   FPlaatsingByValue := TDictionary<String, String>.Create();
   FRichtingByKey := TDictionary<String, String>.Create();
   FRichtingByValue := TDictionary<String, String>.Create();
+  FOptiTypeByKey := TDictionary<String, String>.Create();
+  FOptiTypeByValue := TDictionary<String, String>.Create();
 end;
 
 procedure TUiInstellingenContext.NotifyChanged();