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;
Index: AAPClient/UI/DimmerForm.pas
===================================================================
diff -u
--- AAPClient/UI/DimmerForm.pas	(revision 0)
+++ AAPClient/UI/DimmerForm.pas	(revision 115)
@@ -0,0 +1,47 @@
+unit DimmerForm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
+
+type
+  TfmDimmerForm = class(TForm)
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    procedure Display;
+  end;
+
+var
+  fmDimmerForm: TfmDimmerForm;
+
+implementation
+
+{$R *.dfm}
+
+
+procedure TfmDimmerForm.Display;
+begin
+  with Self do
+  begin
+    Left := Application.MainForm.Left;
+    Top := Application.MainForm.Top;
+    Width := Application.MainForm.Width;
+    Height := Application.MainForm.Height;
+    Show;
+  end;
+
+end;
+
+
+procedure TfmDimmerForm.FormCreate(Sender: TObject);
+begin
+  AlphaBlend := true;
+  AlphaBlendValue := 128;
+  BorderStyle := bsNone;
+end;
+
+end.
Index: AAPClient/ProScan.dpr
===================================================================
diff -u -r112 -r115
--- AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 112)
+++ AAPClient/ProScan.dpr	(.../ProScan.dpr)	(revision 115)
@@ -16,7 +16,8 @@
   UiContext in 'UI\UiContext.pas',
   HernoemPalletScherm in 'UI\HernoemPalletScherm.pas' {fmHernoemPalletScherm},
   DnaCodeService in 'WS\DnaCodeService.pas',
-  LoginScherm2 in 'UI\LoginScherm2.pas' {fmLoginScherm2};
+  LoginScherm2 in 'UI\LoginScherm2.pas' {fmLoginScherm2},
+  DimmerForm in 'UI\DimmerForm.pas' {fmDimmerForm};
 
 {$R *.res}
 
@@ -26,5 +27,6 @@
   Application.CreateForm(TfmProScanHoofdscherm, fmProScanHoofdscherm);
   Application.CreateForm(TfmHernoemPalletScherm, fmHernoemPalletScherm);
   Application.CreateForm(TfmLoginScherm2, fmLoginScherm2);
+  Application.CreateForm(TfmDimmerForm, fmDimmerForm);
   Application.Run;
 end.
Index: AAPClient/ProScan.dproj.local
===================================================================
diff -u -r114 -r115
--- AAPClient/ProScan.dproj.local	(.../ProScan.dproj.local)	(revision 114)
+++ AAPClient/ProScan.dproj.local	(.../ProScan.dproj.local)	(revision 115)
@@ -9,13 +9,13 @@
     <Transaction>2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.pas</Transaction>
     <Transaction>2019/03/01 14:34:33.000.220,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\DrieKnoppenScherm.dfm</Transaction>
     <Transaction>2019/03/01 15:26:22.000.761,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
+    <Transaction>2019/03/01 15:27:42.000.618,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/04 07:46:54.000.107,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/04 07:48:44.000.257,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/04 07:48:53.000.280,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=</Transaction>
-    <Transaction>2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas</Transaction>
     <Transaction>2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm</Transaction>
+    <Transaction>2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm.pas</Transaction>
     <Transaction>2019/03/05 10:51:12.000.820,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/05 10:53:16.000.806,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/05 10:56:57.000.976,E:\svn\Delphi\AAPClient\WS\GebruikerService.pas=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
@@ -29,16 +29,16 @@
     <Transaction>2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm</Transaction>
     <Transaction>2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\HomeScherm.pas</Transaction>
     <Transaction>2019/03/07 11:22:02.000.536,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm</Transaction>
     <Transaction>2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas</Transaction>
+    <Transaction>2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm</Transaction>
     <Transaction>2019/03/07 15:18:54.000.922,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/07 15:19:13.000.507,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas</Transaction>
     <Transaction>2019/03/08 10:21:18.000.208,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/08 10:26:55.000.996,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=</Transaction>
-    <Transaction>2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm</Transaction>
     <Transaction>2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas</Transaction>
