Index: ProScan/UI/UiContext.pas
===================================================================
diff -u -r396 -r694
--- ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 396)
+++ ProScan/UI/UiContext.pas	(.../UiContext.pas)	(revision 694)
@@ -3,7 +3,7 @@
 interface
 
 uses
-  Images;
+  Images, Classes;
 
 const
   mrLogin               = 101;
@@ -31,10 +31,21 @@
     fDesktopMode: boolean;
     fIsDirecteLeveringPopupGetoond: boolean;
     fIsWegwerpPalletPopupGetoond: boolean;
+    fIsSSTPopupGetoond: boolean;
+    fIsExportPopupGetoond: boolean;
+    fIsBlumXsPopupGetoond: boolean;
+    fIsKartonnenPalletPopupGetoond: boolean;
     fServerName: string;
     fModus: integer;
+    fMoetTbpCodeGenereren: boolean;
     fInternVhossId: string;
+    fBatchId: String;
+    fFormBreedte: integer;
+    fFormHoogte: integer;
+    fLaatsteDnaCodeGoedAfgemeld: boolean;
+    fLaatstAfgedrukteDnaCodes: TStringList;
   public
+    Constructor Create; overload;
     Property Initialen: String Read fInitialen Write fInitialen;
     Property LoginCode: String Read fLoginCode Write fLoginCode;
     Property Pallet: String Read fPallet Write fPallet;
@@ -45,13 +56,27 @@
     Property DesktopMode: boolean Read fDesktopMode Write fDesktopMode;
     Property IsDirecteLeveringPopupGetoond: boolean Read fIsDirecteLeveringPopupGetoond Write fIsDirecteLeveringPopupGetoond;
     Property IsWegwerpPalletPopupGetoond: boolean Read fIsWegwerpPalletPopupGetoond Write fIsWegwerpPalletPopupGetoond;
+    Property IsSSTPopupGetoond: boolean Read fIsSSTPopupGetoond Write fIsSSTPopupGetoond;
     Property ServerName: string Read fServerName Write fServerName;
     Property Modus: integer Read fModus Write fModus;
+    Property MoetTbpCodeGenereren: boolean Read fMoetTbpCodeGenereren Write fMoetTbpCodeGenereren;
     Property InternVhossId: string read fInternVhossId Write fInternVhossId;
+    Property IsExportPopupGetoond: boolean Read fIsExportPopupGetoond write fIsExportPopupGetoond;
+    Property IsBlumXsPopupGetoond: boolean Read fIsBlumXsPopupGetoond write fIsBlumXsPopupGetoond;
+    Property BatchId: string Read fBatchId Write fBatchId;
+    Property FormBreedte: integer Read fFormBreedte Write fFormBreedte;
+    Property FormHoogte: integer Read fFormHoogte Write fFormHoogte;
+    Property LaatsteDnaCodeGoedAfgemeld: boolean Read fLaatsteDnaCodeGoedAfgemeld Write fLaatsteDnaCodeGoedAfgemeld;
+    Property LaatstAfgedrukteDnaCodes: TStringList Read fLaatstAfgedrukteDnaCodes Write fLaatstAfgedrukteDnaCodes;
+    Property IsKartonnenPalletPopupGetoond: boolean Read fIsKartonnenPalletPopupGetoond write fIsKartonnenPalletPopupGetoond;
   end;
 
 implementation
 
 { TUiContext }
+constructor TUiContext.Create();
+begin
+  fLaatstAfgedrukteDnaCodes := TStringList.Create();
+end;
 
 end.