Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r240 -r241
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 240)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 241)
@@ -9,7 +9,7 @@
 
 type
   TfmProScanHoofdscherm = class(TForm)
-    pcMain: TPageControl;
+    pnlMain: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure FormActivate(Sender: TObject);
   private
@@ -60,33 +60,26 @@
   TabSheet: TTabSheet;
   pnlMain: TPanel;
 begin
+  Application.ProcessMessages;
+  pnlMain := TPanel.Create(Self);
+  pnlMain.Parent := Self;
+  pnlMain.Align := alClient;
 
-  if pcMain.PageCount > 0 then
-    pcMain.Pages[0].Free;
-  TabSheet := TTabSheet.Create(pcMain);
-  TabSheet.TabVisible := false;
-  TabSheet.PageControl := pcMain;
-  pcMain.ActivePageIndex := 0;
-
   if mr = mrAbort then begin
     HuidigeGebruikerAfmelden;
     Application.Terminate;
   end else begin
     case mr of
-      mrLogin               : fHuidigScherm := TfmLoginScherm2.Create(TabSheet);
-      mrHome                : fHuidigScherm := TfmHomeScherm.Create(TabSheet);
-      mrPallet              : fHuidigScherm := TfmPalletScherm.Create(TabSheet);
-      mrHernoemPallet       : fHuidigScherm := TfmHernoemPalletScherm.Create(TabSheet);
-      mrBestaandePallet     : fHuidigScherm := TfmBestaandePalletScherm.Create(TabSheet);
-      mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(TabSheet);
-      mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(TabSheet);
-      mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(TabSheet);
+      mrLogin               : fHuidigScherm := TfmLoginScherm2.Create(pnlMain);
+      mrHome                : fHuidigScherm := TfmHomeScherm.Create(pnlMain);
+      mrPallet              : fHuidigScherm := TfmPalletScherm.Create(pnlMain);
+      mrHernoemPallet       : fHuidigScherm := TfmHernoemPalletScherm.Create(pnlMain);
+      mrBestaandePallet     : fHuidigScherm := TfmBestaandePalletScherm.Create(pnlMain);
+      mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(pnlMain);
+      mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(pnlMain);
+      mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(pnlMain);
     end;
 
-    pnlMain := TPanel.Create(Self);
-    pnlMain.Parent := Self;
-    pnlMain.Align := alClient;
-
     fHuidigScherm.Parent := pnlMain;
     (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
     fHuidigScherm.Show;