-    <Transaction>2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm</Transaction>
+    <Transaction>2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm</Transaction>
     <Transaction>2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas</Transaction>
+    <Transaction>2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm</Transaction>
     <Transaction>2019/03/08 10:28:02.000.451,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas</Transaction>
     <Transaction>2019/03/08 11:14:25.000.860,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm</Transaction>
@@ -53,8 +53,8 @@
     <Transaction>2019/03/12 11:42:41.000.845,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/12 11:42:52.000.715,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/18 09:44:48.000.103,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
+    <Transaction>2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/03/18 11:06:46.000.842,=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/03/18 11:07:10.000.880,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=</Transaction>
     <Transaction>2019/03/18 11:07:23.000.750,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
@@ -73,8 +73,11 @@
     <Transaction>2019/05/02 15:08:28.000.270,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=</Transaction>
     <Transaction>2019/05/02 15:08:38.000.127,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas</Transaction>
     <Transaction>2019/09/03 15:55:43.000.155,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
-    <Transaction>2019/09/03 15:56:30.000.060,E:\svn\Delphi\AAPClient\UI\LoginScherm2.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
     <Transaction>2019/09/03 15:56:30.000.060,E:\svn\Delphi\AAPClient\UI\LoginScherm2.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
+    <Transaction>2019/09/03 15:56:30.000.060,E:\svn\Delphi\AAPClient\UI\LoginScherm2.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/09/04 13:14:25.076,=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/09/04 13:17:21.462,E:\svn\Delphi\AAPClient\UI\DimmerForm.pas=E:\svn\Delphi\AAPClient\Unit1.pas</Transaction>
+    <Transaction>2019/09/04 13:17:21.462,E:\svn\Delphi\AAPClient\UI\DimmerForm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="UI"/>
@@ -101,6 +104,8 @@
     <File Path="UI\UiContext.pas"/>
     <File Path="UI\HernoemPalletScherm.pas"/>
     <File Path="UI\HernoemPalletScherm.dfm"/>
+    <File Path="UI\DimmerForm.pas"/>
+    <File Path="UI\DimmerForm.dfm"/>
     <File Path="WS"/>
     <File Path="WS\GebruikerService.pas"/>
     <File Path="WS\DnaCodeService.pas"/>
Index: AAPClient/ProScan.dproj
===================================================================
diff -u -r114 -r115
--- AAPClient/ProScan.dproj	(.../ProScan.dproj)	(revision 114)
+++ AAPClient/ProScan.dproj	(.../ProScan.dproj)	(revision 115)
@@ -133,6 +133,10 @@
 				<Form>fmLoginScherm2</Form>
 				<FormType>dfm</FormType>
 			</DCCReference>
+			<DCCReference Include="UI\DimmerForm.pas">
+				<Form>fmDimmerForm</Form>
+				<FormType>dfm</FormType>
+			</DCCReference>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
 				<CfgParent>Base</CfgParent>
Index: AAPClient/ProScanMain.dfm
===================================================================
diff -u -r96 -r115
--- AAPClient/ProScanMain.dfm	(.../ProScanMain.dfm)	(revision 96)
+++ AAPClient/ProScanMain.dfm	(.../ProScanMain.dfm)	(revision 115)
@@ -17,4 +17,10 @@
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
+  object ApplicationEvents1: TApplicationEvents
+    OnModalBegin = ApplicationEvents1ModalBegin
+    OnModalEnd = ApplicationEvents1ModalEnd
+    Left = 104
+    Top = 112
+  end
 end
Index: AAPClient/UI/DimmerForm.dfm
===================================================================
diff -u
--- AAPClient/UI/DimmerForm.dfm	(revision 0)
+++ AAPClient/UI/DimmerForm.dfm	(revision 115)
@@ -0,0 +1,20 @@
+object fmDimmerForm: TfmDimmerForm
+  Left = 0
+  Top = 0
+  AlphaBlend = True
+  AlphaBlendValue = 128
+  BorderStyle = bsNone
+  Caption = 'fmDimmerForm'
+  ClientHeight = 375
+  ClientWidth = 651
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+end