Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r679 -r681
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 679)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 681)
@@ -6,18 +6,19 @@
   Images, Classes;
 
 const
-  mrLogin               = 101;
-  mrHome                = 102;
-  mrPallet              = 103;
-  mrBestaandePallet     = 104;
-  mrDnaCode             = 105;
-  mrInfoLog             = 106;
-  mrHernoemPallet       = 107;
-  mrDnaCodeReedsGescand = 108;
-  mrOnderdelen          = 109;
-  modusDefault          = 1;
-  modusKAD              = 2;
-  modusVHOSS            = 3;
+  mrLogin                 = 101;
+  mrHome                  = 102;
+  mrPallet                = 103;
+  mrBestaandePallet       = 104;
+  mrDnaCode               = 105;
+  mrInfoLog               = 106;
+  mrHernoemPallet         = 107;
+  mrDnaCodeReedsGescand   = 108;
+  mrOnderdelen            = 109;
+  mrDnaCodeVoorOnderdelen = 110;
+  modusDefault            = 1;
+  modusKAD                = 2;
+  modusVHOSS              = 3;
 
 type
   TUiContext = class
@@ -44,6 +45,7 @@
     fFormHoogte: integer;
     fLaatsteDnaCodeGoedAfgemeld: boolean;
     fLaatstAfgedrukteDnaCodes: TStringList;
+    fVanuitOnderdelen: boolean;
   public
     Constructor Create; overload;
     Property Initialen: String Read fInitialen Write fInitialen;
@@ -68,6 +70,7 @@
     Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
     Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
     Property LaatstAfgedrukteDnaCodes: TStringList Read fLaatstAfgedrukteDnaCodes Write fLaatstAfgedrukteDnaCodes;
+    Property VanuitOnderdelen: boolean Read fVanuitOnderdelen Write fVanuitOnderdelen;
   end;
 
 implementation