Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r114 -r115
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 114)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 115)
@@ -4,12 +4,15 @@
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActnList, UiContext;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActnList, UiContext, Vcl.AppEvnts;
 
 type
   TfmProScanHoofdscherm = class(TForm)
+    ApplicationEvents1: TApplicationEvents;
     procedure FormCreate(Sender: TObject);
     procedure FormActivate(Sender: TObject);
+    procedure ApplicationEvents1ModalBegin(Sender: TObject);
+    procedure ApplicationEvents1ModalEnd(Sender: TObject);
   private
     fUiContext: TUiContext;
     fHuidigScherm: TForm;
@@ -32,10 +35,21 @@
 
 uses
   LoginScherm, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm,
-  BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm;
+  BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm,
+  DimmerForm;
 
 {$R *.dfm}
 
+procedure TfmProScanHoofdscherm.ApplicationEvents1ModalBegin(Sender: TObject);
+begin
+  //fmDimmerForm.Display;
+end;
+
+procedure TfmProScanHoofdscherm.ApplicationEvents1ModalEnd(Sender: TObject);
+begin
+  //fmDimmerForm.Hide;
+end;
+
 procedure TfmProScanHoofdscherm.FormActivate(Sender: TObject);
 var
   fModalResult: TModalResult;