Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r302 -r304
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 302)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 304)
@@ -49,6 +49,7 @@
 begin
   fUiContext := TUiContext.Create();
   fUiContext.ImagesScherm := TImagesScherm.Create(self);
+  fUiContext.Modus := modusDefault;
 
   if ParamStr(1)='displaymode=desktop' then begin
     Self.BorderStyle := bsSingle;
Index: AAPClient/UI/UiContext.pas
===================================================================
diff -u -r301 -r304
--- AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 301)
+++ AAPClient/UI/UiContext.pas	(.../UiContext.pas)	(revision 304)
@@ -14,6 +14,9 @@
   mrInfoLog             = 106;
   mrHernoemPallet       = 107;
   mrDnaCodeReedsGescand = 108;
+  modusDefault          = 1;
+  modusKAD              = 2;
+  modusVHOSS            = 3;
 
 type
   TUiContext = class
@@ -29,6 +32,7 @@
     fIsDirecteLeveringPopupGetoond: boolean;
     fIsWegwerpPalletPopupGetoond: boolean;
     fServerName: string;
+    fModus: integer;
   public
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
@@ -41,6 +45,7 @@
     Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
     Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
     Property ServerName: string Read fServerName Write fServerName;
+    Property Modus: integer Read fModus Write fModus;
   end;
 
 implementation