Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r579 -r580
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 579)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 580)
@@ -10,7 +10,7 @@
 uses
   ObserverPattern,
   System.Generics.Collections, SysUtils,
-  OptiServerService, UI_Data;
+  OptiServerService;
 
 // SUB CONTEXTS: klassen die overeenkomen met bepaalde sub-context (bv. alles gerelateerd met authenticatie).
 
@@ -34,16 +34,30 @@
   end;
 
   // - UI instellingen
+  TPair = class
+  private
+    FKey: string;
+    FValue: string;
+  public
+    property Key: string read FKey write FKey;
+    property Value: string read FValue write FValue;
+  end;
+
   TUiInstellingenContext = class(TSubject)
   private
-    FInstellingen: UI_Data.IXMLOptiBoxType;
+    FPositie: TList<TPair>;
+    FPlaatsing: TList<TPair>;
+    FRichting: TList<TPair>;
 
     FIsOK: Boolean;
     FErrorMessage: string;
     FInternalErrorMessage: string;
   public
+    constructor Create();
     procedure NotifyChanged();
-    property Instellingen: UI_Data.IXMLOptiBoxType read FInstellingen write FInstellingen;
+    property Positie: TList<TPair> read FPositie write FPositie;
+    property Plaatsing: TList<TPair> read FPlaatsing write FPlaatsing;
+    property Richting: TList<TPair> read FRichting write FRichting;
     property IsOK: Boolean read FIsOK write FIsOK;
     property ErrorMessage: string read FErrorMessage write FErrorMessage;
     property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
@@ -138,6 +152,14 @@
 end;
 
 // UiInstellingen
+constructor TUiInstellingenContext.Create();
+begin
+  inherited Create();
+  FPositie := TList<TPair>.Create();
+  FPlaatsing := TList<TPair>.Create();
+  FRichting := TList<TPair>.Create();
+end;
+
 procedure TUiInstellingenContext.NotifyChanged();
 begin
   self.Change();